Hallo Matthias,
besten Dank, nochmals. Ich bin ein gutes Stück weiter gekommen.
Bitte nur wenn du noch Zeit hättest beantworten ... ist nichts was ich sofort lösen muss aber ich arbeite mich Schritt für Schritt heran.
Also bemerkenswert war dein letzter Kommentar du wusstest im Prinzip schon das ich diese Variable an das Sub übergeben muss....Respekt!
Jetzt habe ich festgestellt, dass ich mich wohl doch mit der Syntax von Übergaben beschäftigen muss. Denn irgendwie hab ich das nicht ganz so verstanden.
Aus dieser möchte ich ebenfalls den Wert Pfad als Variable an mein Sub übergeben.
Hab versucht es so wie in dem vorherigen Fall mit Klammern versucht aber irgendwie wird es nichts.
Wie übergebe ich Pfad hier an mein SUB ?
Gruß Henry
Ich habe noch eine zweite Funktion :
Function ordnerauswahl()
Dim AppShell As Object
Dim BrowseDir As Variant
'Dim pfad As String
Set AppShell = CreateObject("Shell.Application")
Set BrowseDir = AppShell.BrowseForFolder(0, "Ordner auswählen", &H1000, 17)
On Error Resume Next
pfad = BrowseDir.Items().Item().Path
If pfad = "" Then Exit Function
'MsgBox Pfad
On Error GoTo 0
End Function
|