Hallo Community,
und zwar geht es mir darum, dass wenn ich in eine Zelle einer festgelegten Spalte etwas Eintrage, dann soll durch ein Offset zwei Zellen weiter rechts etwas eingetragen werden. Dies soll aber nur passieren, wenn die Zelle vorher leer war. Ich habe schon ein bisschen Code zusammengekriegt, jedoch kriege ich die Bedingung mit der leeren Zelle nicht eingefügt.
Mein bisheriger Code lautet wie folgt:
Private Sub Worksheet_Change(ByVal Target As Range)
Dim x As Range
On Error GoTo Ende
[Bedingung für leere Zelle]
For Each x In Application.Intersect(Columns("A"), Target, Null).Cells
x.Offset(0, 2).Value = 5
Next x
Ende:
End Sub
Ich habe ein paar Basics drauf, aber an dem logischen Aufbau scheitert es leider gerade bei mir.
Schonmal vielen Dank für eure Antworten und Liebe Grüße
|