ganze Zeilen aus arbeitsglätter in Tabelle zusamme
06.10.2014 09:39:56
Gustav
vielleicht kann mir jemand helfen - habe folgendes problem und bin langsam der Verzweiflung nahe.
Habe unterschiedlich viele Tabellenblätter in meiner Datei und möchte nun aus all diesen Tabellen jeweils die komplette 3 Zeile kopieren in eine Tabelle zusammenführen. Die Zeilen sind unterschiedlich lang und haben auch leere Spalten - diese sollen auch übernommen werden.
habe bislang nur ein VBA gefunden das den Zweck anfangs zu erfüllen scheint, aber dann doch nicht die exakte Zeilenlänge übernimmt.
Public Sub Zeile_kopieren()
Dim jedesWS As Worksheet
Dim ZielWS As Worksheet
Dim Zeile As Long
Dim ZielZeile As Long
Dim AnzahlSpalten As Long
Zeile = 3
ZielZeile = 18
Set ZielWS = ThisWorkbook.Worksheets("Tabelle1")
For Each jedesWS In ThisWorkbook.Worksheets
If Not jedesWS Is ZielWS Then 'Zieltabelle auslassen
AnzahlSpalten = jedesWS.UsedRange.Columns.Count
ZielWS.Rows(ZielZeile).Cells(1).Resize(1, AnzahlSpalten).Value = _
jedesWS.Rows(Zeile).Cells(1).Resize(1, AnzahlSpalten).Value
ZielZeile = ZielZeile + 1
End If
Next jedesWS
Set jedesWS = Nothing
Set ZielWS = Nothing
End Sub
lg Gustav