Daten in eine Gesamt-Tabelle - Code abändern
20.05.2013 09:48:19
rieckmann
ich habe hier einen Code der sämtliche Datensätze mehrere Tabellen ab Zeile 2,
in ein Tabellenblatt "Gesamt" , beim aufrufen des Blattes, zusammenfügen soll.
Das klappt auch sehr gut, nur werden die Daten jedes Mal unten dran gehängt,
und die Zeilenhöhe wird nicht mitkopiert.
Beim Aufrufen des Tabellenblattes "Gesamt" müssten erst die gesamten Daten aus diesem Blatt ab Zeile 2 gelöscht werden, und dann erst die Daten aus den anderen Blättern hineinkopiert werden.
Nach Möglichkeit auch mit der original Zeilenhöhe.
Ist das machbar ?
Hier der Code:
Private Sub Worksheet_Activate()
Dim dst As Worksheet, iWS%
Dim lRow&, lStartRow&, lLastRow&
Set dst = ThisWorkbook.Worksheets("Gesamt") ' Zieltabelle
lStartRow = 2 ' Ab Zeile
For iWS = 1 To ThisWorkbook.Worksheets.Count
With ThisWorkbook.Worksheets(iWS)
If .Name dst.Name Then
lLastRow = .Cells(.Rows.Count, 1).End(xlUp).Row
.Range(.Rows(lStartRow), .Rows(lLastRow)).Copy
lLastRow = dst.Cells(.Rows.Count, 1).End(xlUp).Row
dst.Rows(lLastRow).PasteSpecial Paste:=xlValues
End If
End With
Next iWS
End Sub
Gruß
Fred