Pfad nicht Richtig ?
08.04.2007 19:17:04
Walter
ein frohes Fest ALLEN, die Schaffe !
Ich habe ein Speichermakro, welches funktioniert, nun möchte ich das Laufwerk als Variable
einbinden.
Vielleicht erkennt einer meinen Fehler.
Das ist vom Orginal:
DateiNam = "Werkstatt"
On Error Resume Next
OrdNam = Split("C:\Lager\Teile", "\")
Pfad = OrdNam(0) & "\"
ChDrive Left(OrdNam(0), 1)
For Ord = 1 To UBound(OrdNam)
ChDir Pfad
----------------------------------------------------------------------
Sub test_Speicher_pfad()
Dim Fs As Object, OrdNam As Variant, Ord As Byte, Pfad As String
Dim DateiNam As String
Dim lfw As String
Sheets("Werkstatt").Select
lfw = ActiveSheet.Cells(1, 5).Value
mfg walter