was mache ich falsch? In einem Makro will ich einen Pfad öffnen. In dem bestehenden Makro steht folgendes:
Sub Textdatei_laden2()
Dim dat$, Verz$, ws As Worksheet
Verz = "R:\Historisches Alarmarchiv\"
Set ws = Workbooks("Vorlage Samsonstörmeldungen.xls").Worksheets("Vorlage Samsonstörmeldungen")
ChDrive Left(Verz, 1)
ChDir Verz
dat = InputBox("Bitte geben Sie den Dateinamen in der Reihenfolge Jahr(JJ)/Monat(MM)/Tag(TT) ein!", "Dateinamen eingeben")
dat = dat & "00.alg"
Workbooks.OpenText Filename:=dat, _
Origin:=xlWindows, StartRow:=1, DataType:=xlFixedWidth, FieldInfo:= _
Array(Array(0, 1), Array(2, 1), Array(6, 1), Array(11, 1), Array(20, 1), Array(24, 1), _
Array(28, 1), Array(81, 1), Array(107, 1), Array(114, 1))
Range("A4:K150").Copy ws.Range("A4")
ActiveWindow.Close (False)
Nun wollte ich die Anweisung Verz = "R:\Historisches Alarmarchiv\" in Verz = \\Samson\Samson D\Historisches Alarmarchiv\ ändern, um auch anderen Benutzern unseres Netzwerkes es zu ermöglichen die Datei zu öffnen ohne ein Laufwerk verbinden zu müssen. Allerdings kommt dann eine Laufzeitfehlermeldung und die Zeile ChDrive Left(Verz, 1) wird mir markiert.
Warum funktioniert das Makro, wenn ein Laufwerksbuchstabe vergeben wird, nicht aber wenn ich den Netzwerkpfad dort hin schreibe?
Mal wieder besten Dank im voraus,
Oliver