Live-Forum - Die aktuellen Beiträge
Datum
Titel
20.04.2024 00:49:19
Excel Sheet in einen Excel Kalender einfügen
20.04.2024 00:08:11
In Ordner nur das Speichern von Dateien erlauben
19.04.2024 21:26:15
mehrfache Texte finden
19.04.2024 19:41:34
Bei VBA Ausführung Anzeige einfrieren
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
1740to1744
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
1740to1744
1740to1744
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

VBA Button mit Action und Parameter

VBA Button mit Action und Parameter
24.02.2020 08:47:13
W
Hallo Forum,
ich nutze auf einer Seite mehrere Buttons, welche per Makrocode generiert werden. Das läuft bisher alles ganz rund. Doch jetzt habe ich ein kleines Problem; mit insgesamt 3 Buttons möchte ich das gleiche Makro aufrufen, jedoch soll bei jedem der 3 Aufrufe ein Parameter an das Makro mitgegeben werden, um Unterschiede im Ablauf zu steuern.
Die Eigenschaften jedes Button werden wie folgt festgelegt:
With FormularControl
.Name = BName
.Characters.Text = BTitel
.Enabled = True
.LockedText = False
.OnAction = BAction
.Placement = xlMoveAndSize 'xlFreeFloating
.PrintObject = False
End With
BName, BTitel und BAction gebe ich als Paramter mit
Was muss ich ändern, um den oben genannten Parameter an den Action-Code zu übergeben?
Gruß W H21

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

Betreff
Datum
Anwender
Anzeige
AW: VBA Button mit Action und Parameter
24.02.2020 09:09:11
Daniel
Hi
bei OnAction gibt es keine Parameterübergabe.
wenn du das gleiche Makro für mehrere Buttons mit leichten Variationen benutzen willst, kannst du mit Application.Caller im Marko den Namen des Aufrufenden Buttons ermitteln und daraus dann die Variation ableiten.
hierzu kannst du dann den benötigten Wert beispielsweise im Button-Namen hinterlegen, oder du kannst über den Namen des Buttons auf seine Objekteigenschaften wie Position oder ähnliches zugreifen und damit weiter arbeiten.
Sub Schaltfl?che1_Klicken()
MsgBox Application.Caller & vbLf & ActiveSheet.Shapes(Application.Caller).TopLeftCell.Address(0, _
0)
End Sub
Gruß Daniel
Anzeige
AW: VBA Button mit Action und Parameter
24.02.2020 09:16:11
W
Hallo Daniel,
Danke für Deine Antwort.
Habe es getestet und für gut befunden; mein Problem ist - dank dem Forum und seiner Freunde - wieder einmal sehr schnell gelöst worden.
Gruß W H21
AW: VBA Button mit Action und Parameter
24.02.2020 09:36:57
W
Hallo Daniel,
jetzt habe ich doch noch ein kleines Problem gefunden.
Der Code läuft einwandfrei, wenn ich das Makro nur über den Button aufrufe. Wenn ich es anders aufrufe, arhalten ich bei der Abfrage nach dem Application.Caller einen Laufzeitfehler 13.
Gibt es dafür eine andere Lösung als "On Error Resume Next"?
Gruß W H21
AW: VBA Button mit Action und Parameter
24.02.2020 09:45:39
Daniel
Hi
wüsste ich jetzt auch nicht.
ich würde aber dann am Anfang den Application.Caller einer Stringvaraible zuweisen:
On Error Resume Next
strAC = Application.Caller
On Error Goto 0
und dann in der folge mit der Variable anstelle von Application.Caller arbeiten.
dann brauchst du das On Error Resume Next nur an diese Stelle und kannst im Rest des Codes wie gewohnt arbeiten.
außerdem kannst du dann mit einer einfachen Abfrage If strAC = "" überprüfen, ob das Makro über einen Button oder über einen anderen Weg aufgerufen wurde, oder du kannst dem strAC einen entsprechenden Wert zuweisen.
Gruß Daniel
Anzeige
AW: VBA Button mit Action und Parameter
24.02.2020 10:32:39
Daniel
HI
noch ne Variante, wie du das lösen kannst:
trenne das Problem auf in 2 Makros.
Makro1 ist das eigentliche Makro welches die Arbeit ausführt. Erstelle dies mit der entsprechenden Parameterübergabe.
das Makro2 verwendest du als OnAction-Makro für die Buttons. Hier ermittelst du ausgehenend von Application.Caller den notwendigen Übergabeparameter und rufst dann damit das Makro1 auf.
wann ist dieser Weg sinnvoll und wann die Methode von Nepumuk?
ich würde diese Methode verwenden, wenn du den Übergabeparameter in irgendeiner Form aus den Buttoneigenschaften oder der Zellposition ableiten kannst (z.B. Übergabeparameter ist der Wert einer Nachbarzelle des Buttons)
die Methode von Nepumuk ist dann sinnvoll, wenn der Übergabeparameter ein beliebiger Wert ist, der nicht "berechnet" oder sonst wie ermittelt werden kann.
Gruß Daniel
Anzeige
AW: VBA Button mit Action und Parameter
24.02.2020 09:16:47
Nepumuk
Hallo,
ein Beispiel:
Option Explicit
Public Sub Beispiel()
With Tabelle1.Shapes("Button 1")
.OnAction = "'Test 1'"
End With
End Sub
Public Sub Test(intNumber As Integer)
MsgBox intNumber
End Sub

