Anzeige
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender

Forumthread: Alle Zeilen löschen, außer die bei den Zellenin..?

Alle Zeilen löschen, außer die bei den Zellenin..?
17.10.2007 14:15:16
Selma
Hallo Leute,
ich möchte alle Zeilen löschen, außer die bei den Zelleninhalt in Spalte A
dieses s1600-h oder dieses oder dieses int.Vermerk" beinhaltet.
Wie mache ich das?
Vielen Dank im Voraus.
Liebe Grüße
Selma

Anzeige

10
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
Lösungsvorschlag per SPEZIALFILTER
17.10.2007 15:04:07
NoNet
Hallo Selma,
eine Möglichkeit wäre, die Liste per SPEZIALFILTER an gleicher Stelle zu filtern und das Ergebnis an eine andere Stelle zu kopieren.
Wie das funktioniert, kannst Du Dir hier als FLASH-Video anschauen (1,4 MB, erfordert Adobe FLASH !) :
http://www.excelei.de/videos/flash/Spezialfilterergebnis_kopieren.htm
Um in der Originalliste wieder alle Zeilen anzuzeigen, wählst Du "Daten - Filter - Alel anzeigen".
Gruß, NoNet

Anzeige
AW: Lösungsvorschlag per SPEZIALFILTER
17.10.2007 15:06:00
Worti
Hi NoNet,
mal wieder zwei doofe, ein Gedanke ;-) I-A
Gruß Worti

AW: Alle Zeilen löschen, außer die bei den Zellenin..?
17.10.2007 15:05:20
Worti
Hallo Selma,
das kannst du mit dem Spezialfilter lösen:
Gehe dazu auf ein leeres Blatt, wähle dann Daten-Filter Spezialfilter. Markiere den Listenbereich und den Kriterienbereich, mache ein Häckchen bei An andere Stelle filtern und dann ok. Dabei sollte dein Kriterienbereich in etwa so aussehen:

Gruß Worti

Anzeige
*Pfeif* - Ganze 73 Sekunden schneller ;-)) _oT
17.10.2007 15:07:18
NoNet
_oT

Alle Zeilen löschen, außer die bei den Zellenin..?
17.10.2007 15:28:00
Selma
Hallo NoNet, hallo Worti,
die Zelleninhalte erhalten auch andere Texte.
Bsp.
A50 = Zahlung eingegangen int. Vermerk"
A54 = C:\PRJ\2058\EINGANG\Seiler GmbH\s1600-h\2007-05-16
A62 = Nachträge
A70 = int. Vermerk" = in Bearbeitung
A78 = AW Änderungswunsch Nr. 58
P.S. an NoNet: Awakening" von Melissa Etheridge ist echt klasse. ;-))
Liebe Grüße
Selma

Anzeige
OK, dann gib als Kriterium *s1600-h* ein
17.10.2007 15:45:35
NoNet
Hallo Selma,
es ging aus Deiner ersten anfrage leider nicht hervor, dass diese Begriffe nicht am Anfang sondern evtl. auch mitten in der Zelle stehen.
Du kannst das lösen, indem Du die Suchbegriffe in * einschliesst (also z.B. *s1600-h*), siehe hier :
Und nun wieder den Spezialfilter "drüberjagen" ;-)
Gruß, NoNet
PS: Schön, dass Dir diese CD auch gefällt - ich habe sie mir gleich vorgestern gemütlich im dunklen Zimmer (nur der Monitor des PCs leuchtete) komplett angehört und war total versunken in diese tolle Stimmung

Anzeige
AW: Alle Zeilen löschen, außer die bei den Zellenin..?
17.10.2007 15:45:41
Worti
Hallo Selma,
dann mach dir folgenden Kriterienbereich:


Gruß Worti

AW: Alle Zeilen löschen, außer die bei den Zelleni
17.10.2007 16:28:11
Selma
Hallo Worti, hallo NoNet,
hat super funktioniert. Ich habe von allem was dazugelernt. ;) Vielen Dank !
Ich habe vergessen zu erwähnen, dass ich dies an ca. 20 Tabellenblätter anwenden möchte.
Da stelle ich Frage, ob dies nicht einfacher / schneller ist per VBA zu realisieren. Vor allem geht das überhaupt ?
@NoNet: Womit hast Du Flash-File erstellt? Sieht gut aus ;)
Liebe Grüße
Selma

Anzeige
Siehe http://camstudio.softonic.de/
17.10.2007 16:39:00
NoNet
Hallo Selma,
das FLASH habe ich mit dem kostenlosen ScreenCam-Programm "Camstudio" erzeugt :
http://camstudio.softonic.de/
Zu Deiner Excel-Frage : Ja, das kann man per VBA lösen :
Zeichne den Vorgang per Macrorecorder für ein Blatt auf, dann hast Du den Basis-Code (vor allem die Syntax für den AdvancedFilter).
Diesen Code musst Du dann nur noch in eine Schleife einbinden (For each sh in WorkSheets...).
Wie gut kennst Du Dich mit VBA aus ? Bekommst Du das alleine hin ?
Gruß, NoNet

