Microsoft Excel

Herbers Excel/VBA-Archiv

Informationen und Beispiele zum Thema CommandButton
BildScreenshot zu CommandButton CommandButton-Seite mit Beispielarbeitsmappe aufrufen

mehrere CommandButtons - ein Code


Betrifft: mehrere CommandButtons - ein Code von: Flo
Geschrieben am: 12.02.2018 20:03:17

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

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

  •   

    Betrifft: AW: mehrere CommandButtons - ein Code von: Rudi Maintaire
    Geschrieben am: 12.02.2018 20:18:50

    Hallo,
    anstatt 6 Commandbuttons könntest du auch eine Listbox nehmen.


    Gruß
    Rudi


      

    Betrifft: AW: mehrere CommandButtons - ein Code von: Luschi
    Geschrieben am: 12.02.2018 20:48:46

    Hallo Flo

    oder Du nutzt die Klassenprogrammierung: Da gibt es nur ein Click-Ereignis, man kann aber prüfen,
    welcher Button gedrückt wurden und dementsprechend noch Parameter an die dann auszuführenden Subs mitgeben.

    Gruß von Luschi
    aus klein-Paris


      

    Betrifft: bei dem Level? owT von: Rudi Maintaire
    Geschrieben am: 12.02.2018 20:52:39




      

    Betrifft: AW: bei dem Level? owT von: Luschi
    Geschrieben am: 12.02.2018 20:58:37

    Hallo Rudi,

    ich behaupte, daß 75% der User, die hier Formel- bzw. Vba-Lösungen bekommen, froh sind, wenn es klappt und nicht nachfragen, warum-weshalb-wieso!

    Gruß von Luschi
    aus klein-Paris


      

    Betrifft: welchen Sinn soll das denn haben? von: Matthias L
    Geschrieben am: 13.02.2018 03:56:57

    Hallo

    Wenn alle Controls(CommandButton) den selben Code ausführen sollen, reicht doch ein CommandButton

    Wenn es denn so sein muß, ist aber nicht verständlich kannst Du es nach diesem Prinzip machen

    Private Sub CommandButton5_Click()
     Unload Me
     Saison = CommandButton5.Caption
     Call Punkte_Aktualisieren
     Call TTR_pruefen_alle
    End Sub

    Private Sub CommandButton6_Click()
     CommandButton5=True
    End Sub
    

    Private Sub CommandButton7_Click()
     CommandButton5=True
    End Sub
    
    analog dann die anderen Controls

    Gruß Matthias


    Beiträge aus dem Excel-Forum zum Thema "mehrere CommandButtons - ein Code"