aus meheren Blättern Spalten zusammenführen
15.01.2004 08:53:55
Peter
ich versuche best. Spalten aus meheren Tabellenblättern in einem
neuen Tabellenblatt ("Zusammen") untereinander zusammenzuführen.
So recht funktioniert das nicht.
Kann jemand helfen?
Danke im voraus
Peter
Sub SpaltenZusammen()
Dim intCounter As Integer, intRow As Long
Application.ScreenUpdating = False
Worksheets.Add.Move after:=Worksheets(Worksheets.Count)
Worksheets(Worksheets.Count).Name = "Zusammen"
intRow = 1
For intCounter = 2 To 4
Worksheets(intCounter).Range("A:A,B:B,C:C,I:I") _
.Copy Range(Cells(intRow, 1), Cells(intRow, 4))
intRow = Cells(Rows.Count, 1).End(xlUp).Row + 1
Next intCounter
End Sub