Office Forum
www.Office-Loesung.de
Access :: Excel :: Outlook :: PowerPoint :: Word :: Office :: Wieder Online ---> provisorisches Office Forum <-
Manche Zellen löschen
zurück: Zellen nach Eingabe von-bis in einer Schleife füllen weiter: Daten importieren Unbeantwortete Beiträge anzeigen
Neues Thema eröffnen   Neue Antwort erstellen     Status: Feedback Facebook-Likes Diese Seite Freunden empfehlen
Zu Browser-Favoriten hinzufügen
Autor Nachricht
Gast: Nicole
Gast


Verfasst am:
16. Sep 2009, 12:12
Rufname:

Manche Zellen löschen - Manche Zellen löschen

Nach oben
       Version: Office 2k (2000)

Hallo,
ich habe es schon mit dem Rekorder versucht, Problem ist aber, dass Autofilter nur zwei Kriterien kennt.
Ich will Spalte B nach 3 verschiedenen Kriterien durchsuchen und die Spalten, die dem nicht entsprechen löschen lassen.
So war meine Ergänzung zum Makro-Rekorder:
Code:
Sub bestZeilebehalten()
    Selection.AutoFilter
    Selection.AutoFilter Field:=2, Criteria1:="<>123", Operator:=xlAnd, _
        Criteria2:="<>*345*", Operator:=xlAnd, Criteria3:="<>789"
    Rows("2:65000").Select
    Selection.Delete Shift:=xlUp
End Sub

Excel meckert, weil Criterium 3 nicht bekannt.
Kann mir vielleicht jemand helfen?
Phelan XLPH
Fortgeschritten


Verfasst am:
16. Sep 2009, 12:29
Rufname: Phelan

AW: Manche Zellen löschen - AW: Manche Zellen löschen

Nach oben
       Version: Office 2k (2000)

Code:
Sub x()
Dim Suchwerte As Variant
Dim rngBereich As Range
Dim rngF As Range
Dim rngDel As Range
Dim i As Integer

Suchwerte = Array("123", "*345*", "789") 'Erweiterbar

Set rngBereich = Range("B2:B" & Cells(Rows.Count, 2).End(xlUp).Row)

With rngBereich
    '.Sort .Cells(1)
    For i = 0 To UBound(Suchwerte)
        Set rngF = .Find(Suchwerte(i), , xlValues, xlWhole)
        If Not rngF Is Nothing Then
            If rngDel Is Nothing Then
                Set rngDel = .ColumnDifferences(rngF)
            Else
                Set rngDel = Intersect(rngDel, .ColumnDifferences(rngF))
            End If
        End If
    Next
End With

If Not rngDel Is Nothing Then _
rngDel.EntireRow.Delete
End Sub

_________________
Was vorstellbar ist, ist auch machbar. - Albert Einstein
Gast: Nicole
Gast


Verfasst am:
16. Sep 2009, 13:47
Rufname:


AW: Manche Zellen löschen - AW: Manche Zellen löschen

Nach oben
       Version: Office 2k (2000)

Danke für die schnelle Antwort.
Es funktioniert!!!!
Neues Thema eröffnen   Neue Antwort erstellen Alle Zeiten sind
GMT + 1 Stunde

Diese Seite Freunden empfehlen

Seite 1 von 1
Gehe zu:  
Du kannst Beiträge in dieses Forum schreiben.
Du kannst auf Beiträge in diesem Forum antworten.
Du kannst deine Beiträge in diesem Forum nicht bearbeiten.
Du kannst deine Beiträge in diesem Forum nicht löschen.
Du kannst an Umfragen in diesem Forum nicht mitmachen.
Du kannst Dateien in diesem Forum nicht posten
Du kannst Dateien in diesem Forum herunterladen

Verwandte Themen
Forum / Themen   Antworten   Autor   Aufrufe   Letzter Beitrag 
Keine neuen Beiträge Excel Formeln: zellen verbinden 1 Gast 1414 22. Jan 2005, 01:11
jochenj zellen verbinden
Keine neuen Beiträge Excel Formeln: Einzelne Zellen miteinander vergleichen. 8 breid 1726 14. Jan 2005, 17:54
breid Einzelne Zellen miteinander vergleichen.
Keine neuen Beiträge Excel Formeln: Worte aus einer Zelle in 2 Zellen schreiben 2 Sven79 1322 12. Jan 2005, 01:20
Sven79 Worte aus einer Zelle in 2 Zellen schreiben
Keine neuen Beiträge Excel Formeln: Zeilen mit doppelten Werten löschen 6 Sebowsky 1208 06. Jan 2005, 22:26
Sebowsky Zeilen mit doppelten Werten löschen
Keine neuen Beiträge Excel Formeln: Datum aus mehreren Zellen zusammensetzen. 9 gast2005 5086 25. Dez 2004, 22:33
Kuwe Datum aus mehreren Zellen zusammensetzen.
Keine neuen Beiträge Excel Formeln: Doppelte Einträge aus Excel Tabellen löschen 3 Richkid 2831 09. Dez 2004, 15:45
Reinhard Doppelte Einträge aus Excel Tabellen löschen
Dieses Thema ist gesperrt, du kannst keine Beiträge editieren oder beantworten. Excel Formeln: Bestimmten Zellen einen Wert zuteilen. 1 tomimmo 2544 03. Dez 2004, 20:35
ae Bestimmten Zellen einen Wert zuteilen.
Keine neuen Beiträge Excel Formeln: Excel Zellen verknüpfen! 1 Gast 2858 10. Nov 2004, 10:41
Gast Excel Zellen verknüpfen!
Keine neuen Beiträge Excel Formeln: aus verschiedenen Zellen eine Hyperlink erstellen? 2 MrMr 1905 28. Okt 2004, 19:43
MrMr aus verschiedenen Zellen eine Hyperlink erstellen?
Keine neuen Beiträge Excel Formeln: 2 oder mehr zellen verbinden, nicht VERKETTEN mit & 5 ALEKS 3246 28. Okt 2004, 10:55
Aleks 2 oder mehr zellen verbinden, nicht VERKETTEN mit &
Keine neuen Beiträge Excel Formeln: Blattschutz: bestimmte Zellen zum Löschen freigeben 6 Christiane 1203 21. Okt 2004, 07:17
lala Blattschutz: bestimmte Zellen zum Löschen freigeben
Keine neuen Beiträge Excel Formeln: Summe verschiedener Zellen mit Suchkreterium (sverweis) 3 Ralli 11135 13. Okt 2004, 23:12
ae Summe verschiedener Zellen mit  Suchkreterium (sverweis)
 

----> Diese Seite Freunden empfehlen <------ Impressum - Besuchen Sie auch: Excel Tipps