Thema Datum  Von Nutzer Rating
Antwort
Rot alle zeilen löschen wenn spalte nicht gleich kriterium in zelle
 19.05.2017 08:04:49 rotkiv
Solved
19.05.2017 10:40:17 Werner
NotSolved

Ansicht des Beitrags:
Von:
rotkiv		 Datum:
19.05.2017 08:04:49		 Views:
1039		 Rating:
     
Antwort:
 Nein
Thema:
alle zeilen löschen wenn spalte nicht gleich kriterium in zelle

Liebe Excelkollegen :)

Ich schraube derzeit an einem VBA Code, der seinen Zweck noch nicht ganz erfüllt.

Es geht darum, alle Zeile zu löschen, die in Spalte C nicht das Kriterium aus Zelle F4 erfüllen.

Der Code schaut folgendermaßen aus.

Dim wksData As Worksheet
    Dim lngLastRow As Long
    Dim rngData As Range
    

    Set wksData = ThisWorkbook.Worksheets("Auswertung")
    

    With wksData
        lngLastRow = .Range("C" & .Rows.Count).End(xlUp).Row
        Set rngData = .Range("C6:C" & lngLastRow)
    End With
    

    Application.DisplayAlerts = False
        With rngData
        
 


            .AutoFilter Field:=1, _
                        Criteria1:=Range("F4")
                        

            .Offset(1, 0).Resize(.Rows.Count - 1).SpecialCells(xlCellTypeVisible).Rows.Delete
        End With
    Application.DisplayAlerts = True
    

    With wksData
        .AutoFilterMode = False
        If .FilterMode = True Then
            .ShowAllData
        End If
    End With

Leider löscht dieser Code mit genaue jene Zeile die in Spalte C das Kriterium aus Zelle F4 erfüllen.

Weiß jemadn wie ich das umcodieren muss?

DAnke leute :)))

Ihre Antwort
  • Bitte beschreiben Sie Ihr Problem möglichst ausführlich. (Wichtige Info z.B.: Office Version, Betriebssystem, Wo genau kommen Sie nicht weiter)
  • Bitte helfen Sie ebenfalls wenn Ihnen geholfen werden konnte und markieren Sie Ihre Anfrage als erledigt (Klick auf Häckchen)
  • Bei Crossposting, entsprechende Links auf andere Forenbeiträge beifügen / nachtragen
  • 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
Thema: Name: Email:



  • Bitte beschreiben Sie Ihr Problem möglichst ausführlich. (Wichtige Info z.B.: Office Version, Betriebssystem, Wo genau kommen Sie nicht weiter)
  • Bitte helfen Sie ebenfalls wenn Ihnen geholfen werden konnte und markieren Sie Ihre Anfrage als erledigt (Klick auf Häckchen)
  • Bei Crossposting, entsprechende Links auf andere Forenbeiträge beifügen / nachtragen
  • 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

Thema Datum  Von Nutzer Rating
Antwort
Rot alle zeilen löschen wenn spalte nicht gleich kriterium in zelle
 19.05.2017 08:04:49 rotkiv
Solved
19.05.2017 10:40:17 Werner
NotSolved