Thema Datum  Von Nutzer Rating
Antwort
Rot Zeile löschen wenn in Spalte Wert nicht vorhanden ist
 18.05.2017 11:06:52 rotkiv
****
NotSolved
18.05.2017 11:30:23 Gast36961
NotSolved
18.05.2017 11:44:40 Gast56400
Solved

Ansicht des Beitrags:
Von:
rotkiv		 Datum:
18.05.2017 11:06:52		 Views:
1221		 Rating:
     
Antwort:
  Ja
Thema:
Zeile löschen wenn in Spalte Wert nicht vorhanden ist

Liebe Excelspezialisten!

Schon des längeren arbeite ich an einem Excel-File und komme nur sehr zögerlich voran. Einige Sachen ganz gut, jedoch beiße ich mir bei folgenden Problem etwas die Zähne aus.

Ich möchte nämlich alle Zeilen (Prüfung ab Zeile 7) löschen, die in Spalte C nicht den identen Zelleninhalt wie aus Zelle F4 aufweisen.

Zum Beispiel: Wenn in Zelle F4 xxxzzzuuu steht, möchte ich, dass alle Zeile gelöscht werden, wo in Spalte C (Ab Zeile 7) nicht xxxzzzuuu steht. Der Zelleninhalt der Zelle F4 verändert sich, da diese Zelle mit einer Dropdow-Liste verbunden ist.

folgenden Code habe ich mir zusammengeabstelt, funktioniert aber noch nicht.

 

Private Sub AktivitätEingrenzen_Click()



With Application
  .ScreenUpdating = False
    .Calculation = xlCalculationManual
    .EnableEvents = False
End With


    Dim ws As Worksheet
    Dim rng As Range
    Dim lastRow As Long

    Set ws = ActiveWorkbook.Sheets("Auswertung")

    lastRow = ws.Range("C" & ws.Rows.Count).End(xlUp).Row

    Set rng = ws.Range("C7:C" & lastRow)

    ' filter and delete all but header row
    With rng
        .AutoFilter Field:=1, Criteria1:="<>.Range(F4)"
        .Offset(1, 0).SpecialCells(xlCellTypeVisible).EntireRow.Delete
    End With

    ' turn off the filters
    ws.AutoFilterMode = False
End Sub

Weißt jemand wo das Problem begraben liegt?


Gruß rotkiv

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 Zeile löschen wenn in Spalte Wert nicht vorhanden ist
 18.05.2017 11:06:52 rotkiv
****
NotSolved
18.05.2017 11:30:23 Gast36961
NotSolved
18.05.2017 11:44:40 Gast56400
Solved