PDA

Vollständige Version anzeigen : Makro "Speichern unter" im selben Pfad mit neuem Namen


OAPlayer2306
11.07.2014, 10:33
Hallo zusammen,
ich habe mir ein Makro zusammengestellt, daß eine Mappe unter neuem Namen speichert.
Etwas genauer: Ich habe mir eine Arbeitsmappe als Template gebaut. Nach Bearbeitung dieser Mappe will ich sie per Makro speichern. Die neue Mappe soll im selben Ordner als ".xlsm" gespeichert werden und der Name soll sich aus dem Zellinhalt von B6, dem Zeichen "_" und dem Zellinhalt von B4 auf dem Blatt (Tabelle_Gesamt) zusammensetzen. Der Name soll dann etwa so aussehen: System_Ort.xlsm
Das Ganze passiert auf einem Netzlaufwerk, d.h. ich habe eine lange
Verzeichnisstruktur wie z.B. L:\3_ascvdd\Ordner1\Ordner222\Ordner12222\Ordner1ddgv\collected_csv\Ordner1778

Ich habe folgendes Makro erstellt:


Sub Datei_speichern2()
ActiveWorkbook.SaveAs ThisWorkbook.Path & "\" & Range("B6").Value & Range("_").Value & Range("B4").Value & ".xlsm"
End Sub


Es erscheint die Meldung "Laufzeitfehler 1004:
Die Methode 'Range' für das Objekt ''_GGlobal' ist fehlgeschlagen"

Was habe ich falsch gemacht?

Gruß,
OAPlayer2306
:eek:

Crazy Tom
11.07.2014, 10:44
Hallo

was ist das in der Mitte denn für ein Range?
& Range("B6").Value & Range("_").Value & Range("B4").Value &

sollte dann jawohl so aussehen:

& Range("B6").Value & "_" & Range("B4").Value &

MfG Tom

OAPlayer2306
11.07.2014, 10:50
Hallo Crazy Tom,
vielen Dank für die schnelle Hilfe, anscheinend ist mein Hirn schon im Wochenende.

OAPlayer2306