zeige Listing: Finden das Makro nicht was ist Falsch?
Option Explicit
Private Sub Worksheet_Change(ByVal Target As Range)
If Range("A1").Value = Range("A2").Value Then
Application.Run ("JedeZweite")
End If
End Sub
Sub JedeZweite()
Dim i As Integer
Sheets("Schleifen").Activate
Range("A30").Select
If ActiveCell.Value = "1" Then
For i = 1 To 20 Step 2
Rows(i).Hidden = True
Next i
End If
End Sub
Soll starten bei gleich A1undA2