habe ein kleines Problem,
habe hier einen Code der so weit gut funktioniert. Allerdings habe ich jetzt einen dritten Button dazu gesetzt und da kommt bei Butten3 die Fehlermeldung Variabele nicht definiert und der Debugger geht auf. Ich finde den Fehler nicht . Könnt ihr mir bitte einen Tip geben. Danke René
Private Sub Worksheet_Change(ByVal Target As Range)
Dim Butten1 As Object
Dim Butten2 As Object
Dim Button3 As Object
If Sheets("Rechnen").Range("C46") Is Nothing Then Exit Sub
Set Butten1 = CommandButton1
Set Butten2 = CommandButton2
Set Button3 = CommandButton3
If Sheets("Rechnen").Range("C46") = "1" Then
Butten1.Visible = True
Butten1.BackColor = &HFFC0FF
Butten2.Visible = True
Butten2.BackColor = &HFFC0C0
Butten3.Visible = True
Butten3.BackColor = &HFFC0C0
ElseIf Sheets("Rechnen").Range("C46") = "2" Then
Butten1.Visible = True
Butten1.BackColor = &HFFC0C0
Butten2.Visible = True
Butten2.BackColor = &HFFC0FF
Butten3.Visible = True
Butten3.BackColor = &HFFC0C0
ElseIf Sheets("Rechnen").Range("C46") = "2" Then
Butten1.Visible = True
Butten1.BackColor = &HFFC0C0
Butten2.Visible = True
Butten2.BackColor = &HFFC0C0
Butten3.Visible = True
Butten3.BackColor = &HFFC0FF
ElseIf Sheets("Rechnen").Range("C46") = "" Then
Butten1.Visible = False
Butten2.Visible = False
Button3.Visible = False
End If
End Sub