Hallo!
Ich bitte um Hilfe. Ich habe eine UserForm erstellt, auf der einige Label sind, die wiederum die Daten von einer Zelle mit Formelinhalt beziehen. Bis zur KW37 ist alles gut gegangen und hat auch alles synchronisiert. Sobald ich mehr Befehle eintrage, lässt sich die Excel-Datei nicht mehr öffnen und es kommt auch keine Fehlermeldung. Ich habe schon alles kontrolliert (Zelleneigenschaft, Befehle usw.), aber alles korrekt.Ich (als Leihe) vermute daher, dass die Höchstanzahl der Befehle unter Private Sub UserForm_Initialize() erreicht sind.
Sollte das so sein, würde ich die Hilfe benötigen, um meine Befehle zusammenzuziehen bzw. zu verkürzen.
Private Sub UserForm_Initialize()
'Eintragen Kontrollk?stchen in Zelle
CheckBox_KW1.ControlSource = "SYSTEM!A7"
CheckBox_KW2.ControlSource = "SYSTEM!B7"
CheckBox_KW3.ControlSource = "SYSTEM!C7"
CheckBox_KW4.ControlSource = "SYSTEM!D7"
'Hintergrund der UserForm anpassen
UserForm1.BackColor = RGB(204, 255, 204)
'Grundfarbe Jahr linke Seite anpassen
Label14.BackColor = RGB(204, 255, 204)
Label321.BackColor = RGB(204, 255, 204)
Label_JAHR.BackColor = RGB(204, 255, 204)
CommandButton_KW1.BackColor = RGB(0, 128, 0)
CommandButton_KW1_VZ.BackColor = RGB(153, 51, 0)
CommandButton_KW1_PV.BackColor = RGB(0, 102, 204)
CommandButton_KW2.BackColor = RGB(0, 128, 0)
CommandButton_KW2_VZ.BackColor = RGB(153, 51, 0)
CommandButton_KW2_PV.BackColor = RGB(0, 102, 204)
CommandButton_KW3.BackColor = RGB(0, 128, 0)
CommandButton_KW3_VZ.BackColor = RGB(153, 51, 0)
CommandButton_KW3_PV.BackColor = RGB(0, 102, 204)
'Jahrezahl anzeigen
Me.Label_JAHR.Caption = ActiveWorkbook.Worksheets("SYSTEM").Range("B1").Value
'KW1
Me.Label_Von_KW1.Caption = ActiveWorkbook.Worksheets("SYSTEM").Range("A9").Value
Me.Label_Bis_KW1.Caption = ActiveWorkbook.Worksheets("SYSTEM").Range("A10").Value
Me.Label_KW1.Caption = ActiveWorkbook.Worksheets("SYSTEM").Range("A5").Value
'KW2
Me.Label_Von_KW2.Caption = ActiveWorkbook.Worksheets("SYSTEM").Range("B9").Value
Me.Label_Bis_KW2.Caption = ActiveWorkbook.Worksheets("SYSTEM").Range("B10").Value
Me.Label_KW2.Caption = ActiveWorkbook.Worksheets("SYSTEM").Range("B5").Value
'KW3
Me.Label_Von_KW3.Caption = ActiveWorkbook.Worksheets("SYSTEM").Range("C9").Value
Me.Label_Bis_KW3.Caption = ActiveWorkbook.Worksheets("SYSTEM").Range("C10").Value
Me.Label_KW3.Caption = ActiveWorkbook.Worksheets("SYSTEM").Range("C5").Value
'KW4
Me.Label_Von_KW4.Caption = ActiveWorkbook.Worksheets("SYSTEM").Range("D9").Value
Me.Label_Bis_KW4.Caption = ActiveWorkbook.Worksheets("SYSTEM").Range("D10").Value
Me.Label_KW4.Caption = ActiveWorkbook.Worksheets("SYSTEM").Range("D5").Value
'KW5
Me.Label_Von_KW5.Caption = ActiveWorkbook.Worksheets("SYSTEM").Range("E9").Value
Me.Label_Bis_KW5.Caption = ActiveWorkbook.Worksheets("SYSTEM").Range("E10").Value
Me.Label_KW5.Caption = ActiveWorkbook.Worksheets("SYSTEM").Range("E5").Value
usw......bis KW53
leider geht es ab KW38 nicht mehr?