ich möchte eigentlich einfach nur in Spalte A ein "X" eingefügt haben, solange in Spalte Y ein Wert steht.
Steh da irgendwie gerade auf dem Schlauch. Mit meiner Formel gibt es kein Ende, es wird alles ausgefüllt.
Do Until IsEmpty(ZelleA)
Set ZelleA = rgQuelle1.Offset(A, 0)
If ZelleA.Value "" Then
ZelleA.Offset(A, -24).Value = "X"
End If
A = A + 1
Loop
Vielen Dank für die Hilfe
Nicole