Live-Forum - Die aktuellen Beiträge
Datum
Titel
23.04.2024 17:41:19
Link erstellen mit Formel oder VBA?
23.04.2024 17:00:22
Summe und Ausgabe
23.04.2024 16:27:34
Excel Starthinweis - Arbeitsmappenleistung überprüfen ...
23.04.2024 16:15:16
Mittels VBA vordefinierte Kommentare in Zellen einfügen?
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
956to960
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
956to960
956to960
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

VBA: Alle Tabellebblätter verschieben ausser ..

VBA: Alle Tabellebblätter verschieben ausser ..
29.02.2008 07:25:00
Vera
Liebe Excelfreunde
wie kann ich mittels VBA alle Tabellenblätter einer Mappe (Name + Anzahl sind unbekannt) ausser die beiden Tabellenblätter mit dem Namen "Einleitung" und "Vorlage" in eine andere Arbeitsmappe verschieben?
Liebe Grüße
Vera

3
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: VBA: Alle Tabellebblätter verschieben ausser ..
29.02.2008 08:14:08
Harald
So?

Sub Makro1()
Dim blatt As Worksheet
Workbooks.Open Filename:="D:\temp\Mappe1.xls"
Windows("Mappe2.xls").Activate 'in Mappe2 stehen die zu verschiebenden Blätter
For Each blatt In Workbooks("Mappe2.xls").Worksheets
If (blatt.Name  "Einleitung") And (blatt.Name  "Vorlage") Then
blatt.Move After:=Workbooks("Mappe1.xls").Sheets(1)
End If
Next
End Sub


Gruß Harald

AW: VBA: Alle Tabellebblätter verschieben ausser ..
29.02.2008 10:39:00
haw
Hallo Vera,
als Array-Lösung:

Sub BlätterVerschieben()
Dim x(), i%, wb As Workbook, blatt As Worksheet
Set wb = Workbooks("MeineDatei.xls")
For Each blatt In wb.Worksheets
If (blatt.Name  "Einleitung") And (blatt.Name  "Vorlage") Then
ReDim Preserve x(i)
x(i) = blatt.Name
i = i + 1
End If
Next
Worksheets(x).Move
End Sub


Gruß
Heinz

Anzeige
AW: VBA: Alle Tabellebblätter verschieben ausser ..
29.02.2008 12:12:00
Vera
.. Klasse ..
Eine Lösung besser wie die andere ..
Dankeschön!
Liebe Grüße
Vera

Beliebteste Forumthreads (12 Monate)

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

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige