Anzeige
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 Übersicht
Verzeichnis Übersicht
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Commandbuttons

Forumthread: 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

Anzeige

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

;

Forumthreads zu verwandten Themen

Commandbuttons einfärben
Wolfgang

Hallo Excel Experten.
Stehe vor einem Problem bei dem ich nicht mehr weiterkommen.
Ich habe in einer Userform 42 CommandButton, die je nach Programmablauf verschieden eingefärbt werden sollen.
Es will mir aber nicht gelingen, diese einzeln in einer Schleife anzusprechen, den momenta...
15.10.2008 08:56:10
Thread-ID: 1016475
3 Beiträge
Allgemeiner code für mehrer Commandbuttons
Christoph

Hallo zusammen,
Wie kann ich für mehrere Commandbuttons, die alle in einer Frame sind, allgemein ansprechen?
Konkret:
Dieser Code funktioniert jetzt nur für die Buttons A und B und analog für die restlichen 28.
Ich möchte aber, dass dieser Code für Alle Buttons in dem Frame 'erw...
13.11.2008 07:59:00
Thread-ID: 1024024
7 Beiträge
per Makro CommandButtons mit individuellem Code
Gerry83

Hallo zusammen
Ein externes Programm führt mit unterschiedlichen Parametern 20736 Berechnungen durch, die Ergebnisse werden in jeweils eine *.txt Datei geschrieben. Zusätzlich erhalte ich ein Flag, ob die Berechnung erfolgreich war oder nicht.
Ein Makro soll mir nun 20736 CommandButtons...
23.11.2008 16:29:00
Thread-ID: 1027102
6 Beiträge
Alle Commandbuttons auf Enabled false
Tom

Hallo Nochmals
Habe eine aufwendige Datei mit einigen UF's erstellt.
Diese Datei nenne ich Masterdatei.xlw.
Um diese Datei nicht als Arbeitsdatei zu benutzen sollten alle Commandbuttons in der Userform Eingang auf Enabled false gesetzt werden ausser Commandbutton5.
Beim laden...
01.03.2009 22:02:20
Thread-ID: 1055369
11 Beiträge
Anzeige
If Abfrage Laufwerk für enabled Commandbuttons
Wolfgang

Hi
Kriege es nicht hin. Wollte abfragen, ob Laufwerk und Ordner gleich sind wie in Zelle C3 dann weiter sonst fast alle Commandbuttons ausblenden ausser Comm 16 und 9.
Bei ChDir erhalte ich einen Fehler. In Zelle A3 steht C:\Prodat
Private Sub UserForm_Initialize()
Dim objCon A...
14.03.2009 20:54:51
Thread-ID: 1060277
7 Beiträge
versch Makros dyn erzeugten Commandbuttons zuordne
C.

Hallo Leute,
folgendes mache ich:
For i = 1 to AnzahlButtons
Set tebo = Controls.Add("Forms.commandbutton.1")
next AnzahlButtons
Mit den Commandbuttons sollen Makros ausgeführt werden können, die sich leicht unterscheiden. Zur Unterscheidung würde eine Variable genügen, aber...
15.05.2009 18:53:49
Thread-ID: 1075570
6 Beiträge
UserForm CommandButtons schleifengesteuert
Andreas

Hallo Herber Fans,
ich bin gerade dabei, mein Wissen um UserForms zu vertiefen und bin auf ein Problem in der schleifengesteuerten Einrichtung von UserForms gestoßen. Die Suche im Forum und auf meiner Herber CD hat bisher keinen Lösungsansatz zu Tage gefördert.
Also: Ich richte auf eine...
07.06.2010 14:48:31
Thread-ID: 1160687
3 Beiträge
CommandButtons funktionieren nicht mehr
gumpwit

Hallo Gemeinde,
hatte jemand von Euch dieses Problem schon mal:
Alle neuen und bereits vorhandenen CommandButtons auf einem Excel-Sheet reagieren nicht mehr auf klicken, alle anderen Controls funktionieren ganz normal.
In Dialogen geht das einwandfrei.
Es sieht so aus, als wäre...
22.06.2010 13:28:31
Thread-ID: 1163418
5 Beiträge
CommandButtons verschwinden
Fluppe

Hallo,
Ich habe in meiner Tabelle derzeit 84 Commandbuttons. Jeder von ihnen soll einen Filter (den Wert der immer links von dem Button steht) auf dem Tabellenblatt "Zahlungsstufen" einfügen und auch auf das dieses Tabellenblatt wechseln.
Leider hab ich das Problem, dass ab und an die C...
18.07.2011 11:24:12
Thread-ID: 1222560
5 Beiträge
CommandButtons frieren ein nach Entwurfsmodus
Frederic

Hallo liebes Forum,
ich hab ein sehr nerviges Problem:
Ich habe verschiedene Buttons (3 Stück), welche "Übereinander" liegen (zeigt mir, welche "Auswahlfunktion gerade aktiviert ist"). Sieht folgendermaßen aus:
"Alle Buttons in grau und grün (Grün ist "aktiv")
Me.KEROn.Visible =...
09.02.2012 11:11:14
Thread-ID: 1249894
7 Beiträge
UserForm: CommandButtons mit Caption ausblenden
Sebastian

Hallo zusammen,
ich habe mal wieder "so ein Problem"... :-)
Ich möchte in einem alle Commandbuttons mit enem bestimmten Text in der Caption ausblenden.
so ähnlich wie
Dim tb As Object
For Each tb In UserForm_EingabeALLE.Controls
If TypeName(tb) = "CommandButton" Then tb...
13.09.2012 19:52:21
Thread-ID: 1278539
6 Beiträge
Anzeige
zu Commandbuttons-Textfelder hinzu...
robert

Dim aCommands(100) As New clsButton
Hi,
mit diesem Code erstellt man eine Anzahl von Commandbutons in einem Userform.
Ich bräuchte jetzt neben den Conmmandbuttons eine Textbox.
Ich habs probiert, aber ich schaff es nicht :-(
Wer kann helfen ?
Gruß
robert
Private...
10.02.2013 11:58:49
Thread-ID: 1298523
26 Beiträge

Beliebteste Forumthreads (12 Monate)

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