Dim wksDAT As Worksheet, wksHTB As Worksheet
Set wksDAT = Sheets(2)
Set wksHTB = Sheets(3)
rlast = wksDAT.Cells(65536, 1).End(xlUp).Row
For rfirst = 2 To rlast
If InStr(wksDAT.Cells(rfirst, 9), ".") Then '''Zellen mit Inhalt finden
wksDAT.Rows(rfirst).Cut _
wksHTB.Cells(65536, 1).End(xlUp).Offset(1, 0)
End If
Next
Call aaa_LeerZeilenKiller_final
End Sub
Die Zeile :
If InStr(wksDAT.Cells(rfirst, 9), ".") Then '''Zellen mit dem Inhalt . finden
soll jetzt nur nach Zellen suchen die gefüllt sind, also was drin steht.
Danke für Euere Hilfe.
Rainer