Konsolidieren erst ab 2 Zeile
26.10.2016 08:12:55
chris58
Ich habe diesen Code gefunden, bis auf die Tatsache, das er ab der ersten Zeile konsolidiert passt er hervorragend.
Kann mir bitte einer sagen, wie ich es anstelle, damit der Code nur ab der zweiten Zeile die Daten aus den einzelnen Tabellenblättern zusammenfasst.
Danke
Sub JoinSheets()
Sheets("Ausdruck").Cells.ClearContents
Dim wksSrc As Worksheet, wksDst As Worksheet
Dim lngLR As Long
Set wksDst = Sheets("Ausdruck")
For Each wksSrc In ThisWorkbook.Worksheets
lngLR = wksDst.Cells(wksDst.Rows.Count, 1).End(xlUp).Row
If wksSrc.Name wksDst.Name Then
wksDst.Cells(lngLR + 1, 1) = wksSrc.Name
wksDst.Cells(lngLR + 1, 1).Font.Size = 24
wksSrc.UsedRange.Copy wksDst.Cells(lngLR + 2, 1)
End If
Next
Set wksDst = Nothing
End Sub