Der Code macht zwar prinzipiell das was er soll, es bleibt aber IMMER eine Zeile zurück, in der in Zelle "Ix" kein Wert steht. Sie sollte aber gelöscht werden.
In Zeile 1 stehen Überschriften, deswegen habe ich bei 2 angefangen.
Danke für eure Tipps!!
Sub ZeileLöschen()
dim z as long
With ThisWorkbook.Worksheets("Daten")
For z = 2 To .Cells(Rows.Count, 1).End(xlUp).Row
If .Cells(z, 9).Value = "" Then
.Rows(z).Delete shift:=xlDown
End If
Next z
End With
End Sub