Tabellenkalkulation

Tabelle per Makro speichern

Diskussionsgruppen
Betriebsysteme: Windows 7; WindowsVista; WindowsXP; Linux; BS-Sonstige
Software: Textverarbeitung; Tabellenkalkulation; Datenbanken; Bildbearbeitung; Audio/mp3/Video; Security/Viren; E-Mail/Outlook; Internet Browser; SW-Sonstige
Hardware: Mainboard/CPU/RAM; Grafikkarten; Peripherie; HW Sonstiges
Netzwerk: DSL; W-Lan; Telekommunikation; NW-Sonstiges
Programmierung: Skripte(PHP,ASP,Perl...); Webseiten/HTML
Sonstiges: PC-Sonstiges; Plauderecke

Frage

Hallo, ich versuche folgendes: Ich möchte ein Makro erstellen, womit die Excel Tabelle (alle Blätter) mit dem Dateinamen aus A1 gespeichert wird. Der Wert (Text) aus A1 kann sich immer wieder ändern. Da ich leider nicht der Makrokönig bin (ehrlich gesagt, habe ich nicht einen blassen Schimmer davon), bitt ich Euch um Hilfe. Wie kann ich sowas realisieren ? Gruß Balumba

Antwort 1 von Guenter

Hallo,

versuchs mal mit diem Makro:


Option Explicit

Sub Makro1()
Dim Datname
Sheets("Tabelle1").Select
Datname = Cells(1, 1).Value
ActiveWorkbook.SaveAs Filename:= _
        "C:\Eigene Dateien\Excel\ " & Datname & ".xls", FileFormat:=xlNormal, _
        Password:="", WriteResPassword:="", ReadOnlyRecommended:=False, _
        CreateBackup:=False
End Sub

Damit das läuft, muss noch die entsprechende Änderung für Dein Verzeichnis und Dein Tabellenname gemacht werden.

Die Funktion Makro aufzeichnen kannst Du mal ausprobieren in diesem Zusammenhang.

Gruß
Günter

Antwort 2 von balumba

Vielen Dank,
aber Excel meckert bei der Eingabe der Unterstriche ( _ )...

Antwort 3 von Floooooo

Dann schreib es in 1ne Zeile. Der _ markiert nur, dass die Anweisung weitergeht

Antwort 4 von Guenter

Hallo,

die Unterstriche _ kann man auch weglassen, stattdessen alles in eine Zeile schreiben.

Hast Du mal versucht mit Makro aufzeichen zu speichern?

Gruß
Günter

Antwort 5 von balumba

Danke!

Es funktioniert Prima!

Antwort 6 von balumba

Kann man nun noch einbauen, dass keine Afrage kommt wenn man dass 2.mal speichert, ob man wirklich speichern möchte (...sind Sie sicher Ja|Nein)

Antwort 7 von Guenter

Hallo,

das kann man mit


Application.DisplayAlerts = False

machen.

Hier nochamls das ganze Makro:


Option Explicit

Sub Makro1()
Dim Datname
Sheets("Tabelle1").Select
Datname = Cells(1, 1).Value
Application.DisplayAlerts = False
ActiveWorkbook.SaveAs Filename:= _
        "C:\Eigene Dateien\Excel\ " & Datname & ".xls", FileFormat:=xlNormal, _
        Password:="", WriteResPassword:="", ReadOnlyRecommended:=False, _
        CreateBackup:=False
Application.DisplayAlerts = True
End Sub