Anzeige
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Vorheriger Thread
Vorheriger Thread
Rückwärts Blättern
872to876
872to876
Aktuelles Verzeichnis
Verzeichnis Übersicht
Verzeichnis Übersicht
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

CommandButton in UserForm doppelt belegen?

Forumthread: CommandButton in UserForm doppelt belegen?

CommandButton in UserForm doppelt belegen?
25.05.2007 19:05:40
Lenhard
Moin!
Ich brauche mal Euren kompetenten Rat!
Ich habe ein UserForm und natürlich in diesem einige CommandButton. Kann ich nun zum einen die normale Funktion bei Click auf einem CommandButton ausführen lassen und zum anderen mit "Strg+Click" eine andere Funktion ausführen lassen?!
Viele Grüße aus dem hohen Norden!
Lenhard

Anzeige

9
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: CommandButton in UserForm doppelt belegen?
25.05.2007 19:37:15
KViertel
Hallo Lenhard,
ich denke es sollte mit den Events Click und Doppelclick gehen. Eine andere Kombination glaube ich nicht.
MfG. Klaus

AW: CommandButton in UserForm doppelt belegen?
25.05.2007 19:37:00
Gerd
Hallo Lenhard,
nutze doch einfach das, was schon integriert vorhanden ist.

Private Sub CommandButton1_Click()
Msgbox "X"
End Sub




Private Sub CommandButton1_DblClick(ByVal Cancel As MSForms.ReturnBoolean)
Msgbox "Y"
End Sub


Grüße aus dem Südwesten
Gerd

Anzeige
AW: CommandButton in UserForm doppelt belegen?
25.05.2007 20:04:35
Matthias
Hallo Lenhard,
so könnte es gehen:

Private Sub CommandButton1_KeyDown(ByVal KeyCode As MSForms.ReturnInteger, ByVal Shift As  _
Integer)
If Shift = 2 Then CommandButton1.Caption = "Befehl2"
End Sub
Private Sub CommandButton1_KeyUp(ByVal KeyCode As MSForms.ReturnInteger, ByVal Shift As Integer) _
CommandButton1.Caption = "Befehl1"
End Sub
Private Sub CommandButton1_Click()
If CommandButton1.Caption = "Befehl1" Then
MsgBox "Befehl1"
Else
MsgBox "Befehl2"
CommandButton1.Caption = "Befehl1"
End If
End Sub
Private Sub UserForm_Activate()
CommandButton1.Caption = "Befehl1"
End Sub


Evtl. musst du die KeyDown()- und KeyUp()-Ereignisse noch für andere Elemente definieren.
Gruß Matthias

Anzeige
AW: CommandButton in UserForm doppelt belegen?
26.05.2007 00:07:53
Lenhard
Hallo Matthias!
Ich bin gerade dabei alle Vorschläge hier zu durchdenken und auszuprobieren.
Dein Vorschlag ist wirklich klasse!! ...er hat jedoch ein kleines Manko:
Wenn man den CommandButton mit "Strg+Click" einmal angewählt hat, dann bleibt er visuell und von der Funktion her in dieser Stellung (bei Dir "Befehl2").
Kann man da noch etwas einfügen, was nach dem anwählen von "Befehl2" immer wieder auf "Befehl1" zurück schaltet?!
Also das "Befehl1" immer primär sichbar ist. Und "Befehl2" nur in Verbindung mit der Strg-Taste sichbar ist?
Gruß
Lenhard

Anzeige
AW: CommandButton in UserForm doppelt belegen?
26.05.2007 00:14:06
Matthias
Hallo Lenhard,
ist eigentlich schon dabei:

Private Sub CommandButton1_Click()
If CommandButton1.Caption = "Befehl1" Then
MsgBox "Befehl1"
Else
MsgBox "Befehl2"
CommandButton1.Caption = "Befehl1" '


Gruß Matthias

AW: CommandButton in UserForm doppelt belegen?
26.05.2007 10:33:00
Lenhard
Jooo! Danke nochmals für diesen Hinweis! ...aber ich habe den Fehler gefunden.
Es war meine eigene Schusselligkeit: Natürlich muss ich, wenn das UserForm und/oder Worksheet wieder AKTIV ist diesem sagen, was denn nun für eine Caption auf dem CommandButton stehen soll... ...man man Lenhard, pass doch mal besser auf! :-))
Das sind aber so die Kleinigkeiten, die sich immer wieder einschleichen, wenn man VBA-Programmierung nun endlich mal besser verstehen und umsetzen will. Irgend wann muss man ja mal weg vom Makro-Recorder...
Lange Rede, kurzer Sinn: Es läuft nun prächtig und sehr gut!!
Vielen Dank! Matthias!
Gruß
Lenhard

Anzeige
AW: Freut mich! - o.T.
26.05.2007 10:34:00
Matthias
:-)

AW: CommandButton in UserForm doppelt belegen?
25.05.2007 22:32:32
Lenhard
Ich bin überwältigt von dieser Auswahl!!! ...da finde ich bestimmt was!
Ich muss nun mal nachdenken, wie ich was realisiere. Aber egal wie: Ich kann jeden (!) dieser Vorschläge mit Sicherheit gebrauchen!
Euch allen erst mal vielen Dank!
Da ich noch nicht "ganz so firm" in Sachen VBA-Code umsetzen bin, kann es nun ein wenig dauern (Ich muss auch noch ein zwischengeschaltetes UserForm diesbezüglich bauen) bis ich mich wieder melde. Ihr hört aber auf alle Fälle noch von mir!!
Viele Grüße
Lenhard

