Makro hängt sich auf
Stef@n
ein Bekannter (den ich nicht erreichen kann) hat mir folgendes Makro
zur Verfügung gestellt. Beim Öffnen des Tabellenblattes hängt sich das
Makro "auf" - es läuft permanet
Was muss daran geändert werden, damit das nicht mehr passiert ?
Freu mich auf einen Tip
Besten Gruß Stef@n
hier das Makro:
Private Sub Worksheet_Activate()
Dim lRow As Long
Dim i As Long
lRow = IIf(Range("a8") "", 8, Range("a8").End(xlUp).Row)
For i = lRow To 1 Step -1
If Range("A" & i) = 0 Then
Range("A" & i).EntireRow.Hidden = True
Else:
Range("A" & i).EntireRow.Hidden = False
End If
Next i
End Sub
Anzeige