Microsoft Excel

Herbers Excel/VBA-Archiv

Informationen und Beispiele zum Thema MsgBox
BildScreenshot zu MsgBox MsgBox-Seite mit Beispielarbeitsmappe aufrufen

Habe immer noch Problem

Betrifft: Habe immer noch Problem von: MARIO
Geschrieben am: 05.09.2004 22:57:34

Hallo zusammen, hallo Rainer

ich habe mein Problem immer noch nicht gelöst.
Habe dein Code ein bisschen angepasst.
Nun sollte es bisschen verständlicher sein was ich will.
Vielen Dank für eure Hilfe.

Gruss Mario

Sub DateienAttribute()
Const verz = "D:\Eigene Dateien\Unsichtbar\"
Dim datei As String
ChDir verz
On Error Resume Next
datei = Dir(verz & "*.xls")
        Do While datei <> ""
        SetAttr datei, vbNormal
            datei = Dir()
            Loop
    Diverse
  End Sub

Sub Diverse()
Const verz = "D:\Eigene Dateien\Unsichtbar\"
Dim Datei As String
ChDir verz
On Error Resume Next
Application.CommandBars.ActiveMenuBar.Controls("Diverse Funktionen").Delete
With Application.CommandBars.ActiveMenuBar.Controls.Add _
                      (Type:=msoControlPopup)
    .Caption = "Diverse Funktionen"
    With .Controls.Add(Type:=msoControlPopup)
        .BeginGroup = True
        .Caption = "Archivierte Mappen"
        Datei = Dir(verz & "*.xls")
        Do While Datei <> ""
            With .Controls.Add
                .BeginGroup = True
                .Caption = Datei
                'Makro mit Übergabe Parameter
                .OnAction = "myFileOpen(""" & Datei & """)"
                End With
            'Datei auf hidden setzen
            SetAttr Datei, vbHidden
            Datei = Dir()
        Loop
    End With
        With .Controls.Add(Type:=msoControlPopup)
        .BeginGroup = True  'Trennlinie
        .FaceId = 161
        .Caption = "Manuell speichern & Monatssollzeit"
        With .Controls.Add '(Type:=msoControlPopup)
            .BeginGroup = True  'Trennlinie
            .FaceId = 271
            .Caption = "Monatlich manuell speichern "
            .OnAction = "Show"
       End With
    
    With .Controls.Add '(Type:=msoControlPopup)
        .BeginGroup = True  'Trennlinie
        .FaceId = 169
        .Caption = "Monatssollzeit"
        .OnAction = "Blattschutzi"
    End With
End With
 With .Controls.Add '(Type:=msoControlPopup)
        .BeginGroup = True
        .FaceId = 161
        .Caption = "Aktuallisieren"
        .OnAction = "DateienAttribute"
    End With
    End With
End Sub


'Bei mir erscheint immer die Fehlermeldung ecel kann das makro 'myFileOpen ("Mappe1.xls")" nicht finden. Warum?

Sub myFileOpen(fileName)
MsgBox fileN(""" & Datei & """)
'gibt den Namen der Datei an wie sie geschrieben wurde

'Würde die DAtei öffnen
Workbooks.Open verz & fileNname
End Sub

  


Betrifft: AW: Habe immer noch Problem von: Uwe Küstner
Geschrieben am: 06.09.2004 10:00:41

Hallo Mario,

mit Hochkommas geht es:

.OnAction = "'myFileOpen """ & Datei & """'"

Hier nochmal mit Leerzeichen, damit man es besser sieht:

.OnAction = " 'myFileOpen " " " & Datei & " " " ' "


Gruß Uwe


 

Beiträge aus den Excel-Beispielen zum Thema "Habe immer noch Problem"