Button klicken dann Zahl

[lazy bone]

Guten Abend zusammen,

nach langer Zeit brauch ich wieder eure Hilfe.

Nicht klar komme ich mit einer Button Funktion. Beim klicken auf Buttons soll ein pro Button festgelegter Wert in einer bestimmte Zelle angezeigt werden. Die Button habe ich schon erstellt und mit 2 verschiedene Makros ausprobiert. Klappt bei mir nicht, irgendetwas muss ich wohl falsch gemacht haben. Die Makros mit welchen ich die Button testete habe ich auf das Excelblatt gelegt. 

Nun brauche ich eure Hilfe. Würdet ihr mir ein bitte entsprechende Makros einbauen? 

Herzlichen Dank
lazy bone

[Kuwer]

Hallo,

' **************************************************************
'  Modul:  Modul5  Typ = Allgemeines Modul
' **************************************************************

Option Explicit

Sub Test()
 Dim oButton As Object
 Set oButton = ActiveSheet.Shapes(Application.Caller).OLEFormat.Object
 Range("D1").Value = Trim(Split(oButton.Caption, "=")(0))
End Sub

Gruß Uwe

[lazy bone]

Hello Uwe,

thanks, u made my day 

lazy bone