Makro anpassen auf 3 Zeilen markieren
17.11.2005 17:29:17
Lars
ich habe einen Herber-Code:
Sub SecondRows()
Dim rng As Range
Dim lRow As Long
Dim bln As Boolean
For lRow = Selection.Row To Selection.Row + _
Selection.Rows.Count - 1
bln = Not bln
If bln Then
If Not rng Is Nothing Then
Set rng = Application.Union(rng, Rows(lRow))
Else
Set rng = Rows(lRow)
End If
End If
Next lRow
rng.Select
End Sub
der markiert jede 2te Zeile - wie ist der anzupassen wenn jede 3te (oder 4te)Spalte markiert werden soll?
Gruß Lars
Anzeige