Einer Symbolleistenschaltfläche ein Makro zuweisen
02.12.2005 11:31:19
sanjoe
Ich hab ein kleines Problem
In Diese Arbeitsmappe steht folgendes Makro:
Private Sub Workbook_Open()
Suchen
usrNachtragen.Show
Call Schaltfläche_erstellen
End Sub
Private Sub Workbook_BeforeClose(Cancel As Boolean)
Call Schaltfläche_löschen
End Sub
In einem Modul steht folgendes Makro:
Sub Schaltfläche_erstellen()
Application.CommandBars("Standard").Controls.Add Type:=msoControlButton, ID _
:=2950, Before:=25
End Sub
Sub Schaltfläche_löschen()
On Error Resume Next
Application.CommandBars("Standard").Controls(25).Delete
End Sub
Nun möchte ich dieser Schaltfläche ein Makro zuweisen.Wer kann mir helfen?