ich brauche Unterstützung.
Ziel ist:
Via CommandButton Klick
1. Eine Nummer via Inputbox zu vergeben.
2. Einen Ordner an einem bestimmten Ort zu erstellen, der diese Nummer trägt.
3. Eine Datei (.xlsm) in einem anderen Ordner öffnen.
4. Die Datei unter selber Nummer im eben erstellten Ordner zu speichern und wieder zu schließen.
Der Code funktioniert bis 3., dann erhalte ich je nach hin und her probieren diverse Fehler ausgespuckt.
u.a., dass das Makro im zu öffnenden Blatt nicht aktiviert werden kann oder den beliebten 1004er.
Anbei der Code für die Mappe, von welcher der Vorgang ausgelöst wird:
Sub AddClient_Click()
Dim Ord As String
Dim sTxt As String
sTxt = InputBox("Neuen Klienten Anlegen: Bitte Registernummer vergeben")
Ord = "C:\konstanterPfad\" & sTxt & ""
If Dir(Ord, vbDirectory= "" Then
MsgBox "Klient wurde bereits angelegt."
Else
MkDir Ord
Application.DisplayAlerts = False
Workbooks.Open _
Filename:="C:\andererkonstanterPfad\Klient_Doku_v02.xlsm"
Application.Run ("'Klient_Doku_v02.xlsm'!AddClient_SaveAs")
Application.DisplayAlerts = True
MsgBox "Klient " & Ord & " wurde angelegt."
End If
End Sub
Im Zieldokument, jenes welches geöffnet und gespeichert werden soll, steht folgender Code in "DieseArbeitsmappe":
Public Sub AddClient_SaveAs
ThisWorkbook.SaveAs "C:\variablerPfad(muss theoretisch sTxt enthalten)\" & Range("B2"). _
Value & ".xlsm"
This Workbook.Close
End Sub
Ich hoffe ihr könnt mir Helfen.Lieben Dank und viele Grüße
E