ich habe ein kleines Problem und hoffe Ihr könnt mir helfen.
Ich habe in Spalte B1 bis B.... Werte stehen (unetschiedliche Anzahl zellen nach unten).
Jetzt prüfe ich, mit ActiveCell.Offset, wann kein Inhalt mehr vorhanden ist. Danach sollen die Zellen mit Inhalt (Anzahl unterschiedlich) markiert werden.
Sub test10()
a = 0
Range("B1").Select
a = 0
test:
If ActiveCell.Offset(1, 0) = " " Then
ActiveCell.Offset(1, 0).Range("A1").Select
a = a + 1
GoTo test
End If
If ActiveCell.Offset(1, 0) = "" Then
ActiveCell.Offset(-a, 0).Range("B1:B.. [B1 + a]).Select
ActiveCell.Activate 'markieren der aktuellen Zelle bis Zelle B1
MsgBox ("Zellen B1 bis (B1 + a) markiert")
End If
End Sub
Das Problem liegt hauptsächlich in der Angabe ...Range("B1:B...)...., wo die aktuelle Zelle als Anfang für das Markieren benutzt werden muß.