Celeigenschap aangepast met celinvoer

[plainme]

Hallo formumleden,

Is er een mogelijkheid om via celeigenschap een extensie die uit een andere cel dient te komen toe te voegen?
bvb
celeigenschap
aangepast
standaard " &celA1 "

heb zowat bijna alle combinatie's uitgeprobeerd maar noppes.
Alvast bedankt voor het advies en hulp.

Mvg
Marc

 

[Cobbe]

Heel veel is mogelijk, juist daarom is het nodig om een voorbeeldbestandje te posten.

 

[plainme]

Beste Cobbe

in bijlage voorbeeld bestandje

alvast bedankt voor de reactie


mvg
Marc
Bekijk bijlage voorbeeld HM.xlsx

 

[Cobbe]

Kijk eens of je hier mee kunt leven.

 

[plainme]

Cobbe,

Het stukje Vba kan dit aangepast worden naar oneindige toevoer.
In het voorbeeldje zijn maar 9 rijen aangemaakt maar in realiteit bestaat zoiets meestal uit een 2500 a 2500 rijen.

Kan dit worden aangepast zodat wanneer er een rij toegevoegd wordt deze ook in de VBA code wordt aanvaard?
Wat nu niet het geval is.

Alvast bedankt

Mvg
Marc

 

[Cobbe]

Ja natuurlijk kan dat, maar ik bedenk net dat je in de problemen gaat komen als je berekeningen moet gaan doen met deze kolom.

Private Sub Worksheet_Change(ByVal Target As Range)
    On Error GoTo foutje
    Application.EnableEvents = False
    If Not Intersect(Target, Range("F3:F" & Range("F" & Rows.Count).End(xlUp).Row)) Is Nothing Then
        Target = Format(Target, "00.00 ") & Target.Offset(, -1)
    End If
foutje:
    Application.EnableEvents = True
End Sub

 

[plainme]

Hey Cobbe,

werkt perfect. dikke bedankt !!!

mvg
Marc