Code anpassen
23.12.2005 14:23:25
matthias
Wenn ich die Zeile 1 bis 100 als range haben will, wie muss ich den code unten verändern und dies auf die tanelle laufen lassen?
Sub Markiere2(start As Long, ende As Long)
Dim rng As Range
Dim i As Long
Set rng = Rows(start)
For i = start To ende Step 2
Set rng = Union(rng, Rows(i))
Next i
rng.Select
End Sub
Gruss
matthias
Anzeige