Office: (Office 2013) Schleife zur Bauteilprüfung

Hallo,
für eine Checkliste werden Daten zusammengeführt in denen Bauteile auf ihre Sicherheit geprüft worden sind. Die Ergebnisse werden in einer Excel Datei Bauteile geführt und das Deckblatt in die Excel Datei Baugruppe überführt. So weit so gut.

Um eine schnelle Übersicht zu erhalten, soll auf dem Titelblatt der Baugruppen Datei eine kurze Übersicht dargestellt werden welche Teile i.O sind und welche nicht. Die Daten dafür befinden sich immer in den Deckblättern von den Bauteilen die ja in die Baugruppen Datei hineinkopiert werden und immer in den Spalten B17:G17 bei jedem Dokument.

Jetzt möchte ich das ganze in einer Tabelle darstellen M14:R33 . Da immer unterschiedlich viele Bauteile in einer Baugruppe sind, würde ich es gut finden, wenn man das mit ner Schleife realisieren könnte und dann immer untereinander dargestellt werden könnten. Desweiteren heißen die Bauteile ja auch immer anders, sodass man vll anstatt über den Namen über die Position per Zahl die Tabelle anwählt.

Ich hab mich da dran ein wenig versucht, mir aus verschiedenen Problem Threads was zusammen zu basteln, oder ein Makro auszulesen und zu verändern, bin aber immer gescheitert. Bin ein absoluter Laie.

Könntet ihr mir helfen?

 

Hola,

eine Beispieldatei mit Phantasiedaten wäre hilfreich.

Gruß,
steve1da

 

https://drive.google.com/open?id=0B4HISJc8TGmLeGRoeG5STFZtX0E
Hier habe ich die beiden Dateien mal hochgeladen

 

Hola,

bitte nutze den Upload im Forum - irgendwann löscht du die Datei aus Google Drive und der Thread ist quasi wertlos.

Gruß,
steve1da

 

Den Anhang Baugruppen Checkliste 2015.xlsm betrachten Den Anhang Bauteil Checkliste.xlsm betrachten

So hier sind die beiden Dateien. Das Deckblatt soll von der Bauteil Datei in die Baugruppen Datei eingefügt werden, das geht ja noch. aber wenn dann in der Baugruppe mehrere Blätter sind von denen was rauskopiert werden soll, weiß ich halt nicht wie man das elegant lösen kann...

 

Sheets(2).Range("B17:G17").Copy
'einfügen in erste freie Zeile in ausgabe
Sheets(1).Cells(Rows.Count, 1).End(xlUp).Offset(-23, 11).PasteSpecial xlPasteValues
'Namen kopieren
Sheets(2).Range("A1").Copy
'einfügen in Tabelle
Sheets(1).Cells(Rows.Count, 1).End(xlUp).Offset(-23, 9).PasteSpecial xlPasteValues
'Bereich kopieren
Sheets(3).Range("B17:G17").Copy
'einfügen in erste freie Zeile in ausgabe
Sheets(1).Cells(Rows.Count, 1).End(xlUp).Offset(-22, 11).PasteSpecial xlPasteValues
'Namen kopieren
Sheets(3).Range("A1").Copy
'einfügen in Tabelle
Sheets(1).Cells(Rows.Count, 1).End(xlUp).Offset(-22, 9).PasteSpecial xlPasteValues

also das ist jetzt mein Code den ich mir zusammen gebastelt habe.. Er funktioniert, aber wenn ich das für 20 Blätter immer diesen Code tippen muss wird der ja endlos lang.

Wie funktioniert das mit einer Schleife und Variablen?