Office: VBA Add In mit Symbolleiste

Hallo Leute!

Zwei Fragen wieder mal ;-)

1)
Wieso springt das nachfolgende Makro nicht in ein Fenster wo der angegebene Ordner voreingestellt geöffntet wird? Es öffnet das Fenster - aber nicht im angegebenen Ordner:

Code:

Sub Wirg()
Dim Pfad As Variant
Dim quest As String


On Error GoTo Fehler
    Pfad = "K:\4_VM_SA\1_WIRG\"
Pfadneu:

    ChDir Pfad
    Application.GetOpenFilename "Excel Dateien (*.xls), *.xls"
Exit Sub

Fehler:
quest = MsgBox("Pfad konnte nicht geladen werden!" & Chr(13) & "Bitte überprüfen Sie die Netwerkverbindung und den Pfad!" & Chr(13) & "Der aktuelle Pfad ist: " & Chr(13) & Pfad & _
    Chr(13) & Chr(13) & "Wollen Sie eine Datei auswählen?", vbYesNo, "Fehler beim Öffnen")
    If quest = 7 Then
    Exit Sub
    Else
        Pfad = Application.GetOpenFilename("Tabellen (*.xls),*.xls")
     If Pfad = False Then
        MsgBox "Es wurde keine Datei ausgewählt"
        Exit Sub
    Else
        GoTo Pfadneu
    End If
    End If
End Sub

2) Wenn ich eine Symbolleiste mit einem Symbol wo das obige Makro zugewiesen ist in der gleichen Datei erstelle - die Datei als Addin (.xla) abspeichere und importiere - wieso wird dann die Symbolleiste nicht mitgenommen? Muss ich die extra im VBA programmieren oder wie?

Vielen Dank für die Antworten schon mal!

Lg
HErbert

 

Weil der Pfad sich auf einem anderen Laufwerk befindet. Du brauchst auch noch ein ChDrive davor:

Code:

    Dim Laufwerk As String
    Dim Pfad As String
[...]
    Laufwerk = "c:"
    Pfad = "\program files\"
[...]
    ChDrive Laufwerk
    ChDir Pfad
    Application.GetOpenFilename "Excel Dateien (*.xls), *.xls"

Gruß, Michael

 

Servus Michael!

Danke für die schnelle Hilfe!

Die Antwort auf die zweite Frage wäre noch super :mrgreen:

mfg
Herbert

 

*Push*