Nichts wird angezeigt
15.12.2007 16:25:00
Kurt
Hey Gerd,
habe so reingesetzt:
Private Sub CommandButton2_Click()
Call MyMakro(CommandButton2.Caption)
End Sub
Sub MyMakro(cmdbCaption As String)
MsgBox cmdbCaption
End Sub
Es wird in der MSGBOX nichts angezeigt.
Kann man das nicht doch mit einem Button, Schaltfläche durchführen ?
Dann hätte ich für alle Schaltflächen nur 1 Makro.
Also so:
Sub Test()
Dim bn As String
' bn = ActiveSheet.Buttons(ActiveSheet.Buttons.Count).Characters.Text
' bn = ActiveSheet.Buttons.Characters.Text
' bn = Selection.Characters.Text
(leider klappt das nicht so)
MsgBox bn
hier meine weiter Ausführung...
End Sub
gr Kurt