Live-Forum - Die aktuellen Beiträge
Datum
Titel
24.04.2024 08:01:34
Textbox Inhalt prüfen und Code abbrechen
24.04.2024 06:38:45
Kumulierte Daten für Intervalllaufeinheiten
24.04.2024 04:37:43
Mit Word erstellte PDF als Anhang an E-Mail anhängen
24.04.2024 00:20:14
Bestimmte Spalten als xls exportieren per Makro
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
804to808
Aktuelles Verzeichnis
Verzeichnis Index
Übersicht Verzeichnisse
Vorheriger Thread
Rückwärts Blättern
Nächster Thread
Vorwärts blättern
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Vorheriger Thread
Vorheriger Thread
Rückwärts Blättern
804to808
804to808
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

tabellenblätter verschieben

tabellenblätter verschieben
26.09.2006 15:08:53
Thomas
hallo forum!
ich bitte mal wieder um hilfe, da ich nur teilweise lösungen für mein problem finde.
ich habe ca. 240 excel-dateien mit je nur einem arbeitsblatt. nun möchte ich diese arbeitsblätter in einer einzigen excel-datei (mit 240 arbeitsblättern) zusammenfassen. wie kann ich dies mit vba lösen?
herzlichen dank im voraus für eure hilfe.
thomas

4
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: tabellenblätter verschieben
26.09.2006 15:22:54
UweD
Hallo
schieb die Dateien alle in ein Verzeichnis und lass dieses Makro laufen.
Sollen die Altdateien gleichzeitig gelöscht werden, mach das ' vor Kill weg...

Sub alle_Dateien_Verzeichnis() '
Dim strFile$, strPath$, strExt$
strPath = "C:\Temp\" 'Pfad des Verzeichnisses ggf. anpassen
strExt = "*.xls"       'Dateiextension ggf. anpassen
If strPath = "" Then
Exit Sub
Else
strFile = Dir(strPath & strExt)
Do While Len(strFile) > 0
'öffnen
Workbooks.Open Filename:=strPath & strFile
'verschieben an letzte Stelle
ActiveWorkbook.Sheets(1).Move After:=ThisWorkbook.Sheets(ThisWorkbook.Sheets.Count)
'schließen ohne speichern
Workbooks(strFile).Close SaveChanges:=False
'löschen  kann aktiviert werden
'Kill (strPath & strFile)
strFile = Dir() ' nächste Datei
Loop
End If
End Sub

Gruß UweD
(Rückmeldung wäre schön)
Anzeige
AW: tabellenblätter verschieben
26.09.2006 17:35:08
Thomas
hallo uwe!
danke für die schnelle antwort.
auf meinem bürorechner passiert mal gar nichts. keine fehlermeldung und kein ergebnis?!? ich versuche das makro auf meinem privaten rechner (morgen abend). melde mich wieder.
grüße
thomas
AW: tabellenblätter verschieben
26.09.2006 17:48:45
Thomas
hallo uwe!
war ein fehler von mir. habe den letzten "\" bei der pfadangabe vergessen.
weiters habe ich die folgende zeile auskommentieren müssen:
'Workbooks(strFile).Close SaveChanges:=False
und dein modul läuft wie ich´s mir vorgestellt habe.
danke und viele grüße nochmals
thomas
Danke für die Rückmeldung...
27.09.2006 07:56:15
UweD
Hallo Thomas
Klar...
wenn nur ein Blatt in der Datei vorhanden ist und dieses dann in eine andere Datei verschoben wird, dann wird die ursprüngliche Datei ja schon geschlossen...
Ich hatte das mit Standard Dateien ausgetestet (mit 3 Tabellenblättern) da war mir das nicht aufgefallen.
Prima das es läuft
Gruß UweD
(Rückmeldung wäre schön)
Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Jetzt das Excel-Portal bewerten: Deine Stimme zählt!

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige