Allgemeiner Code einzeln für jeden Button ausführen
13.02.2024 19:55:45
Norim1900
Ich habe mehrere Buttons (ActiveX) in einer Tabelle, welche jedoch selber nur per VBA Code erzeugt werden. Wenn man nun auf einen Button klickt fügt sich eine neue Zeile direkt immer oberhalb dieses Buttons hinzu. Nun möchte ich aber gerne, dass dies für jeden einzelnen Button selber gilt. Da es sehr viele Buttons sind ist eine manuelle Vergabe des Codes in den Buttons leider so nicht möglich.
Ich habe bereits einen Code gefunden bzw so verändert, dass zumindestens jeder Button diesen Code ausführt:
Dim x As Byte
On Error Resume Next
For x = 1 To ActiveSheet.OLEObjects.Count
If InStr(1, ActiveSheet.OLEObjects(x).Name, "CommandButton") Then
With ActiveSheet.OLEObjects(x)
Rows(.TopLeftCell.Row).Insert Shift:=xlDown
End With
Exit Sub
End If
Next xVielleicht kann mir ja jemand helfen....denke euch.