For - verbinden
21.11.2003 07:26:45
Tom
ich stehe heute morgen noch etwas auf der Leitung ...
Wie kann ich diese beiden Befehle zu einem zusammen führen?????
Danke vorab.
Tom
Sub Auftragslist_löschen()
For i = 1000 To 1 Step -1
If Cells(i, 2).Value = "Auftragslist" And Cells(i, 5).Value = "" Then
Rows(i).Delete
End If
Next
End Sub
Sub gedruckt_a_löschen()
For i = 1000 To 1 Step -1
If Cells(i, 1).Value = "gedruckt a" And Cells(i, 6).Value = "" Then
Rows(i).Delete
End If
Next
End Sub
Anzeige