Thema Datum  Von Nutzer Rating
Antwort
Rot Zeilen m. Fehlerwerten löschen, ab ...
15.10.2020 12:09:39 Fred
NotSolved
15.10.2020 12:40:41 Gast75278
NotSolved
15.10.2020 12:51:44 Gast75278
NotSolved

Ansicht des Beitrags:
Von:
Fred
Datum:
15.10.2020 12:09:39
Views:
36
Rating: Antwort:
  Ja
Thema:
Zeilen m. Fehlerwerten löschen, ab ...

Hallo VBA Experten,

mit folgenden Code lösche ich Zeilen, die in der 8.Spalte einen "Fehlerwert" haben.

On Error Resume Next
Set rERR = Columns(8).SpecialCells(xlCellTypeConstants, 16)
On Error GoTo 0
If Not rERR Is Nothing Then
Range(rERR, Cells(Rows.Count, 1)).EntireRow.Delete
End If

 

Meine Frage;

Wie ändere ich den Code, dass erst nach dem 10. Fehlerwert (die Fehlerwerte sind ununterbrochen in den folgenden Zeilen) die restlichen Zeilen gelöscht werden?

 

Gruss

Fred

 


Ihre Antwort
  • Bitte beschreiben Sie Ihr Problem möglichst genau und ausführlich
  • Codeschnipsel am besten über den Code-Button im Text-Editor einfügen
  • Die Angabe der Emailadresse ist freiwillig und wird nur verwendet, um Sie bei Antworten auf Ihren Beitrag zu benachrichtigen
  • Bitte markieren Sie Ihre Anfrage als erledigt wenn Ihnen geholfen wurde
Thema: Name: Email:

 
 

Thema Datum  Von Nutzer Rating
Antwort
Rot Zeilen m. Fehlerwerten löschen, ab ...
15.10.2020 12:09:39 Fred
NotSolved
15.10.2020 12:40:41 Gast75278
NotSolved
15.10.2020 12:51:44 Gast75278
NotSolved