Guten Morgen Allerseits,
ich bin kein Profi, versuche aber einiges zu verstehen.
Jetzt gerade bin ich am Ende.
Das Problem:
Wenn die Datei aufgerufen wird soll man als erstes, wenn man speichert,
die Auswahlmöglichkeit haben das Laufwerk auszuwählen und der Laufwerksbuchstabe sollte dann in die Tabelle "Datenbank" Zelle "D1" geschrieben werden. (z.b. D:\)
Beim nächsten speichern soll den durch den Laufwerksbuchstaben erkannt werden, wohin
es gepeichert wird.
Hoffentlich war das verständlich ?
mfg Kurt
Hier nochmals mein bisheriges Makro:
Dim Fs As Object, OrdNam As Variant, Ord As Byte, Pfad As String
Dim DateiNam As String
Application.ScreenUpdating = False
DateiNam = "Akquisitions-Datenbank"
On Error Resume Next
OrdNam = Split("C:\1_Lager\1_Datenbank", "\") <<<<<<<<<?
Pfad = OrdNam(0) & "\"
ChDrive Left(OrdNam(0), 1)
For Ord = 1 To UBound(OrdNam)
ChDir Pfad
Set Fs = CreateObject("Scripting.FileSystemObject")
If Not Fs.folderexists(Pfad & OrdNam(Ord)) Then
MkDir OrdNam(Ord)
MsgBox "Der Ordner " & vbLf & vbLf & Pfad & OrdNam(Ord) & _
vbLf & vbLf & " wurde erstellt. "
Else
'' MsgBox "Der Ordner " & vbLf & vbLf & Pfad & _
'' OrdNam(Ord) & vbLf & vbLf & " existiert bereits. "
End If
Pfad = Pfad & OrdNam(Ord) & "\"
Next Ord
Set Fs = Nothing
' Application.DisplayAlerts = False 'Sicherheitsabfrage
ActiveWorkbook.SaveAs Filename:=Pfad & DateiNam, FileFormat:=xlNormal, _
Password:="", WriteResPassword:="", ReadOnlyRecommended:=False
Range("a4").Select
End Sub