Anzeige
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 Übersicht
Verzeichnis Übersicht
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

VBA: Alle Tabellebblätter verschieben ausser ..

Forumthread: 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

Anzeige

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

Anzeige
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)

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