Sub
AlteAZUBI()
End
Sub
Dim
i
As
Integer
Dim
s
As
Integer
Dim
j
As
Integer
Dim
Groestezeile
As
Long
Dim
Groestezeile2
As
Long
Dim
Groestezeile3
As
Long
With
Worksheets(
"Datenbank"
)
Groestezeile = IIf(Len(.Cells(.Rows.Count, 1)), .Rows.Count, .Cells(.Rows.Count, 1).
End
(xlUp).Row)
Debug.Print
Groestezeile Groestezeile = .Columns(1).Find(
"*"
, .Cells(1, 1), xlValues, xlWhole, , xlPrevious).Row
Debug.Print Groestezeile
End
With
With
Worksheets(
"Datenbank_Alt"
)
Groestezeile2 = IIf(Len(.Cells(.Rows.Count, 1)), .Rows.Count, .Cells(.Rows.Count, 1).
End
(xlUp).Row)
Debug.Print Groestezeile2
Groestezeile2 = .Columns(1).Find(
"*"
, .Cells(1, 1), xlValues, xlWhole, , xlPrevious).Row
Debug.Print Groestezeile2
End
With
j = 1
For
i = 8
To
Groestezeile
If
Worksheets(
"Datenbank"
).Cells(i, 10) < Worksheets(
"Menü"
).Cells(49, 5)
Then
Worksheets(
"Datenbank"
).Rows(i).Copy
Worksheets(
"Datenbank_Alt"
).Rows(Groestezeile2 + 1).PasteSpecial Paste:=xlPasteValues
Application.CutCopyMode =
False
Worksheets(
"Datenbank"
).Rows(i).Delete
End
If
Next
i
End
Sub