Option
Explicit
Sub
Datenzusammenfassen()
Dim
nZeile
As
Integer
Dim
vSpalte
As
Integer
Dim
vZeile
As
Integer
Dim
nSpalte
As
Integer
Dim
vSheet
As
String
Dim
nSheet
As
String
vSheet =
"Tabelle1"
nSheet =
"Tabelle1"
nZeile = 1
nSpalte = 26
vSpalte = 2
For
vZeile = 1
To
Sheets(vSheet).Cells(65536, vSpalte).
End
(xlUp).Row
Sheets(nSheet).Cells(nZeile, nSpalte) = Sheets(vSheet).Cells(vZeile, vSpalte)
nZeile = nZeile + 1
Next
vSpalte = 10
For
vZeile = 3
To
Sheets(vSheet).Cells(65536, vSpalte).
End
(xlUp).Row
Sheets(nSheet).Cells(nZeile, nSpalte) = Sheets(vSheet).Cells(vZeile, vSpalte)
nZeile = nZeile + 1
Next
vSpalte = 18
For
vZeile = 3
To
Sheets(vSheet).Cells(65536, vSpalte).
End
(xlUp).Row
Sheets(nSheet).Cells(nZeile, nSpalte) = Sheets(vSheet).Cells(vZeile, vSpalte)
nZeile = nZeile + 1
Next