Die Quelldatei besteht u.a. aus 85 Tabellenblättern, benannt nach fortlaufender Nummerierung.
Auslesen muß ich jetzt die Zellen von A8 bis C90 und I8 bis J90 jedes Tabellenblattes, aber nur die, in denen Daten stehen!!
Die zweite Schwierigkeit ist, zu jeder ausgelesenen Zeile brauche ich die Zelle C2 des betreffenden Tabellenblattes aus dem diese Zeile stammt.
Folgender Code macht schon ansatzweise etwas in der Art, jedoch läuft er nicht dateiübergreifend und es ist keine Abfrage nach ausgefüllten Zellen vorhanden:
Sub Zusammenfassung()
Dim iBlatt As Byte
For iBlatt = 2 To Worksheets.Count
Worksheets(iBlatt).Range("A8:C90").Copy Worksheets(1).Range("A" & ((iBlatt - 1) * 83) - 82)
Worksheets(iBlatt).Range("I8:J90").Copy Worksheets(1).Range("D" & ((iBlatt - 1) * 83) - 82)
Worksheets(1).Range("F" & ((iBlatt - 1) * 83) - 82 & ":F" & (iBlatt - 1) * 83) = Worksheets(iBlatt).Name
Next iBlatt
End Sub
Weiß jemand Rat?
Gruß Andre