Gruppe
Allgemein
Problem
Wie kann ich Werte aus Einzelblättern in ein Deckblatt übertragen und in eine zusätzliche Spalte den jeweiligen Quellblattnamen eintragen?
StandardModule: basMain
Sub cmdAktualisierung_Click()
Dim rng As Range
Dim iRow As Integer, iWks As Integer
Dim iCount As Integer, iCol As Integer
For iWks = 1 To 4
Set rng = Worksheets("Abteilung" & iWks).Range("A1").CurrentRegion
iRow = Cells(Rows.Count, 1).End(xlUp).Row + 1
iCount = rng.Rows.Count
iCol = rng.Columns.Count
Range(Cells(iRow, 1), Cells(iRow + iCount - 2, iCol)).Value = _
rng.Rows("2:" & iCount).Value
Range(Cells(iRow, iCol + 1), _
Cells(iRow + iCount - 2, iCol + 1)).Value = rng.Parent.Name
Next iWks
End Sub