Mehrere Makros auf einmal ausführen

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

Hallo Roland,

hier der Code von Hans, siehe https://www.herber.de/mailing/014798h.htm, etwas erweitert.

Private Sub Workbook_Open()
Dim oBar As CommandBar
Dim wks As Worksheet
Dim iRow As Integer
On Error Resume Next
Set wks = ThisWorkbook.Worksheets("CmdBars")
wks.Cells.ClearContents
For Each oBar In Application.CommandBars
If oBar.Visible And oBar.Type <> msoBarTypeMenuBar Then
iRow = iRow + 1
wks.Cells(iRow, 1).Value = oBar.Name
oBar.Visible = False
End If
Next oBar
Application.CommandBars("Worksheet Menu Bar").Enabled = False
Application.DisplayFormulaBar = False
End Sub

Private Sub Workbook_BeforeClose(Cancel As Boolean)
Dim oBar As CommandBar
Dim iRow As Integer
On Error Resume Next
iRow = 1
With ThisWorkbook.Worksheets("CmdBars")
Do Until IsEmpty(.Cells(iRow, 1))
Application.CommandBars(.Cells(iRow, 1).Value).Visible = True
iRow = iRow + 1
Loop
.Cells.ClearContents
End With
Application.CommandBars("Worksheet Menu Bar").Enabled = True
Application.DisplayFormulaBar = True
End Sub

Denk dran eine Seite CmdBars einzurichten die du auf xlVerxHidden (unter Eigenschaften der Seite oder (F4)) setzt.

Gruß,
Carsten

Hallo Roland

mein Meinung zum Crossposting ist eindeutig.

Das Du kopieren und Einfügen kannst brauchts Du uns nicht beweisen. Wir gehen davon aus, das der der am Computer sitzt dies kann.
Mit dem doppelten Posting in den Foren ist das so ein Problem, wird der Beitrag in mehreren Foren gleichzeitig gepostet arbeiten mehrere Helfer gleichzeitig an der Lösung. Sollten nun mehrer Helfer sich mit der Beantwortung und Lösungssuche befassen arbeitet nur einer an der endgültigen Lösung und die anderen für den Papierkorb. Bei Helfern kostet es Zeit und es machen alle diese Arbeit kostenlos. Und ich sehe es als nicht Achtung der Arbeit der Helfer an, wenn die Frage gleichzeitig in mehreren Foren gestellt wird. Sinn und Zweck des Forums ist es aber ein geben und nehmen. Wenn in einem gewissen Abstand nicht Minuten in anderen Foren gepostet wird hat keiner was dagegen.
Dies ist nur meine Meinung zu dem Problem und mit diesen Beiträgen befasse ich mich nicht. Da löse ich lieber andere Probleme.
Es braucht mir auch keiner schreiben er kauft sich auch mehrere Bücher oder läst sich mehrere Angebote machen. Da übersieht er nur einen Entscheidenden Punkt. Der Autor hat sein Geld schon bekommen und die Preise für die Angebote werden schon so geplant das bei einem Verhältnis von 1 zu 10 noch Gewinn rauskommt. Hier in dem Forum beantworten alle Antworten die Fragen ohne Bezahlung und bei dieser Arbeitsweise arbeitet keiner gerne für den Papierkorb, ich jedenfalls nicht.

Gruß Hajo

Der Code wurde getestet unter Betriebssystem XP Pro und Excel Version XP SBE.
Bitte kein Mail, Probleme sollen im Forum gelöst werden.

Microsoft MVP für Excel

Beliebteste Forumthreads (12 Monate)

Mehrere Makros auf einmal ausführen

11 Beiträge zum Forumthread Beiträge zu diesem Forumthread

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

11
Beiträge zum Forumthread

Beiträge zu diesem Forumthread