Gruß
Nepumuk
AW: VBA Button mit Action und Parameter
24.02.2020 10:05:33
W
Hallo Nepumuk,
Deine Antwort habe ich bisher übersehen.
Natürlich habe ich Deinen Code ebenfalls umgehend probiert. Dabei habe ich aber statt der Ziffern sprechende Namen genommen. Damit hat es leider nicht funktioniert. Nachdem ich die Namen durch Nummern ersetzt hatte. hatte ich den gewünschten Erfolg.
In meinem oben dargestellten Code gebe ich als Parameter für meine Varianle BAction nun "'MyMacro 0'" bzw. "'MyMacro 1'" mit. Dieser Wert wird mir dann im aufgerufenen MyMakro als 1. Parameter angeboten.
Das wars. Danke.
Gruß W H21
Anzeige
AW: VBA Button mit Action und Parameter
24.02.2020 10:11:56
Nepumuk
Hallo,
wenn du Text übergeben willst, dann musst du ihn in Anführungszeichen setzen:
Public Sub Beispiel()
With Tabelle1.Shapes("Button 1")
.OnAction = "'Test ""Text""'"
End With
End Sub
Public Sub Test(strText As String)
MsgBox strText
End Sub
Gruß
Nepumuk
AW: VBA Button mit Action und Parameter
24.02.2020 10:18:03
Daniel
Buttonklick mit Paramteterübergabe, kannte ich auch noch nicht.
wieder was gelernt.

99 Forumthreads zu ähnlichen Themen

OptionButtons in Grp mittels Makro erstellen
adrian

Hi,
wie folgt wird ein OptionButton mittels Makro erstellt: Die Prozedur wird dann zusammen mit einer anderen im HauptSheet aufgerufen.
Nur weiß ich leider nicht wie ich mehrere OB, bzw. drei untereinander als Gruppe erstellen kann =(
Mehrere Prozeduren, für jeweils jeden OB ist ja...
16.12.2008 14:44:00
Thread-ID: 1033291
13 Beiträge
Anzeige
Datei mit Button starten
Michael

Hallo Leute,
ich habe eine Exceldatei namens "Test.xls" sowie ein AVIfile(Ferien.avi)auf CD-Rom gebrannt.Nun möchte ich nachdem ich Test.xls gestartet habe, mit einem Button in "Tabelle1" das Video starten.Hat jemand eine Idee wie der Code in dem Button aussehen muss ??
Danke im voraus.
11.04.2002 01:45:49
Thread-ID: 112282
3 Beiträge
2 Code mit ein Button starten
Volker

Hallo liebe Excelgemeinde.
Ich hatte vor einiger Zeit mal einen Code der per Button ausgelöst wird gefunden, der beim erste Klick den Blattschutz ausstellt und beim zweiten Klick wieder einstellt. Der Code wurde beim öffnen der Arbeitsmappe gestartet, und beim Abspeicher wird der Blattschu...
07.02.2010 15:19:43
Thread-ID: 1136575
4 Beiträge
Anzeige
UserForm mittels vba ohne separaten Button starten
Ole

Hallo Ihr Profis,
sitze schon ewig und google aber habe seit Stunden nicht gefunden, was ich anders machen muß. Würde mich riesig freuen, wenn Ihr helfen könntet. Habe folgendes Problem: Habe in meinem Projekt eine UserForm erzeug, wie man dies ganz normal tut. Projekt, rechte Maus, Einfüge...
22.05.2010 21:01:46
Thread-ID: 1158426
7 Beiträge
Makro mit Button starten in gleicher Mappe (Sheet)
chris

Hallo und guten morgen an alle,
könnt ihr mir bitte helfen `?
ich habe eine Datei.In dieser Datei gibt es Module und Formulare und zwei Sheets.
ich kopiere mit dem makro das Sheet in eine neue Mappe speichere und schliese diese.
In dem Sheet ist in der Quelldatei ein Makro.
...
21.06.2010 08:36:26
Thread-ID: 1163028
7 Beiträge
Makro mit Button
Ralf

Hallo Excel - Experten,wie kann ich Makrosymbole (z.B. das Smiley) mit einem
bestimmten Makro hinterlegen, aber so dass das Makro
immer da ist.
Ich habe gerade in einer Excel Datei ein Makro geschrieben und
es einem Smiley zugeordnet. Wenn ich jetzt den Smiley button
drücke, öf...
30.04.2002 16:48:18
Thread-ID: 117521
3 Beiträge
Makro mit "wenn Funktion" starten
hans

Hallo,
kann mir jemand sagen was an folgenden "Test" falsch ist.
Oder ist so etwas grundsätzlich nicht möglich.?
Danke und sorry (sollte es eine zu primitive Frage sein)
=WENN(A1=1;Test1()) Function Test1() Application.Volatile Testlauf End Function
Sub Testlauf()
Ca...
27.11.2010 14:45:48
Thread-ID: 1189027
19 Beiträge
zwei Makros mit einem Button
René

Hallo,
kann mir bitte jemand helfen? Ich möchte diese zwei Makros mit nur einem Commandbutton auslösen. Geht das? Sind eben leider unterschiedle Ordner die durchsucht werden müssen und da meckert der Debugger bei Dim strDatei weil halt Mehrfachdeklarierung.
Danke René Private Sub Co...
16.01.2011 21:55:10
Thread-ID: 1195892
5 Beiträge
Anzeige

Beliebteste Forumthreads (12 Monate)

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

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige
Archiv - Verwandte Themen
Forumthread
Beiträge
12
5
2
3
2
6
6
2
18
4
2
1
13
2
1
2
4
5
2
3
5
13
4
2
24