Commandbuttons

Informationen und Beispiele zu den hier genannten Dialog-Elementen:
Bild

Betrifft: Commandbuttons
von: Klaus
Geschrieben am: 01.05.2015 19:14:05

Hallo Forum,
-ich habe auf einem Tabellenblatt 2 Commandbuttons
-beide Buttons öffnen die selbe UserForm
so weit so gut - funktioniert bis hierher
was passieren soll:
wie bekomme ich das hin, dass die UserForm erkennt, welchen der beiden Commandbuttons ich gedrückt habe, weil danach 2 unterschiedliche Makros ausgeführt werden sollen.
kann mir dabei jemand helfen?
danke Klaus

Bild

Betrifft: AW: Commandbuttons
von: Hajo_Zi
Geschrieben am: 01.05.2015 19:16:44
Hallo Klaus,
application.caller


Bild

Betrifft: AW: Commandbuttons
von: Nepumuk
Geschrieben am: 01.05.2015 20:07:52
Hallo,
@Hajo: Damit läufst du bei einem CommandButton in einen Fehler!
Würde ich so machen:

' **********************************************************************
' Modul: Tabelle1 Typ: Element der Mappe(Sheet, Workbook, ...)
' **********************************************************************

Option Explicit

Private Sub CommandButton1_Click()
    With UserForm1
        .Tag = "1"
        .Show
    End With
End Sub

Private Sub CommandButton2_Click()
    With UserForm1
        .Tag = "2"
        .Show
    End With
End Sub

' **********************************************************************
' Modul: UserForm1 Typ: Userform
' **********************************************************************

Option Explicit

Private Sub UserForm_Activate()
    If Tag = "1" Then
        Call Makro1
    ElseIf Tag = "2" Then
        Call Makro2
    Else
        MsgBox "Panik"
    End If
End Sub

Gruß
Nepumuk

Bild

Betrifft: AW: Commandbuttons
von: Klaus
Geschrieben am: 01.05.2015 20:15:49
hey Hajo_Zi
danke für deine Antwort.
kannst du mir irgendwie mal ein beispiel geben, wie der code aussehen kann. ich kann nicht wirklich was mit anfangen.
danke dir
grüße klaus

 Bild

Beiträge aus den Excel-Beispielen zum Thema "Commandbuttons"