Hilfe beim Löschen von Zeilen
20.06.2016 22:33:03
Zeilen
ich habe folgendes Problem. Ich durchsuche eine Tabelle nach bestimmten Werten und selektiere diese. Was sehr gut funktioniert.
Nun möchte ich diese Zeilen löschen. Dazu habe ich folgendes Makro:
Set wks_Verk = ThisWorkbook.Worksheets(wks_Verk)
Set wks_Art = ThisWorkbook.Worksheets(wks_Art)
For Each rng_Row In Selection.Rows
wks_Art.Rows(rng_Row.Row).Delete
Next
Allerdings werden von sieben Zeilen nur vier gelöscht.
Wenn ich das Makro das zweite mal durchlaufen lasse, werden nochmals zwei gelöscht und beim dritten mal kommt bei folgendem Code die Fehlermeldung: Typen unverträglich
If CallByName(Selection, IIf(Val( _
Application.Version) > 11, "CountLarge", "Count"), VbGet) = 1 Then
If Target = Range("J" & Target.Row) Then 'Typen unverträglich
Range("T" & Target.Row).Interior.ColorIndex = 4
Exit Sub
End If
End If
Warum löscht er mir nur teilweise und warum kommt dieser Fehler?
Hat jemand Antworten und Lösungen?
Gruß Oisse
Anzeige