Ich habe 6 Commandbuttons.
Alle 6 haben nach dem klicken denselben Code (siehe Unten).
Jetzt schreibe ich für jeden Button ein extra Code.
Kann man das auch verkürzen irgendwie?
Stehe da voll auf dem Schlauch
Danke Flo
Hallo an alle
Ich habe 6 Commandbuttons.
Alle 6 haben nach dem klicken denselben Code (siehe Unten).
Jetzt schreibe ich für jeden Button ein extra Code.
Kann man das auch verkürzen irgendwie?
Stehe da voll auf dem Schlauch
Danke Flo
Private Sub UserForm_Initialize()
Dim i, x As Long
x = 4
For i = 5 To 10
Controls("CommandButton" & i).Caption = Sheets("Tabelle1").Cells(3, x).Value
x = x + 1
Next i
End Sub
Private Sub CommandButton5_Click()
Unload Me
Saison = CommandButton5.Caption
Call Punkte_Aktualisieren
Call TTR_pruefen_alle
End Sub
Private Sub CommandButton6_Click()
Unload Me
Saison = CommandButton6.Caption
Call Punkte_Aktualisieren
Call TTR_pruefen_alle
End Sub
Private Sub CommandButton7_Click()
Unload Me
Saison = CommandButton7.Caption
Call Punkte_Aktualisieren
Call TTR_pruefen_alle
End Sub
Private Sub CommandButton8_Click()
Unload Me
Saison = CommandButton8.Caption
Call Punkte_Aktualisieren
Call TTR_pruefen_alle
End Sub
Private Sub CommandButton9_Click()
Unload Me
Saison = CommandButton9.Caption
Call Punkte_Aktualisieren
Call TTR_pruefen_alle
End Sub
Private Sub CommandButton10_Click()
Unload Me
Saison = CommandButton10.Caption
Call Punkte_Aktualisieren
Call TTR_pruefen_alle
End Sub