Live-Forum - Die aktuellen Beiträge
Datum
Titel
28.03.2024 21:12:36
28.03.2024 18:31:49
Anzeige
Archiv - Navigation
852to856
Aktuelles Verzeichnis
Verzeichnis Index
Übersicht Verzeichnisse
Vorheriger Thread
Rückwärts Blättern
Nächster Thread
Vorwärts blättern
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
852to856
852to856
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Inhaltsverzeichnis

Command Bar auf vorhanden prüfen

Command Bar auf vorhanden prüfen
17.03.2007 17:12:00
dreho
Hallo,
ich würde gerne an diesem Makro folgendes einbauen:
wenn die Symbolleiste "test" gefunden wird, soll Excel die Meldung bringen,
dass diese gelöscht wurde, wenn nicht, dass keine Symbolleiste mit dem Namen test existiert.
Ich habe es bereits selbst probiert mit
if CommandBars("test") then ..., aber das geht nicht.
Danke für Antwort und Gruss dreho

Sub Auto_Open()
CommandBars("test").Delete
End Sub

2
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Command Bar auf vorhanden prüfen
17.03.2007 18:17:28
Josef
Hallo ?,
"Auto_Open" wird nicht mehr verendet.
' **********************************************************************
' Modul: DieseArbeitsmappe Typ: Element der Mappe(Sheet, Workbook, ...)
' **********************************************************************

Option Explicit

Private Sub Workbook_Open()
Dim objBar As CommandBar

Const strName As String = "test"

On Error Resume Next

Set objBar = Application.CommandBars(strName)

If Not objBar Is Nothing Then
    objBar.Delete
    MsgBox "Die Symbolleiste " & strName & " wurde gelöscht!", vbInformation
Else
    MsgBox "Die Symbolleiste " & strName & " wurde nicht gefunden!", vbInformation
End If

On Error GoTo 0

Set objBar = Nothing

End Sub

Gruß Sepp
Anzeige
AW: Command Bar auf vorhanden prüfen
18.03.2007 05:49:00
dreho
Hallo Sepp,
danke für Deinen Beitrag, funktioniert natürlich bestens.
Danke
Markus vom Zürichsee

98 Forumthreads zu ähnlichen Themen

Anzeige
Anzeige
Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige