Viele Arbeitsmappen mit gleicher Tabelle
08.02.2014 12:23:21
Shayev
habe erst vor kurzem angefangen mich mit Vba zu beschäftigen! Ich möchte gerne ein Code erstellen, indem ich auf alle offenen Arbeitsmappen zugreifen kann, diese Arbeitsmappen sind alle gleich, eine Vorlage, die immer kopiert wurde! Diese Arbeitsmappe hat unter anderen eine Tabelle namens Overview. Nun möchte ich jede Zeile der Overview Tabellen der jeweiligen Arbeitsmappen kopieren und in eine neue Arbeitsmappe pro Tabellenblatt einfügen. --> Zum Beispeil, Rows(1,1) in jeder Tabelle Overview kopieren und in einer neuen Arbeitsmappe in Tabelle 1 untereinander einfügen, damit nichts überschrieben wird! Danach Rows(2,2) in jeder Tabelle Overview kopieren und in neuer Arbeitsmappe in Tabelle 2 untereinander einfügen, usw.! Habe da auch rumprobiert mit for und for each Schleifen, leider kriege ich es nicht hin!! Das einzige was funktioniert ist der untenstehende Code, alles andere was ich gemacht habe, denke ich ist Schwachsinn. Daher poste ich nur das was funktioniert! Bitte um Unterstützung, brauche das für eine Auswertung! Vielen dank im Voraus!!
Sub WorksheetLoop()
Dim WS_Count As Integer
Dim I As Integer
WS_Count = Workbooks.Count
For I = 1 To WS_Count
MsgBox Workbooks(I).Name
Next I
End Sub