Live-Forum - Die aktuellen Beiträge
Datum
Titel
28.03.2024 21:12:36
28.03.2024 18:31:49
Anzeige
Archiv - Navigation
1592to1596
Aktuelles Verzeichnis
Verzeichnis Index
Übersicht Verzeichnisse
Vorheriger Thread
Rückwärts Blättern
Nächster Thread
Vorwärts blättern
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Inhaltsverzeichnis

WB aus anderem WB speichern

WB aus anderem WB speichern
04.12.2017 10:12:27
Entropie
Hallo zusammen,
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

1
Beitrag zum Forumthread
Beitrag zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: WB aus anderem WB speichern
06.12.2017 10:49:16
Matthias
Moin!
Ich würde die Mappe erst kopiert verschieben, bspw. so
https://msdn.microsoft.com/en-us/library/aa265015(v=vs.60).aspx
und dann ggf. nochmal öffnen und Eintragungen vornehmen. Ist einfacher als einen festen Speichercode in der Mappe aufzurufen. Falls du es trotzdem wie bei dir machen willst, würde ich die Speichersub mit einem Parameter versehen. In diesem dann den Speicherpfad übergeben. Ansonsten müsstest du den irgendwo im SaveAs auslesen lassen.
Und hier
If Dir(Ord, vbDirectory= "" Then
sollte das = wohl ein ) sein.
VG
Anzeige

Links zu Excel-Dialogen

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige