Folgendes:
Ich habe 10 Tabellen in Excel und will die Werte der Tabelle in eine Tabelle schreiben.
Es klappt fast einwandfrei.
Ich nehme aber die titel von jede Tabelle mit udn das willl ich nicht.
Kann einer mir bitte helfen??
Danke
Sub Zusammenführen()
Dim wksT As Worksheet
Dim wksS As Worksheet
Dim i As Integer
Dim RowsT As Integer
Application.ScreenUpdating = False
Set wksT = ActiveWorkbook.Sheets.Add(, Worksheets(Worksheets.Count), , xlWorksheet)
wksT.Name = "Zusammenführung"
For i = 1 To Worksheets.Count - 1
Set wksS = Worksheets(i)
RowsT = wksT.Cells(Rows.Count, 1).End(xlUp).Row + 1
wksS.UsedRange.Copy Destination:=wksT.Cells(RowsT, 1)
Next i
End Sub |