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
Die erweiterte Suchfunktion hilft dir, gezielt die besten Antworten zu finden
Suche nach den besten AntwortenEntdecke unsere meistgeklickten Beiträge in der Google Suche
Top 100 Threads jetzt ansehen