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

Shapes (AutoForm)

Forumthread: 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

Anzeige

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
Anzeige
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

;

Beliebteste Forumthreads (12 Monate)

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