Mehrere Makros automatisch ausführen
18.07.2004 18:42:43
andi
Hab 3 x 8 Makros, die sollen unabhängig voneinander gestartet werden, je nachdem welches Textfeld sich ändert.
Also hier mein Makrokopf, aber so funktionieren die nächsten Makros nicht.
Muss ich die IF THEN Schleifen anders setzen ?
Option Explicit
Private Sub Worksheet_Change(ByVal Target As Range)
If Range("N43") = "Mannschaft 1" Then
Call sieger1_hervorheben
Else
If Range("N43") = "Mannschaft 4" Then
Call sieger2_hervorheben
Else
Call niemand_hervorheben
If Range("N46") = "Mannschaft 2" Then
Call sieger1_hervorheben2
Else
If Range("N46") = "Mannschaft 5" Then
Call sieger2_hervorheben2
Else
Call niemand_hervorheben2
End If
End If
End If
End If
End Sub
Anzeige