Hallo liebe Leute!
Möchte gerne aus der einer Zelle im Tabellenblatt den gewünschten Pfad angeben, indem ich die Bilder auswählen kann.
Wie muss da der richtige Code lauten, wenn ich den Pfad in der Zelle "B7" stehen habe?
Hab es schon mit
ChDrive (Left(Range("B7"),3))
ChDir (Mid(Range("B7"),4,255)) probiert – es kommt aber genau hier kommt die Fehlermeldung.
Kann mir jemand helfen?
Vielen Dank
Private Sub Test_Click()
'Bild einfügen
Dim varRetVal As Variant
Dim n As Integer
Dim pic
Dim X_ As Integer, Y_ As Integer
ChDrive ("D:\")
ChDir ("D:\Eigene Dateien\")
varRetVal = Application.GetOpenFilename( _
FileFilter:="Bild (*.jpg), *.jpg", _
Title:="Bild einfügen", _
MultiSelect:=True)