VBA EXCEL Makroaktivierung durch formen(shapes)

Computer: Software & Programmierung Programmierung allgemein
#1

Hallo Retter;

folgende Problematik: Ich möchte mehrere Linien zeichnen, die als Ereignis jeweils das gleiche Untermakro aufrufen s. Beispielprogramm:frowning:Test_makro1: 2 Linien werden automatisch gezeichnet und es wird bei Mouseclick auf das Untermakro MSG_Makro verwiesen). Nun die Frage:

Wie kann ich im Untermakro „MSG-Makro“ erkennen, auf welche der beiden Linien geklickt wurde (als Information testm1 oder testm2) ???

Sub TEST_Makro1()

ActiveSheet.Shapes.AddLine(159#, 85.5, 318#, 273#).Select
Selection.OnAction = „MSG_MAKRO“
Selection.Name = „testm1“

ActiveSheet.Shapes.AddLine(159#, 90, 318#, 273#).Select
Selection.OnAction = „MSG_MAKRO1“
Selection.Name = „testm2“

End Sub

Sub msg_makro1()
Msgbox „welche Linie hat das Makro aktiviert ???“
End Sub

im voraus vielen Dank M.S.

#2

Hallo Retter;

Hi Ich kann nur VB, aber folgendes könnte klappen:

Sub TEST\_Makro1()

 ActiveSheet.Shapes.AddLine(159#, 85.5, 318#, 273#).Select
 Selection.OnAction = "MSG\_MAKRO 1"
 Selection.Name = "testm1"


 ActiveSheet.Shapes.AddLine(159#, 90, 318#, 273#).Select
 Selection.OnAction = "MSG\_MAKRO 2"
 Selection.Name = "testm2"

End Sub

Sub msg\_makro1(Index as Integer)
if Index =1 then
...
else
...
end if
Msgbox "Linie" & index & " hat das Makro aktiviert!!!!!!!"
End Sub

Wenn das nicht geht, dann schau mal in der Hilfe unter Control-Arrays.

cu, holli