gibt es eine Möglichkeit, einen Button zulöschen, in dem man seine Zelle genau angibt.
z.b. Button liegt in A4
danke im Vorraus
Sub ZeileLöschen()
start:
Zeile = InputBox("Welche Zeile löschen?", , "06", 7000, 8000)
Rows(Zeile).Select
Selection.Delete Shift:=xlUp
If Zeile = "END" Then GoTo ENDE
If Zeile = "end" Then GoTo ENDE
GoTo start
ENDE:
End Sub
Sub menue()
Dim oBar As CommandBar
Dim oBtn As CommandBarButton
Dim iCounter As Integer
Call DeleteCmdBar
Set oBar = Application.CommandBars.Add( _
name:="Menüname", _
temporary:=True, _
Position:=msoBarTop)
With oBar
.Visible = True
.Top = 150
.Left = 70
End With
Set oBtn = oBar.Controls.Add
With oBtn
.FaceId = 46
.TooltipText = "Tabellenende"
.Style = msoButtonIconAndCaption
.Caption = "&" & "Tabellenende"
.OnAction = "Auszuführendes_Makro"
End With
End Sub