Hallo,
über das folgende Excel97-Makro will ich jede zweite Zeile markieren, um sie dann z.B. auszublenden oder zu löschen.
Excel hängt sich aber reproduzierbar auf, wenn eine bestimmte Zahl markierter Zeilen (ab 50 bis 100) überschritten wird.
Weiß jemand, woran das liegt?
Grüße, Stefan
Sub Markierung_zweite_Zeile()
Application.ScreenUpdating = False
Dim lRow As Long
Dim sRows As String
Dim bln As Boolean
For lRow = Selection.Row To Selection.Row + Selection.Rows.Count
bln = Not bln
If bln Then
sRows = sRows & „,“ & lRow & „:“ & lRow
End If
Next lRow
sRows = Right(sRows, Len(sRows) - 1)
Range("" & sRows & „“).Select
Application.ScreenUpdating = True
MsgBox („Auswahl beendet.“)
End Sub