@hajo - noch zwei Fragen
29.10.2012 20:04:02
Wolfgang
den nachfolgenden Code hattest Du mir vor geraumer Zeit zur Verfügung gestellt. Er rennt soweit super und tadellos. Nun hätte ich aber noch zwei ergänzende Fragen:
a)kann der Code evtl. angepasst werden, so dass er nicht immer ab A1 startet, sondern ab aktueller Cursorposition in Spalte A?
b) Gibt es eine Möglichkeit, den Code evtl. bei Bedarf über eine Schaltfläche -in Tabelle enthalten- zu stoppen (ggfs. auch per Schaltfläche wieder ab aktueller Position zu starten). Ich danke Dir schon jetzt recht herzlich wieder für Deine Rückantwort.
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
MsgBox "voll", vbInformation
Loi = Loi + 1
Cells(Loi, 1).Select
End If
Loop
End Sub