Togglebuttons und IF-Schleife
09.01.2018 07:15:02
Chris
ich habe eine Userform mit 4 Togglebuttons.
Je nachdem, was in Zelle H11 H12 oder H13 steht sollen die Togglebuttons aktiviert und grün bzw. rot eingefärbt werden. Das Makro unten funktioniert nur bei Togglebutton1. Die anderen Buttons reagieren gar nicht, auch von die Bedingungen erfüllt sind.
Habe ich evtl. die IF-Schleife falsch aufgebaut?
Bin für Korrekturen dankbar. Gruß Chris
'ToggleButton1 - Zuschlag Angebot A
If Sheets("Auftragsliste").Range("H11").Value = "Zuschlag Angebot A" Then
UserForm1.ToggleButton1.Value = True
UserForm1.ToggleButton1.BackColor = RGB(128, 255, 128) 'grün
UserForm1.ToggleButton2.Enabled = False
UserForm1.ToggleButton3.Enabled = False
UserForm1.ToggleButton4.Enabled = False
If Sheets("Auftragsliste").Range("H11").Value = "" Then
UserForm1.ToggleButton1.Value = False
UserForm1.ToggleButton1.BackColor = RGB(255, 128, 128) 'rot
UserForm1.ToggleButton2.Enabled = True
UserForm1.ToggleButton3.Enabled = True
UserForm1.ToggleButton4.Enabled = True
'ToggleButton2 - Zuschlag Angebot B
If Sheets("Auftragsliste").Range("H12").Value = "Zuschlag Angebot B" Then
UserForm1.ToggleButton2.Value = True
UserForm1.ToggleButton2.BackColor = RGB(128, 255, 128) 'grün
UserForm1.ToggleButton1.Enabled = False
UserForm1.ToggleButton3.Enabled = False
UserForm1.ToggleButton4.Enabled = False
If Sheets("Auftragsliste").Range("H12").Value = "" Then
UserForm1.ToggleButton2.Value = False
UserForm1.ToggleButton2.BackColor = RGB(255, 128, 128) 'rot
UserForm1.ToggleButton1.Enabled = True
UserForm1.ToggleButton3.Enabled = True
UserForm1.ToggleButton4.Enabled = True
'ToggleButton3 - Zuschlag Angebot C
If Sheets("Auftragsliste").Range("H13").Value = "Zuschlag Angebot C" Then
UserForm1.ToggleButton3.Value = True
UserForm1.ToggleButton3.BackColor = RGB(128, 255, 128) 'grün
UserForm1.ToggleButton1.Enabled = False
UserForm1.ToggleButton2.Enabled = False
UserForm1.ToggleButton4.Enabled = False
If Sheets("Auftragsliste").Range("H13").Value = "" Then
UserForm1.ToggleButton3.Value = False
UserForm1.ToggleButton3.BackColor = RGB(255, 128, 128) 'rot
UserForm1.ToggleButton1.Enabled = True
UserForm1.ToggleButton2.Enabled = True
UserForm1.ToggleButton4.Enabled = True
End If
End If
End If
End If
End If
End If