mein Code enthält einen Fehler!
Sub aaa_zurueck_verschieben_von_nicht_erledigten_terminen()
Dim rfirst As Long, rlast As Long
Dim wksDAT As Worksheet, wksHTB As Worksheet
Set wksDAT = Sheets(3)
Set wksHTB = Sheets(2)
rlast = wksDAT.Cells(65536, 1).End(xlUp).Row
For rfirst = 2 To rlast
If InStr(wksDAT.Cells(rfirst, 9), "") Then
wksDAT.Rows(rfirst).Cut _
wksHTB.Cells(65536, 1).End(xlUp).Offset(1, 0)
End If
Next
Call aaa_LeerZeilenKiller
End Sub
In der Zeile "If InStr(wksDAT.Cells(rfirst, 9), "") Then" ist mein Argument "" nicht richtig. Ich bräuchte ein Argument das leere Zellen zeigt. d.h. ein Argument für leere Zelle.
Alles in allem suche ich nach leeren zellen in der Spalte 9 um diese zu verschieben.
evtl. gibt es da ja sogar eine elegantere Lösung.
Bitte um Hilfe.
Danke Rainer