den nachfolgenden Code hatte mir Hajo zur Verfügung gestellt. Er läuft auch soweit prima. Mit einem weiteren Code, den ich hierin eingebaut habe, stelle ich aber fest, dass dieser immer nur auf markierte Zellen fokussiert ist. Wie kann ich den folgenden Code ergänzen, dass auch wieder innerhalb Spalte A die jeweils nächstfolgende Zelle auf Activate gesetzt wird, bis eben die erste leere Zelle erreicht wurde? Danke schon jetzt für die Rückmeldungen.
Gruß - Wolfgang
'Fährt in Spalte A die Zellen nach unten, bis die letzte gefüllte Zelle erreicht ist.
Sub A()
Dim Loi As Long
Loi = 1
Do
If Cells(Loi, 1) = "" Then
'MsgBox "leer", vbCritical
Exit Do
Else
Loi = Loi + 1
'Aufruf meines Codes
End If
Loop
End Sub