Guten Morgen
Ich habe UserForm4 mit je 6 Button erstellt. Die Button öffnen wie unten gezeigt, das zugeteilte Tabellenblatt:
CommandButton1.Caption = Tabelle6.Name
CommandButton2.Caption = Tabelle7.Name
CommandButton3.Caption = Tabelle8.Name
CommandButton4.Caption = Tabelle9.Name
CommandButton5.Caption = Tabelle10.Name
CommandButton6.Caption = Tabelle11.Name
Nun soll Button1 von grün auf rot wechseln, wenn in Tabelle6, die Zellen"B4:B26" voll sind.
Button2 wenn in Tabelle7, die Zellen"B4:B26" voll sind.
Button3 wenn in Tabelle8, die Zellen"B4:B26" voll sind.
usw.
Habe mit folgendem Code versucht. Kommt einen Laufzeitfehler 9.
Dim Z& ' Z möchte ich den jeweiligen Button steuern also 1 = Butten1, 2 = Button 2, usw.
Dim Y& 'Y steure ich das Tabellenblatt also 6 = Tabelle6, 7 = Tabelle7, usw.
For Y = 6 To 11
For Z = 1 To 6
If Worksheets("Tabelle" & Y).Range("B4:B28").Value = False Then
UserForm4.Controls("CommandButton" & Z).BackColor = RGB(0, 255, 0)
Else
UserForm4.Controls("CommandButton" & Z).BackColor = RGB(255, 0, 0)
End If
Next
Next
Da kann mir sicher jemand schreiben, was ich als Anfänger muss ändern?
Freundliche Grüsse Daniel