Werte von Tabelle1 als extra Mappe speichern

Question

Hallo Leute,

ich habe folgendes Problem:

ich möchte über ein Code die Werte von Tabelle1, also wirklich nur die Werte (von Spalte A bis DA) in einer extra Mappe speichern. Der Name der Datei und der Speicherort soll immer gleich bleiben, d.h. die Datei soll wenn ich den Code ausführe immer überschrieben werden.

Speicherort wäre C:\Dokumente und Einstellungen\
Name der Datei soll lauten: DATENAUSW

Bitte um Rückmeldung.

Besten Dank!

Answer 1

Servus,

Makro anlegen?

Answer 2

Hallo Hoerhn,

genau ja ein Makro.

Gruß

Answer 3

hallo,

hast du es aml mit Makro aufzeichnen versucht?

Gruß

Helmut

Answer 4

Genauer geht es leider nicht, ist bei jedem Programm anders....

Answer 5

Hallo afetinci ,
Code in ein Modul einfügen.

Gruß
fedjo

Option Explicit
Sub Auto()
Dim Name As String
Application.ScreenUpdating = False 'Tabellenwechsel unterbinden
Application.DisplayAlerts = False 'Fehlermeldungen werden unterdrückt
Sheets.Add.Name = "DATENAUSW" 'Tabellenblatte wird erstellt
Sheets("Tabelle1").Columns("A:DA").Copy _
Destination:=ActiveSheet.Range("A1") ' Daten werden übernommen
ActiveWindow.SelectedSheets.Copy 'Neue Arbeitsmappe wird erstellt
Dim strDateiname As String
strDateiname = "DATENAUSW" & ".xls" 'Arbeitsmappe Name + xls
ActiveWorkbook.SaveAs ("C:\Dokumente und Einstellungen\" & strDateiname) 'Pfad zum Speichern
ActiveWindow.Close 'Arteitsmappe wird geschlossen
ActiveWindow.SelectedSheets.Delete 'Arbeitsblatt wird gelöscht
Application.DisplayAlerts = True 'Fehlermeldungen werden wieder aktiviert
End Sub