Live-Forum - Die aktuellen Beiträge
Datum
Titel
25.04.2024 21:40:53
Excel Datenquelle aus dem Web mit Anmeldung?
25.04.2024 21:21:16
Zellkommentar in UserForm anzeigen und bearbeiten
25.04.2024 21:13:13
Kalenderwochen addieren
25.04.2024 21:06:05
Duplikate entfernen
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
304to308
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
304to308
304to308
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Welcher Button wurde gedrueckt?

Welcher Button wurde gedrueckt?
08.09.2003 20:59:57
Holger
Hallo,

Nehmen wir an ich habe 10 Buttons auf einem Sheet, ich moechte nun dass beim Druecken (OnAcion) ein Makro aufgerufen wird, welches herausfindet welcher Button gedrueckt wurde...
Ich weiss, dass ich theoretisch jeweils ein anderes OnAction-Marko aufrufen koennte, dass will ich aber nicht. Ich wuerde gerne wissen, wie ich ein Steuerelement, dass "aktiviert" (Beispielsweise das Klicken auf einen Button) wurde "anfassen" bzw. darauf zugreifen kann...

hilfe gesucht
Holger

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

Betreff
Datum
Anwender
Anzeige
AW: Welcher Button wurde gedrueckt?
08.09.2003 21:57:17
Holg
Habs selbst gefunden...
Falls es jemanden interessiert:

mit

ActiveSheet.Buttons(Application.Caller)

spricht man den aufrufenden Button an.
Dann kann man alle Eigenschaften wie z.B.

.Caption
..TopLeftCell.Address
(...)

von ihm abklappern

Das wars
tschoe
holg
AW: Welcher Button wurde gedrueckt?
08.09.2003 22:34:39
GerdW
Das greift aber nur bei Button aus "Formular".

Gerd
AW: Welcher Button wurde gedrueckt?
10.09.2003 15:05:18
Holg
Also ich kann damit auf meine Buttons die so:

Set objBut = ActiveSheet.Buttons.Add(BLeft, BTop + 1, Cells(e, i + 5).Width, _
Cells(e, i).Height - 1)
With objBut
.OnAction = "ShowMore"
.Caption = "i #" & ewrt1 & "#" & wert2
.Font.Name = "Arial"
.Font.FontStyle = "Bold"
.Font.Size = 6
.Font.ColorIndex = 5
.VerticalAlignment = xlTop
End With

erstellt wurden, wunderbar erfassen und auf seine Eigenschaften zugreifen

schoenen Gruss
Holger
Anzeige

Beliebteste Forumthreads (12 Monate)

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

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige