AW: Makros dürfen nur in Ursprungsdatei laufen
12.04.2007 17:11:26
Peter
Hallo Matthias
Ich rufe die Makros via separate Menuposition auf, welche ich im Modul Menuerweiterung wie folgt definiert habe (auch hier werde ich natürlich deinen Hinweis betreffend Application Statusbar noch umsetzen):
Const MenueName = "&PVK-Check"
Const Befehl1 = "&Import alle Daten"
Const Befehl2 = "&Import Daten aus PVK-Berechnungen"
Const Befehl3 = "&Import Daten aus Kursmail"
Sub Menü_Erstellen()
Dim MB As Object, MeinMenü As Object, Befehl As Object
Call Menü_Löschen
Set MB = CommandBars.ActiveMenuBar
Set MeinMenü = MB.Controls.Add(Type:=msoControlPopup, Temporary:=True)
MeinMenü.Caption = MenueName
Set Befehl = MeinMenü.Controls.Add(Type:=msoControlButton, ID:=1)
With Befehl
.Caption = Befehl1
.OnAction = "Machwas1"
End With
Set Befehl = MeinMenü.Controls.Add(Type:=msoControlButton, ID:=1)
With Befehl
.Caption = Befehl2
.OnAction = "Machwas2"
End With
Set Befehl = MeinMenü.Controls.Add(Type:=msoControlButton, ID:=1)
With Befehl
.Caption = Befehl3
.OnAction = "Machwas3"
End With
End Sub
Sub Menü_Löschen()
On Error Resume Next
CommandBars.ActiveMenuBar.Controls(MenueName).Delete
End Sub
Sub Machwas1()
' MsgBox "Daten werden importiert", vbExclamation
Application.StatusBar = "Alle Daten werden importiert"
Call Importieren
Application.StatusBar = ""
End Sub
Sub Machwas2()
Application.StatusBar = "Daten aus PVK-Berechnungen werden importiert"
Call DatenPVKsHolen
Application.StatusBar = ""
End Sub
Sub machwas3()
Application.StatusBar = "Daten aus Kursmail werden importiert"
Call DatenKursmailHolen
Application.StatusBar = ""
End Sub
Gruss, Peter