Live-Forum - Die aktuellen Beiträge
Datum
Titel
28.03.2024 21:12:36
28.03.2024 18:31:49
Anzeige
Archiv - Navigation
260to264
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
260to264
260to264
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Inhaltsverzeichnis

Shapes (AutoForm)

Shapes (AutoForm)
22.05.2003 10:23:58
Kai
Hallo Forum,
Ich habe eine Tabelle mit n Autoformen, denen ich einen Makro
zugewiesen habe. Ich möchte nun allen Objekten denselben Makro
zuweisen und dort abfragen von welchem Objekt der Makro aufgerufen wurde, damit ich nicht für jedes Objekt einen Makro brauche . In VB geht das mit "ActiveControl.name".
Geht das auch in Excel-VBA ?

Danke für jede Antwort

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

Betreff
Datum
Anwender
Anzeige
Re: Shapes (AutoForm)
22.05.2003 10:35:17
Kai
Da war ich wohl etwas zu schnell mit der
Frage, denn ich habe auch gleich ne Lösung gefunden.
Application.caller heißt das in Excel/VBA.

Trotzdem danke

Re: Shapes (AutoForm)
22.05.2003 10:35:38
Michael Schirow
hallo Kai,

probiers mal so:



Sub AssignMakroToShape()
Dim i As Integer
Dim sh As Shape
With Sheets("Tabelle1").Shapes
For i = 1 To .Count
Set sh = .Item(i)
sh.OnAction = "test2"
Next
End With
End Sub

HTH, Michael
Re: Shapes (AutoForm)
22.05.2003 11:06:01
Kai
Hi Michael,
trifft zwar nicht ganz mein Problem, hilft
mir aber trotzdem anderweitig weiter.

Danke

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige