Supportnet / Forum / Tabellenkalkulation

Hallo, wie muß das Makro ausschauen, wenn ich die Datei unter dem Namen abspeichern will, der z.B. in der Zelle A1 steht? Wenn das überhaupt möglich ist.

Moin,

Sub speichern()
ActiveWorkbook.SaveAs Range("A1")
End Sub

mfg
schnallgonz

<sub>Ich stimme mit der Mathematik nicht überein.
Ich meine, dass die Summe von Nullen eine gefährliche Zahl ist. (S.J. Lec)

Signatur und Textformatierungen wurden mit SNTool V1.2.13 erstellt</sub>

Spitze schnallgonz,

besten Dank. Genau so, wie ich es gewollt habe. Viel einfacher als ich dachte. Nochmals vielen Dank für die schnelle Antwort.

Der Einzeiler ist nun nicht gerade ein VBA-Highlight,
aber Danke für die Rückmeldung
gruß
schnallgonz

Hallo schnallgonz,

da Du VBA-Profi bist, hätte ich noch einmal eine Frage:

Ich habe ein Makro geschrieben, in dem ich Daten von einer Datei(001-06.xls) in eine andere Datei (Batch.xls) kopiere. Die Datei Batch.xls ist immer die Gleiche, aber der Name der Quelldatei wechselt ständig. 002-06.xls; 003-06.xls; 004-06.xls usw. Ich starte das Makro immer von der Quelldatei aus(z.B.001-06.xls).
Im Makro steht dann unter anderem: Windows("001-06.xls").Activate.

Wie muss ich den Befehl ändern, damit immer die Daten von der gerade geöffneten Datei in die Batchdatei kopiert werden, da er zur Zeit immer auf die 001-06 zurückgreift.

Für mich ein riesen Problem, für Dich wahrscheinlich ein kurzes schmunzeln.

Vorab schon mal vielen Dank

Thunderace8

Salve,
von den VBA-Profis trennen mich noch Welten, aber Danke für den Honig :-)
Zu Deiner Frage:
Ich nehme an, Du hast den Makrorecorder eingesetzt und der hat für einen Klick

Windows("001-06.xls").Activate

protokolliert..
Wenn Du das Makro immer aus der Quelldatei = Aktive Datei startest, kannst Du diese Zeile einfach löschen.

Falls ich mit meiner Annahme falsch liege, melde Dich einfach nochmal.

Hier noch ein kleiner Nachschlag:
Falls Du später aus Deiner batch.xls nochmal zurück willst, kannst Du vorher den Namen der Quelldatei in eine Variable einlesen, z.B.

WoBinIch = ActiveWorkbook.Name

und dann mit

Workbooks(WoBinIch).Activate

zurück.

WoBinIch = Application.ActiveWorkbook.FullName

würde den Dateinamen incl Pfad einlesen

Gruß
schnallgonz

Na denn Prost!

Hallo schnallgonz,

Du hast mich ertappt. Ich sagte, dass ich ein Makro geschrieben habe. Das war natürlich falsch, hört sich aber etwas besser an.;-).Du hast es vollkommen richtig erkannt, dass ich mit dem Makrorec. gearbeitet habe.

Über Deinen Nachschlag bin sehr dankbar, weil ohne dem, hätte ich die Sache nicht zum Laufen gebracht.
Musste nämlich zwischen beiden Dateien mehrmals Daten kopieren und wieder auf die Quellseite zurück.

Jetzt läuft es genau so, wie ich es mir vorgestellt habe. Ohne Deine Hilfe wäre ich verzweifelt.

Nochmals vielen Dank!!!

Hi,
freut mich, dass es funktioniert.
Danke für die Rückmeldung.
Gruß
schnallgonz

• Makro speichern
• Makro Ausstieg - die 2
• Excel VBA: Datei speichern, Excel beenden und Windows herunterfahren
• Speichern unter mit Makro und Zellbezügen(verknüpfen)