For - verbinden

Bild

Betrifft: For - verbinden
von: Tom
Geschrieben am: 21.11.2003 07:26:45

Hallo,

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

Bild


Betrifft: AW: For - verbinden
von: PeterW
Geschrieben am: 21.11.2003 07:40:04

Hallo Tom,

ungetestet sollte es so gehen:

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
  ElseIf Cells(i, 1).Value = "gedruckt a" And Cells(i, 6).Value = "" Then
    Rows(i).Delete
  End If
Next
End Sub

Gruß
Peter


Bild


Betrifft: AW: For - verbinden
von: Tom
Geschrieben am: 21.11.2003 07:42:11

Hi Peter,

ElseIf - ich galube das war es. Werde es nachher testen!

Vielen Dank vorab

Tom


Bild

Beiträge aus den Excel-Beispielen zum Thema " For - verbinden"