Live-Forum - Die aktuellen Beiträge
Datum
Titel
19.04.2024 15:39:42
Exceltabelle daten per combobox zu word Datei
19.04.2024 14:04:05
PDF per VBA ausgeben - Seitenskalierung
19.04.2024 13:58:02
Set Worksheet geht im O365 aber im Excel 2016 nicht
19.04.2024 13:49:38
Per Kopfdruck als pdf speichern und Mail erstellen
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
1424to1428
Aktuelles Verzeichnis
Verzeichnis Index
Übersicht Verzeichnisse
Vorheriger Thread
Rückwärts Blättern
Nächster Thread
Vorwärts blättern
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Vorheriger Thread
Vorheriger Thread
Rückwärts Blättern
1424to1428
1424to1428
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Commandbuttons

Commandbuttons
01.05.2015 19:14:05
Klaus

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

3
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Commandbuttons
01.05.2015 19:16:44
Hajo_Zi
Hallo Klaus,
application.caller

AW: Commandbuttons
01.05.2015 20:07:52
Nepumuk
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
Anzeige
AW: Commandbuttons
01.05.2015 20:15:49
Klaus
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

Beliebteste Forumthreads (12 Monate)

Anzeige
Jetzt das Excel-Portal bewerten: Deine Stimme zählt!

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige