Live-Forum - Die aktuellen Beiträge
Datum
Titel
23.04.2025 16:03:54
Werte aus Spalte auslesen und leere Zellen ignorieren
23.04.2025 12:31:51
Pivot-Filter aus Zelleninhalt mit VBA
23.04.2025 09:49:26
Garantie-Restlaufzeit berechnen
23.04.2025 09:33:33
Höchste werte inkl. Dopplungen
Keine passende Antwort im Forumarchiv gefunden?
Stelle deine Frage im Live-Forum
Anzeige
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Vorheriger Thread
Vorheriger Thread
Rückwärts Blättern
152to156
152to156
Aktuelles Verzeichnis
Verzeichnis Übersicht
Verzeichnis Übersicht
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Verschieben von Tabellenblätter

Forumthread: Verschieben von Tabellenblätter

Verschieben von Tabellenblätter
27.08.2002 14:30:13
Speedy
Hallo zusammen!

Ich möchte ca 20 versch. Tabellenblätter die geöffnet sind in eine andere Mappe verschieben. Der Name der Tabellenblätter ist jeweils nach Datum sortiert fortlaufend. Wie kann ich jetzt dies durch ein Makro erzielen??

Gruß
Marcel

Anzeige

2
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Kategorie
Arbeitsblatt
Tags
#makros #tabellen #verschieben
Relevante Fragen
Anzeige
Betreff
Datum
Anwender
Anzeige
Re: Verschieben von Tabellenblätter
27.08.2002 14:59:49
Peter
Probiers mal mit dem Makrorekorder, und kupfer dir da den Code raus. Das hilft oft weiter.
Re: Verschieben von Tabellenblätter
27.08.2002 15:07:36
Speedy
Hallo Peter,

das hab ich schon probiert, das klappt auch soweit, aber der Dateiname ändert sich ja jeden Monat und es wäre schön wenn man hier eine Schleife bauen könnte, jedoch funktioniert meine nichtg richtig!Hier mal meine Schleife!

Vielen Dank & Gruß
Marcel

arrFilenames = Array

i = 1
For s = 1 To UBound(arrFilenames)
On Error Resume Next
Windows(arrFilenames(s)).Activate
Sheets(arrFilenames(s)).Select
Sheets(arrFilenames(s)).Move Before:=Workbooks( _
"test2002.xls").Sheets(i)
Application.WindowState = xlMinimized
ActiveWindow.ScrollWorkbookTabs Sheets:=-1
ActiveWorkbook.SaveAs FileName:="M:\Neuer Ordner\test2002.xls", FileFormat:= _
xlNormal, Password:="", WriteResPassword:="", ReadOnlyRecommended:=False _
, CreateBackup:=False
i = i + 1
Next s

Anzeige

Beliebteste Forumthreads (12 Monate)

Jetzt das Excel-Portal bewerten: Deine Stimme zählt!
Anzeige
Anzeige
Entdecke mehr
Finde genau, was du suchst

Die erweiterte Suchfunktion hilft dir, gezielt die besten Antworten zu finden

Suche nach den besten Antworten
Unsere beliebtesten Threads

Entdecke unsere meistgeklickten Beiträge in der Google Suche

Top 100 Threads jetzt ansehen
Anzeige