Vielen Dank,
sascha
Private Sub Workbook_SheetChange(ByVal Sh As Object, ByVal Target As Range)
' Dein Code oder dein Makroname
End Sub
Dann wird er immer ausgeführt, wenn eine Eingabe in einer beliebigen Tabelle erfolgt.
________________________________________
Sub thomas()
MsgBox "Hallo, ich bin Thomas"
End Sub
Sub buttons_erstellen()
Dim wsTabelle As Worksheet
For Each wsTabelle In ThisWorkbook.Worksheets
wsTabelle.buttons.Add(84.75, 32.25, 108.75, 27).OnAction = "thomas"
wsTabelle.buttons(1).Text = "Ausführen"
Next wsTabelle
End Sub
Bis später,
Karin