<div>Hallo zusammen,</div><div>
</div><div>ich will ein kleines VBSkript schreiben, nach etwas googeln habe ich auch die entsprechenden commands gefunden.</div><div>Allerdings wollen diese im Zusammenspiel nicht funktionieren.</div><div>Ich will, sobald in der Ersten Zeile nichts steht oder "##" dann soll die komplette Zeile gelöscht werden.</div><div>Wenn in der ersten Zeile nur ein "#", dann soll nur der Zelleninhalt gelöscht werden.</div><div>Hier mal mein Code:
</div>
Sub nvloeschen()
Dim i As Long
Application.ScreenUpdating = False
For i = Cells(Rows.Count, 1).End(xlUp).Row To 1 Step -1
If Cells(i, 1) = "#" Then Cells(i, 1).ClearContents
If Cells(t, 1).Value = "" Then Rows(t).Delete Shift:=xlUp
If Cells(t, 1).Value = "##" Then Rows(t).Delete Shift:=xlUp
Next i
Application.ScreenUpdating = True
End Sub