Anzeige
AW: Siehe http://camstudio.softonic.de/
17.10.2007 16:59:00
Selma
Hallo NoNet,
vielen Dank für den Link.
Meine VBA-Kenntnisse reichen zur Zeit nur zum Aufzeichnen mit Rekorder und kleine Korrekturen.
Besteht die Möglichkeit die 3 Merkmale in VBA-Code einzubinden ?
LG
Selma

Forumthreads zu verwandten Themen

Anzeige
Anzeige
Anzeige
Anzeige
Anzeige
Anzeige

Infobox / Tutorial

Alle Zeilen löschen, außer die mit bestimmten Inhalten in Excel


Schritt-für-Schritt-Anleitung

Um alle Zeilen in Excel zu löschen, die nicht bestimmte Inhalte enthalten, kannst Du die folgende Schritt-für-Schritt-Anleitung verwenden:

  1. Kriterien definieren: Bestimme die Inhalte, die in Spalte A enthalten sein sollen, wie z.B. s1600-h, int. Vermerk oder leere Zellen.

  2. Spezialfilter anwenden:

    • Gehe zu einem leeren Blatt.
    • Wähle die Registerkarte Daten und klicke auf Filter > Spezialfilter.
    • Markiere den Listenbereich (Deine Daten) und den Kriterienbereich (wo Du die Suchbegriffe eingibst).
    • Setze ein Häkchen bei An andere Stelle filtern und klicke auf OK.
  3. Ergebnisse kopieren: Die gefilterten Ergebnisse kannst Du nun an eine andere Stelle kopieren.

  4. Ursprüngliche Liste bereinigen: Um alle Zeilen zu löschen, die nicht den angegebenen Inhalten entsprechen, kannst Du die gefilterten Zeilen zurück in die Originaldatei einfügen und die überflüssigen Zeilen löschen.

Alternativ kannst Du die Inhalte in den Kriterienbereich mit *s1600-h* eingeben, um alle Zeilen zu erfassen, die diesen Wert irgendwo in der Zelle enthalten.


Häufige Fehler und Lösungen

  • Problem: Die Zeilen werden nicht gelöscht.

    • Lösung: Überprüfe, ob die Suchbegriffe korrekt eingegeben sind. Stelle sicher, dass Du die Filteroptionen richtig eingestellt hast.
  • Problem: Filter zeigt keine Ergebnisse an.

    • Lösung: Vergewissere Dich, dass die Daten im richtigen Format vorliegen und dass die Suchbegriffe in der Kriterienliste korrekt sind.

Alternative Methoden

Wenn Du häufig die Funktion alle Zeilen löschen, die nicht enthalten benötigst, kannst Du auch VBA verwenden:

  1. VBA-Makro erstellen:
    • Öffne den VBA-Editor (Alt + F11).
    • Erstelle ein neues Modul und füge den folgenden Code ein:
Sub ZeilenLoeschen()
    Dim ws As Worksheet
    Dim i As Long
    Set ws = ThisWorkbook.Sheets("DeinBlattName") ' Ersetze "DeinBlattName" mit dem Namen Deines Blattes
    For i = ws.Cells(ws.Rows.Count, "A").End(xlUp).Row To 1 Step -1
        If Not (InStr(ws.Cells(i, 1).Value, "s1600-h") > 0 Or _
                 InStr(ws.Cells(i, 1).Value, "int. Vermerk") > 0 Or _
                 ws.Cells(i, 1).Value = "") Then
            ws.Rows(i).Delete
        End If
    Next i
End Sub
  1. Makro ausführen: Führe das Makro aus, um alle Zeilen zu löschen, die nicht die gewünschten Inhalte enthalten.

Praktische Beispiele

Beispiel für einen Kriterienbereich:

Kriterienbereich
s1600-h
int. Vermerk
(leer)

Wenn Du diesen Kriterienbereich in den Spezialfilter einfügst, filtert Excel alle Zeilen, die diese Inhalte nicht haben.


Tipps für Profis

  • Erweiterte Filter: Nutze die erweiterten Filteroptionen, um komplexere Kriterien zu definieren. Du kannst mehrere Bedingungen kombinieren.
  • Makros für automatisierte Prozesse: Wenn Du regelmäßig diese Aufgabe ausführst, speichere den VBA-Code als Makro, um Zeit zu sparen.
  • Daten sichern: Erstelle eine Sicherungskopie Deiner Daten, bevor Du massenhaft Zeilen löschst, um Datenverlust zu vermeiden.

FAQ: Häufige Fragen

1. Wie kann ich alle Zellen löschen, die einen bestimmten Inhalt haben?
Du kannst die Funktion „Suchen und Ersetzen“ (Strg + H) verwenden, um alle Zellen mit einem bestimmten Inhalt zu finden und zu löschen.

2. Ist es möglich, ausgeblendete Zeilen ebenfalls zu löschen?
Ja, Du kannst die Funktion „Alle Zeilen löschen“ verwenden, um auch ausgeblendete Zeilen zu entfernen, indem Du sicherstellst, dass die Filtereinstellungen dies zulassen.

3. Wie kann ich nur die Zeilen unterhalb einer bestimmten Zeile löschen?
Du kannst den Bereich, den Du filtern möchtest, manuell anpassen, um nur die darunter liegenden Zeilen zu berücksichtigen.

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige