Option
Explicit
Sub
zeile_kopierenForNext()
Dim
I
As
Long
Dim
lngVon
As
Long
, lngBis
As
Long
, lngSpalte
As
Long
Dim
Y
As
Long
Y = 1
lngVon = Sheets(
"Try"
).Range(
"P2"
).Row
lngSpalte = Sheets(
"Try"
).Range(
"P2"
).Column
lngBis = Sheets(
"Try"
).Cells(Sheets(
"Try"
).Rows.Count, lngSpalte).
End
(xlUp).Row
For
I = lngVon
To
lngBis
If
Sheets(
"Try"
).Cells(I, lngSpalte).Value <>
""
Then
Sheets(
"try"
).Rows(I).Copy Destination:=Sheets(
"Tabelle1"
).Cells(Y, 1)
Y = Y + 1
End
If
Next
I
End
Sub
Sub
zeile_kopierenForEach()
Dim
rngQuelle
As
Range, rngZelle
As
Range, rngZiel
As
Range
Set
rngQuelle = Sheets(
"Try"
).Range(
"P2"
)
Set
rngQuelle = Range(rngQuelle, rngQuelle.Offset(Rows.Count - rngQuelle.Row).
End
(xlUp))
Set
rngZiel = Sheets(
"Tabelle1"
).Range(
"A1"
)
For
Each
rngZelle
In
rngQuelle
If
rngZelle.Value <>
""
Then
rngZelle.EntireRow.Copy Destination:=rngZiel
Set
rngZiel = rngZiel.Offset(1)
End
If
Next
rngZelle
End
Sub