Gruppen
- Top Gruppen
- Betriebsysteme
- Windows classik
- Linux
- BS-Sonstige
- Software
- Datenbanken
- Bildbearbeitung
- Audio/mp3/Video
- Security/Viren
- SW-Sonstige
- Hardware
- Mainboard/CPU
- Grafikkarten
- Peripherie
- Laptop/Notebook
- HW-Sonstiges
- Netzwerk
- Telefon,ISDN,Modem
- W-Lan
- NW-Sonstiges
- Programmierung
- PHP,ASP,Perl...
- Java,C++...
- Webseiten/HTML
- Sonstiges
- PC-Sonstiges
- Plauderecke
- SN Intern
- Test
/ Forum / Tabellenkalkulation
Tabellenkalkulation
Fragevon afetinci vom 05.11.2021, 09:10 Options
Werte von Tabelle1 als extra Mappe speichern
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!
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!
Antwort 3 von Saarbauer vom 05.11.2021, 16:50 Options
hallo,
hast du es aml mit Makro aufzeichnen versucht?
Gruß
Helmut
hast du es aml mit Makro aufzeichnen versucht?
Gruß
Helmut
Antwort 4 von Hoehrn vom 05.11.2021, 17:10 Options
Genauer geht es leider nicht, ist bei jedem Programm anders....
Antwort 5 von fedjo vom 05.11.2021, 17:54 Options
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
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
Ähnliche Themen
ich möchte eine Excel-Datei speichern u. als Dateinamen die Werte aus der Tabelle nehmen.
Dettleff33 10.06.2008 - 69 Hits - 4 Antworten
Makro in Mappe fest verankern
Marv83 04.12.2008 - 19 Hits - 1 Antwort
Felder importieren von Tabelle1 in Tabelle 7
axefg 07.01.2009 - 52 Hits - 3 Antworten
Exel 2007, Extra - Optionen
recla 04.04.2009 - 159 Hits - 3 Antworten
EXCEL Blattschutz - Mappe kopieren
johannes78 25.05.2009 - 470 Hits - 3 Antworten
Hinweis
Diese Frage ist schon etwas älter, Sie können daher nicht mehr auf sie antworten. Sollte Ihre Frage noch nicht gelöst sein, stellen Sie einfach eine neue Frage im Forum..
Neue Einträge
