folgendes Makro öffnet nicht den Ordner den ich in der Zelle angegeben habe?
Wo is mein naiver Fehler?
Dankeschön!
Sub OrdnerÖffnen()
Dim Pfad As String
Pfad = Range("U2")
ChDir Pfad
End Sub
Sub ÖffneProgrammordner()
Dim x As Variant
x = Shell("C:\Windows\Explorer.exe /n,/e,""C:\Programme""", vbNormalFocus)
End Sub
Sub OrdnerÖffnen()
Dim Pfad As String
Pfad = Range("U2")
Dim x As Variant
x = Shell("C:\Windows\Explorer.exe /n,/e, Pfad"\", vbNormalFocus)
End Sub
Sub OrdnerÖffnen()
Dim Pfad As String
Dim x As Variant
Pfad = Range("U2").Text
x = Shell("Explorer.exe /n,/e," & Pfad & "\", vbNormalFocus)
End Sub