habe hier im Forum ein Möglichkeit gefunden, ein Verzeichnis zu wählen und gleichzeitig eventuell einen neuen Ordner zu anzulegen. Läuft soweit auch alles Super. Hier mal der VBA-Code:
Sub Ordnerauswahl()
Dim BrowseDir As Object
On Error Resume Next
Set BrowseDir = CreateObject("Shell.Application").BrowseForFolder(0, "Ordner auswählen", & _
H4000, 17)
If Not BrowseDir Is Nothing Then
MsgBox BrowseDir.self.path
End If
Set BrowseDir = Nothing
End Sub
Jetzt zu meinem Problem: Ich möchte gerne den Pfad nicht als Meldungsfenster angezeigt habe, sondern diesen Pfad einem Datenfeld (z.B. VerName) zuweisen.
Wenn ich diese ändere (MsgBox BrowseDir.self.path wurde durch VerName = BrowseDir.self.path ersetzt, bekomme ich eine Fehlermeldung (Fehler beim Kompelieren - Keine Zuweisung an Datenfeld möglich). Was muss ich ändern, damit ich den Pfad einem Datenfeld zuweisen kann.
Ich hoffe einer von den "Spezialisten" kann mit helfen.
Gruß Thomas