Anzeige
AW: CommandButton in UserForm doppelt belegen?
26.05.2007 10:24:19
Lenhard
Geschafft!
Euch allen noch mals herzlichen Dank!
Gruß
Lenhard
;

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
Zelleninhalt mit CommandButton in Textbox anzeigen
Markus

Hallo an alle!
Mein Makro kann bisher folgendes:
Per Klick auf 1 von 300 Comandbuttons wird der entsprechende Inhalt aus einer von 300 Zellen in eine Textbox geladen.
"Das funktioniert"
Nun möchte ich , nachdem ich einen Button gedrückt habe und der Inhalt in Textbox angezeigt w...
21.11.2008 11:05:00
Thread-ID: 1026664
2 Beiträge
Anzeige
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
Anzeige
Per Makro ein Makro unter CommandButton einfügen
Andi

Hallo liebe Excel Gemeinde,
Ich hoffe Ihr seid alle gut ins neue Jahr gekommen!
Ich benötige eine Lösung für folgendes Problem:
Ich möchte gerne versuchen per makro in einen eben erstellten Commandbutten ein Makro zu schreiben.
Den commandbutten zu erstellen und seine Eigenschaf...
05.01.2009 09:12:15
Thread-ID: 1036897
7 Beiträge
sämtliche Commandbutton ausblenden bei Bedingung
Wolfgang

Hallo Excelianer
Wie kann ich erreichen, daß wenn eine Bedingung nicht erreicht ist, daß beim Aufruf der Userform1 sämtliche darin enthaltenen Commandbuttons ausgeblendet sind.
Gruß
Wolfgang
14.03.2009 18:24:52
Thread-ID: 1060212
4 Beiträge
Anzeige
CommandButton -> Caption in Programm verwenden
Florian

Hallo,
ich habe nach langem mal wieder ein Problem auf dem Tisch liegen.
Ich habe eine Excel-Datei erstellt und 32 CommandButton's angelegt.
Klassisch lege ich jetzt für jeden CommandButton folgenden Private Sub an: Private Sub CommandButton01_Click() Workbooks.Open Filename:=Ar...
24.03.2009 09:55:53
Thread-ID: 1063177
7 Beiträge
CommandButton in UF via Array; nicht aktivierbar
Andreas

Hallo Herber Fans,
Ich habe heute entdeckt, OK, für die Profis unter Euch ist das sicherlich nicht neu, daß man UserForms mit Hilfe von Arrays erstellen kann. Es ist m.E. nach übersichtlicher und geht schneller. Gerade in der Verwendung von CheckBoxes und Optionbuttons.
Nun will ich auc...
03.06.2009 14:50:18
Thread-ID: 1078891
5 Beiträge
Anzeige
Commandbutton hyperverlinkung
Nikolai

Hallo zusammen,
ich bin neu in diesem Forum, drum erstmal "Hallo" an alle.
Ich bin ein ziemlicher VBA Newbie, aber ich möchte über den commandbutton eine verlinkung zu einem anderen Tabellenblatt erstellen. Wie mache ich dies?
Zum Beispiel sitz mein commandbutton in Tabellenblatt 1...
30.07.2009 15:04:31
Thread-ID: 1092552
5 Beiträge
Commandbutton hyperverlinkung
Nikolai

Hallo zusammen,
ich bin neu in diesem Forum, drum erstmal "Hallo" an alle.
Ich bin ein ziemlicher VBA Newbie, aber ich möchte über den commandbutton eine verlinkung zu einem anderen Tabellenblatt erstellen. Wie mache ich dies?
Zum Beispiel sitz mein commandbutton in Tabellenblatt 1...
30.07.2009 15:15:48
Thread-ID: 1092557
3 Beiträge
mehrere CommandButton umbenennen
Dirk

Hallo Excelgemeinde,
ich habe ein Problem, was ich einfach nicht gelöst bekomme.
Ich habe in einem Tabellenblatt 11 CommandButton. Ich brauche einen Code, der die CommandButton 1-10 umbenennt.
Kann mir jemand helfen?
Gruß
Dirk
29.08.2009 15:08:28
Thread-ID: 1099313
5 Beiträge
CommandButton nach Wert eingeben löschen
René

Hallo
Ich habe folgendes Problem. In einer Zelle D6 will ich einen beliebigen Zahlenwert eingeben sollte einen bestimmten CommandButton löschen. Leider funktioniert es nicht, wenn ich in der Zelle einen Wert z.b. 1234 eingebe.
Folgenden Code habe ich unter Arbeitsmappe hinterlegt.
P...
08.10.2009 13:18:31
Thread-ID: 1108177
8 Beiträge
CommandButton bedingt einfärben?
Frank

Hallo Ihr treuen Helfer!!!
Mein Wunsch ist es, dass wenn in einer UF, welche 48 CommandButton aufweist, jener Button die Farbe rot bekommt, wenn der Name des Button gleich dem Zellinhalt der Zelle AB54 im Blatt "Fixkosten" ist.
Reicht das schon um eine hilfreiche Antwort zu bekommen, an...
09.02.2010 21:51:30
Thread-ID: 1137180
5 Beiträge
Anzeige

Beliebteste Forumthreads (12 Monate)

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