Hallo,
ich habe aus dem Internet ein Add in. Teilweise tut es das was ich möchte, teilweise werde ich es in nächster Zeit (mit eurer Hilfe) weiter entwickeln.
Dazu meine 1. Frage:
Das folgende steht unter DieseArbeitsmappe:
Option Explicit
Private Sub workbook_open()
SNeuesMenueEinfügen
End Sub
---------------------------------------
Private Sub Workbook_beforeclose(cancel As Boolean)
SMenüLöschen
End Sub
------------------------------------
Das folgende steht im Modul "Menue"
Option Explicit
Sub SNeuesMenueEinfügen()
Dim i As Integer
Dim i_Hilfe As Integer
Dim MenüNeu As CommandBarControl
Dim MB As CommandBarControl
i = Application.CommandBars(1).Controls.Count
i_Hilfe = Application.CommandBars(1).Controls(i).Index
Set MenüNeu = Application.CommandBars(1). _
Controls.Add(Type:=msoControlPopup, Before:=i_Hilfe, temporary:=True)
MenüNeu.Caption = "Makros"
'-------------------------------------
Set MB = MenüNeu.Controls.Add _
(Type:=msoControlButton)
With MB
.Caption = "Daten in Zahlen umwandlen"
.Style = msoButtonCaption
.OnAction = "WandelinEXCEL"
Set MB = MenüNeu.Controls.Add _
(Type:=msoControlButton)
With MB
.Caption = "Blattschutz_ein"
.Style = msoButtonCaption
.OnAction = "Blattschutz_ein"
Set MB = MenüNeu.Controls.Add _
(Type:=msoControlButton)
With MB
.Caption = "Blattschutz_aus"
.Style = msoButtonCaption
.OnAction = "Blattschutz_aus"
End With
End With
End With
End Sub
Sub SMenüLöschen()
On Error Resume Next
With Application.CommandBars(1)
.Controls("Makros").Delete
End With
End Sub
Sind die beiden Mini-Makro unter DieseArbeitsmappe überflüssig (wenn man die beiden anderen entsprechend ergänzt)?
3 mal steht in dem einen Makro"i_Hilfe.....". Was will der Autor damit sagen??
Ist der Programmcode ansonsten in Ordnung oder hat jemand Tipps was ich verbessern / ergänzen kann / sollte?
Dieses Menue soll nach und nach weitere Makroaufrufe aufnehmen.
vielen Dank im voraus
mfg
Wolfgang H.