Makro Schleife

Sub NeueKombi()
l = Worksheets("Daten").[h1]
If test = True Then
If l = 3 Then
Topp
End If
End If
If test = False Then
If l = 0 Then
Topp
End If
End If
If test = False Then
If l = 2 Then
Flopp
End If
End If
End Sub