In einer identifizierten Zeile freie Zelle finden
06.08.2019 16:44:23
Felix
ich versuche gerade krampfhaft in einer Zeile die ich über eine Zurordnung treffe, unter Umständen in die ersten freie Zelle der Zeile einen bestimmten Wert eintrage. Leider klappt es nicht. Vllt hat ja jemand eine Ergänzung für meinen Code
If L16 = True Then
Application.Goto Reference:=Worksheets("Bewegungen").Range("A1"), Scroll:=True
Do Until ActiveCell.Value = ""
If ActiveCell.Value = YourValue Then
ActiveCell.End(x1ToRight).Offset(0, 1) = "ASDF"
Else
ActiveCell.Offset(1, 0).Select
End If
Loop
Else
End If
Schon vorab vielen Dank für die HilfeGrüße Felix