Hi,
Zitat:Code:
select case clng(Right(.cells(2,1)))
Hier wird im Debugmodus das "Right" angezeigt.
Im Gegensatz zur Excelfunktion RECHTS() muss man in VBA den 2. Paramter Length / Länge mit angeben:
Right(.Cells(2, 1)
, 1)
Also, meine Lösung ist nun:
speicherm der Excel-Liste mit SaveDialog:
Sub save_close()
Dim fso As New FileSystemObject
Dim PfadOrdner As String
PfadOrdner = ThisWorkbook.Path & ("\Dokumente")
Worksheets("Userform").Cells(2, 37) = PfadOrdner 'hier wird der alte Pfad der Datei in eine Hilfszelle geschrieben
Debug.Print Dir(PfadOrdner)
Worksheets("Datenbank").Cells(2, 86) = "BiV_ESF" & Worksheets("Datenbank").Cells(2, 1).Value
Application.Dialogs(xlDialogSaveAs).Show Worksheets("Datenbank").Cells(2, 86)
'Workbooks("Bearbeitung_BiV-Programierstart14.XLSM").Close
End Sub
Danach hole ich mir über einen zusätzlichen Button den Ordner aus dem alten Pfad in den neuen Speicherort
Sub holen_Ordner()
Dim fso As New FileSystemObject
Dim PfadOrdner As String
PfadOrdner = ThisWorkbook.Path & ("\Dokumente")
Debug.Print Dir(PfadOrdner)
fso.CopyFolder Worksheets("Userform").Cells(2, 37), ThisWorkbook.Path & "\Dokumente"
End Sub
So kann ich mit dem Dialog arbeiten und einfach den Ordner nachholen. Halt mit einem Klick mehr, was nicht schlimm ist.
Die Varianten mit automatisch Ordner anlegen halte ich hier nicht für sinnvoll.
Aber danke für die Unterstützung. Die Denkanstöße haben mir echt gehoflen.
Gruß
Roy
Moin Roy,
jetzt möchte ich gerne mal was lernen:
Zitat:mit automatisch Ordner anlegen halte ich hier nicht für sinnvoll.
Warum nicht? Was spricht denn dagegen die Order/Datei-Namen aus der Tabelle direkt in die Prozedur zu holen? Stehen im Dialog dann andere Informationen?
Grüße und Danke für Deine Antwort.