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 mikeleson vom 30.08.2021, 01:18 Options
Suche Makro zum markieren und neu einfügen
Tach,
ich habe immer wieder Excel Dateien mit über 6000 Zeilen,die immer anders aussehen und die ich per Makro schon richtig formatiert habe.
Nun möchte ich nach der Ausführung des Makros, dass der gesamte Inhalt dieser Datei kopiert wird und in einer neuen Excel Datei eingeführt wird.
Das häng ich dann an das bestehende Makro an und speicher die Datei dann unter neuem Namen.
Hintergrund ist, dass ich die Datei in ein Access Tool einfügen muss und das nur so funktioniert, warum auch immer.
Zudem ist die Datei dann sauber und um einiges kleiner natürlich.
Habe dazu leider noch nichts passendes gefunden, kann jemand helfen?
ich habe immer wieder Excel Dateien mit über 6000 Zeilen,die immer anders aussehen und die ich per Makro schon richtig formatiert habe.
Nun möchte ich nach der Ausführung des Makros, dass der gesamte Inhalt dieser Datei kopiert wird und in einer neuen Excel Datei eingeführt wird.
Das häng ich dann an das bestehende Makro an und speicher die Datei dann unter neuem Namen.
Hintergrund ist, dass ich die Datei in ein Access Tool einfügen muss und das nur so funktioniert, warum auch immer.
Zudem ist die Datei dann sauber und um einiges kleiner natürlich.
Habe dazu leider noch nichts passendes gefunden, kann jemand helfen?
Antwort 1 von coros vom 30.08.2021, 01:59 OptionsLösung
Hallo mikeleson,
da ich jetzt nicht genau weiß, ob Du mit "den gesamten Inhalt dieser Datei" nur Deine 6000 Zeilen oder alle Tabellenblätter meinst, habe ich Dir mal ein Makro erstellt, welches alle Tabellenblätter in eine neue Exceldatei kopiert, danach das Dialogfenster "Speichern unter" aufruft, damit Du der Datei einen Namen vergeben kannst, dann die Datei speichert und danach geschlossen wird.
Kopiere das Makro in ein StandardModul und starte es z.B. über eine Befehlsschaltfläche
Teste das Makro aber bitte in einer Testdatei und nicht gleich in Deiner Originaldatei.
MfG,
Oliver
Da hier der einzige Lohn für die Helfer eine Rückmeldung ist, wäre es nett, wenn Du
ein Feedback abgeben könntest, ob der Lösungsvorschlag Dein Problem gelöst hat.
da ich jetzt nicht genau weiß, ob Du mit "den gesamten Inhalt dieser Datei" nur Deine 6000 Zeilen oder alle Tabellenblätter meinst, habe ich Dir mal ein Makro erstellt, welches alle Tabellenblätter in eine neue Exceldatei kopiert, danach das Dialogfenster "Speichern unter" aufruft, damit Du der Datei einen Namen vergeben kannst, dann die Datei speichert und danach geschlossen wird.
Kopiere das Makro in ein StandardModul und starte es z.B. über eine Befehlsschaltfläche
Teste das Makro aber bitte in einer Testdatei und nicht gleich in Deiner Originaldatei.
Option Explicit
Sub Alle_Blätter_kopieren()
Dim intSheet As Integer
Dim strSheetName As String
'Schleife um alle Tabellenblätter der Datei anzusprechen
For intSheet = 1 To Sheets.Count
'Name des gerade durch die Schleife angesprochenen Tabellenblatts _
in Variable "strSheetName" schreiben
strSheetName = strSheetName & "," & Sheets(intSheet).Name
Next
'Variableninhalt in die richtige Form für die "Split-Anweisung" bringen
strSheetName = "" & Mid(strSheetName, 2, Len(strSheetName)) & ""
'Alle Blätter in eine neue Datei kopieren
Sheets(Split(strSheetName, ",")).Copy
'Dialogefenster "Speichern unter" aufrufen damit Datei gespeichert werden kann
Application.Dialogs(xlDialogSaveAs).Show
'Neue Datei schließen
ActiveWorkbook.Close
End SubMfG,
Oliver
Da hier der einzige Lohn für die Helfer eine Rückmeldung ist, wäre es nett, wenn Du
ein Feedback abgeben könntest, ob der Lösungsvorschlag Dein Problem gelöst hat.
Ähnliche Themen
Zeile mit Makro markieren
LauraK. 19.02.2008 - 33 Hits - 5 Antworten
excel und makro Textfeld einfügen
sg2008 05.03.2008 - 61 Hits - 1 Antwort
Wörter per Makro suchen und markieren
Probot 28.10.2008 - 9 Hits - 8 Antworten
Makro Datumsbezogen Werte einfügen
Disp8 19.11.2008 - 25 Hits - 14 Antworten
Zellen einfügen per 4.0 Makro
Kein_excel_profi 25.07.2009 - 237 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
