ich möchte in VBA einen Ordner auswählen können. Eine bestimmte Datei geht ja mit application.getopenfilename - wie kann ich nur den Ordner auswählen?
Danke schonmal
Philipp
Danke schonmal
Philipp
Option Explicit
Sub ShellTest()
Dim objS As Shell
Dim objFo As Folder
Set objS = New Shell
With objS
Set objFo = .BrowseForFolder(0&, "Wählen Sie einen Ordner...", 0)
End With
On Error Resume Next
MsgBox "Gewählt wurde: " & objFo.Title
End Sub
Hier eine Möglichkeit mit API-Funktion:
Viel Erfolg,
Charlie
Laufzeitfehler 429
Objekterstellung durch ActiveX-Komponente nicht möglich
Den Verweis zu der DLL habe ich gesetzt.
Eine Frage noch:
Application.ScreenUpdating = False
Hat das irgendwelche Nebenwirkungen wenn ich das rausnehme? Ansonsten wird der Schirm so verschmiert sobald der User das Fenster bewegt
Den Befehl kannst Du ruhig rausnehmen, denn er besagt nur, dass die Bildschirmaktualisierung ausgeschaltet wird. Das spätere Application.ScreenUpdating = True schaltet sie wieder ein (auch diese Zeile kannst Du löschen).
Du hast Recht: In diesem Fall hat das einen sehr unschönen Effekt.
Gruß,
Charlie
Na dann versuchen wir es eben noch einmal:
Du kannst den Befehl, der nur die Bildschirmaktualisierung ausschaltet, ruhig löschen. In diesem Fall hat das wirklich einen häßlichen Effekt. Außerdem ist dann auch das Einschalten der Bildschirmaktualisierung Application.ScreenUpdating = True unnötig. Diesen Befehl daher auch löschen.
Gruß,
Charlie