---

Servus

Würde gerne per VBA alle Blätter die in der offnen Datei (Planverzeichnis.xls) sind markiern um sie in offnen Datei (Planverzeichnis1.xls) zu verschieben.

Die Blattnamen in der Planverzeichnis.xls sind nicht immer die selben.

Das ganze soll als Makroupdate und Layoutupdate dienen.

------------------
"Warum Einfach es geht auch kompliziert". Schöne Grüsse aus der Steiermark  Bernd P.
<----- Bitte Systeminfo eintragen, warum siehst du hier.

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP

---

Moin,
guckst Du: KLICK
Schleife drumrum und schon sollte es tun. Evtl. weg von ActiveWorkbook, aber das ist Geschmackssache:

Code:

---

Sub Blatt_kopieren()
    Dim AName$
    AName = "Planverzeichnis.xls"
    For a = 1 To Workbooks("Planverzeichnis.xls").Sheets.Count
        'Workbooks.Open Filename:="Planverzeichnis1.xls"
        Workbooks(AName).Activate
        Sheets(a).Copy after:=Workbooks("Planverzeichnis1.xls").Sheets(Sheets.Count)
        'Workbooks("Planverzeichnis1.xls").Close savechanges:=True
    Next a
End Sub

---

------------------
Gruß,
runkelruebe          Herr Kann-ich-nich wohnt in der Will-ich-nich-Straße...

System-Info     Excel -Suche    RuA-Suche     FAQ-ACAD     Hilfe zu CAD.de 

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP

---

Hi Bernd,

Sub verschieben()
    Workbooks("Planverzeichnis.xls").Worksheets(Array(1, 2, 3)).Move _
        Before:=Workbooks("Planverzeichnis1.xls").Sheets(Workbooks("Planverzeichnis1.xls").Sheets.Count)
End Sub

------------------
Bis später,
Karin

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP