Zweite Zelle
Udo
ich habe folgenden Makro zum markieren jeder zweiten Zelle, allerdings soll ei nicht in einer Zeile, sondern in einer Spalte laufen, Also von oben nach unten.
Was ist falsch?
Danke für Eure Hilfe
Public Sub test()
Dim start As Long
Dim ende As Long
Dim spalte As Long
Dim bereich As Range
start = Application.InputBox(prompt:="Erste Zelle", Type:=1)
ende = Application.InputBox(prompt:="Letzte Zelle", Type:=1)
Set bereich = Cells(start)
For zelle = start To ende Step 2 'jede 2te
Set bereich = Union(bereich, Cells(zelle))
Next
bereich.Select
End Sub
Anzeige