Guten Morgen,
For zeile = ActiveWorkbook.Sheets(1).UsedRange.Rows.Count To 1 Step -1
If InStr(1, UCase(ActiveWorkbook.Sheets(1).Cells(spalte_systemstatus, zeile).Value), "AUS", vbTextCompare) = 0 Then
Else
If InStr(1, UCase(ActiveWorkbook.Sheets(1).Cells(spalte_anwenderstatus, zeile).Value), "EAUS", vbTextCompare) = 0 Then
Else
ActiveWorkbook.Rows(zeile).Delete
End If
End If
Next zeile
Aus einem Sheet "X" sollen diejenigen Zeilen gelöscht werden, deren Spaltenwert bei Systemstatus: "AUS" UND Anwenderstatus: "EAUS" enthalten.
Insrt() müsste in diesem Zusammenhang bei ettlichen Zeilen Werte >0 liefern. Eine AND-Verknüpfung in der IF-Anweisung geht auch nicht.
Fehlermeldung: Laufzeitfehler '1004'
Danke Haimon
|