zeilen bedingt löschen
23.03.2004 18:57:30
Ulf
In meinen Tabellen tauchen manchmal unsinnige Zeilen auf und ich brauche ein Makro, um diese zu löschen.
Zwei Zeilen vor der betreffenden Zeile steht immer ein bestimmter Wert (x).
Wenn dann zwei Zeilen später in der selben Spalte eine Zahl folgt muß die Zeile gelöscht werden, folgt ein String-Ausdruck bleibt alles so wie es ist.
Mein bisheriger Versuch:
Sub Makro4()
' überflüssige zeilen löschen
For i = 1 To 210 'Zeilenanzahl schwankt zwischen 200 und 210
If Cells(i, 2).Value = "500(800F10.3)" And Cells(i + 2, 2).??? Then 'wie sagt man "Zellenformat=zahl"
Rows(i + 2).Delete 'lösche die zeile'
End If
Next i
End Sub
Ich bin für jede Hilfe dankbar.