HAllo!
Bei dem unten stehenden Code wird mir immer wieder LAufzeitfehler '438' angezeigt. Leider weiß ich nicht was an der Zeile dHeight=.. falsch ist.
Kann mir da jemand helfen?
Danke
Andy81
Dim btn As Button
Dim dWidth As Double
Dim dHeigth As Double

dWidth = Range("C37").Width + Range("D37").Width
dHeigth = Range("C37").Heigth + Range("C38").Heigth
Set btn = Tabelle3.Buttons.Add(Range("C37").Left, Range("C37").Top, dWidth, dHeigth)
btn.OnAction = "Message"
btn.Caption = "Speichern"
btn.Visible = True