ich möchte über VBA einen Button in mehrere Tabellenblätter einfügen, der bei Betätigung ein Makro aufruft. Der Button soll dabei auf dem ersten Tabellenblatt erstellt und für die restlichen kopiert werden.
Bei der Erstausführung bekomme ich allerdings den Laufzeitfehler 1004: "Die Characters-Eigenschaft des Button-Objektes kann nicht zugewiesen werden".
Lösche ich anschließend den eingefügten, aber unbeschrifteten Button aus dem Tabellenblatt und führe das Makro erneut aus, funktioniert alles einwandfrei.
Dim iCol As Integer
Dim oButton As Object
[...]
If intCol = 1 Then
Set oButton = Sheets(Tabelle1.Cells(1, iCol).Value).Buttons.Add(iLeftButton, iTopButton, iWidthButton, iHeightButton)
oButton.Characters.Text = "Standardwerte wiederherstellen"
oButton.Name = "ButtonStdWerte"
oButton.OnAction = "'" & ThisWorkbook.Name & "'!" & "StandardwerteWiederherstellen.StandardwerteWiederherstellen"
Else
Sheets(Tabelle1.Cells(1, 1).Value).Buttons("ButtonStdWerte").Copy
With Sheets(Tabelle1.Cells(1, iCol).Value)
.Paste
.Shapes(.Shapes.Count).Top = iTopButton
.Shapes(.Shapes.Count).Left = iLeftButton
End With
End If
Ich hoffe, mir kann hier jemand weiterhelfen.
Vielen Dank und Grüße
Tom