Live-Forum - Die aktuellen Beiträge
Anzeige
Archiv - Navigation
1420to1424
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
Inhaltsverzeichnis

Button-Namen übergeben

Button-Namen übergeben
28.04.2015 09:55:21
Ludwig
Hallo Experten
Im Excel-Sheet rufe ich per Button eine VBA-Procedure auf, wie kann ich in der Procedure den aufrufenden Buttonnamen einer Variablen zuordnen?
With oButton
ButtonName= .Name
End With
Für eine Antwort vielen Dank im Voraus.
MfG
Ludwig

6
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Button-Namen übergeben
28.04.2015 09:56:24
Nepumuk
Hallo,
welcher Art ist der Button?
Gruß
Nepumuk

AW: Button-Namen übergeben
28.04.2015 10:25:43
Martin
Hallo Ludwig,
suchst du das?
Private Sub CommandButton1_Click()
MsgBox Me.CommandButton1.Caption
End Sub
Viele Grüße
Martin

AW: Button-Namen übergeben
28.04.2015 11:15:21
Ludwig
Hallo Martin
Nein, da ja in "Me.CommandButton1.Caption" der gesuchte Teil "CommandButton1" drin sein muß.
Hallo Nepomuk
Der Aufruf geht über eine Befehlsschaltfläche(ActiveX-Steuerelement).
Gruß Ludwig

AW: Button-Namen übergeben
28.04.2015 11:37:10
Nepumuk
Hallo,
im Click-Event eines Button steht doch der Name des Buttons schon fest. Wozu willst du den dann noch dynamisch auslesen?
Gruß
Nepumuk

Anzeige
AW: Button-Namen übergeben
28.04.2015 12:09:50
Ludwig
Hallo Nepomuk
Ich wollte die Eigenschaften des Buttons in einer Unterprozedur einstellen und dazu eben den Namen des aufrufenden Buttons übergeben. Das kann ich natürlich auch in dem Click-Ereignis direkt machen. Nachfolgender Code funktioniert allerdings nicht:
ButtonName = Me.CB_GussME.Name
With ButtonName
.Visible = True
.Enabled = True
.Height = 22.5
.Width = 60
End With
Gruß Ludwig

AW: Button-Namen übergeben
28.04.2015 13:51:16
Ludwig
Hallo Experten
Habe es jetzt so gemacht:
With Sheets(Me.Name).CB_Name
.Visible = True
.Enabled = True
.Height = 22.5
.Width = 60
End With
Nicht sehr elegant und nicht Unterprozedurfähig, aber geht!
Gruß Ludwig
Anzeige

Links zu Excel-Dialogen

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige