Live-Forum - Die aktuellen Beiträge
Datum
Titel
17.10.2025 10:28:49
16.10.2025 17:40:39
Anzeige
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender

Forumthread: Wert suchen und bestimmte Zellen löschen

Wert suchen und bestimmte Zellen löschen
24.11.2017 08:25:49
reiner
Hallo zusammen,
ich hab folgendes Problem :
Ich möchte in einer Aufstellung nach einem bestimmten Wert suchen.
( Diesen Wert gebe ich in einer bestimmten Zelle ein )
Mit einer "WAHR / FALSCH" Prüfung ermittel ich die "TREFFER".
Jetzt möchte ich nur die Zellen löschen - die das Attribut "FALSCH" bekommen haben.
Ich habe mal meine Datei angehängt - so ist es vielleicht einfacher zu verstehen, was mein Problem ist. ( https://www.herber.de/bbs/user/117880.xlsm )
Vielen Dank vorab an alle
Beste Grüße
Reiner
Anzeige

5
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Autofilter?
24.11.2017 08:59:47
Phi
Wenn man die Überschriften nur ein-zeilig nutzt, kann mit Autofilter, von Hand oder VBA, nach den Vorgaben gesucht werden.
AW: Wert suchen und bestimmte Zellen löschen
24.11.2017 10:06:49
Peter
Hallo Reiner,
welche Cellen sollen gelöscht werden?
Alle Cellen in der Zeile wo in der Spalte "E" Falsch steht oder nur das Falsch in der Spalted E?
Mir ist dies nich klar.
Viele Grüße
Peter (hpo)
Anzeige
AW: Wert suchen und bestimmte Zellen löschen
24.11.2017 10:22:26
reiner
Hallo Peter,
Es sollen die Zellen ab Spalte E bis Spalte O gelöscht werden,
wenn hier "FALSCH" in Spalte E steht.
Die Spalten A bis D sollen unberücksichtigt bleiben.
Gruß
Reiner
AW: Wert suchen und bestimmte Zellen löschen
24.11.2017 11:28:21
Peter
Hallo Reiner,
hinterlegt dem Button folgenden Code:
Private Sub CommandButton1_Click()
Dim e As Object
For Each e In Sheets("Tabelle1").Range("E2:E" & Sheets("Tabelle1").Cells(Rows.Count, 5).End( _
xlUp).Row)
Debug.Print e.Value
If e.Value = "Falsch" Then
Range(Cells(e.Row, 5), Cells(e.Row, 15)).ClearContents
End If
Next e
End Sub
Ich hoffe Du kommst damit zurecht.
Gruß
Peter (hpo)
Anzeige
AW: Wert suchen und bestimmte Zellen löschen
24.11.2017 11:57:02
reiner
Hallo Peter,
PERFEKT - hab den Code ein bissl angepaßt und nun löscht er auch die Zellen raus !
Hier der Code :
Private Sub CommandButton2_Click()
Dim e As Object
For Each e In Sheets("Tabelle1").Range("E3:E" & Sheets("Tabelle1").Cells(Rows.Count, 5).End( _
xlUp).Row)
Debug.Print e.Value
If e.Value = "Falsch" Then
Range(Cells(e.Row, 5), Cells(e.Row, 15)).Delete
End If
Next e
End Sub
VIELEN DANK für Deine / Eure Hilfe !!
Beste Grüße aus dem Rheinland
Reiner
Anzeige
;

Forumthreads zu verwandten Themen

Anzeige
Anzeige
Anzeige
Entdecke relevante Threads

Schau dir verwandte Threads basierend auf dem aktuellen Thema an

Alle relevanten Threads mit Inhaltsvorschau entdecken
Anzeige
Anzeige

Infobox / Tutorial

Wert suchen und Zellen löschen in Excel


Schritt-für-Schritt-Anleitung

Hier erfährst Du, wie Du in Excel einen bestimmten Wert suchen und die entsprechenden Zellen löschen kannst. In diesem Beispiel verwenden wir VBA, um die Zellen zu löschen, in denen das Ergebnis "FALSCH" angezeigt wird.

  1. Öffne Deine Excel-Datei.
  2. Drücke ALT + F11, um den VBA-Editor zu öffnen.
  3. Füge ein neues Modul hinzu, indem Du mit der rechten Maustaste auf "VBAProject" klickst und "Einfügen" > "Modul" wählst.
  4. Kopiere den folgenden VBA-Code in das Modul:
Private Sub CommandButton_Click()
    Dim e As Object
    For Each e In Sheets("Tabelle1").Range("E2:E" & Sheets("Tabelle1").Cells(Rows.Count, 5).End(xlUp).Row)
        If e.Value = "Falsch" Then
            Range(Cells(e.Row, 5), Cells(e.Row, 15)).ClearContents  ' Verwende .Delete, um die Zellen zu löschen
        End If
    Next e
End Sub
  1. Schließe den VBA-Editor.
  2. Füge einen Button auf Deinem Arbeitsblatt ein und verknüpfe ihn mit der oben erstellten Subroutine.
  3. Klicke auf den Button, um den Vorgang zu starten.

Häufige Fehler und Lösungen

  • Fehler: Es werden nicht alle Zellen gelöscht.

    • Lösung: Stelle sicher, dass der Bereich in der Schleife korrekt definiert ist. Der Code muss auf die Spalte zeigen, in der Du das "FALSCH"-Ergebnis suchst.
  • Fehler: Der Button funktioniert nicht.

    • Lösung: Überprüfe, ob der Button tatsächlich mit der richtigen Subroutine verknüpft ist.

Alternative Methoden

Wenn Du keine VBA-Lösung verwenden möchtest, kannst Du auch die Filterfunktion von Excel nutzen:

  1. Markiere die Daten in Deiner Tabelle.
  2. Aktiviere den Autofilter über Daten > Filter > AutoFilter.
  3. Filtere die Spalte E nach "FALSCH".
  4. Wähle die gefilterten Zellen aus und lösche sie manuell.

Praktische Beispiele

Angenommen, Du hast eine Tabelle mit den Spalten A bis O. Du möchtest alle Zellen in den Spalten E bis O löschen, wenn in Spalte E "FALSCH" steht. Der VBA-Code oben wird genau das erreichen. Wenn Du stattdessen nur die Zelle in Spalte E löschen möchtest, ändere ClearContents zu Delete im Code.


Tipps für Profis

  • Nutze die Debug.Print-Anweisung im Code, um den aktuellen Wert von Zellen während der Schleife zu überprüfen. Das hilft Dir, Probleme schneller zu identifizieren.
  • Wenn Du nur nach bestimmten Werten suchst, kannst Du die Schleife anpassen, um nur Zellen mit bestimmten Bedingungen zu bearbeiten.
If e.Value = "DeinWert" Then
    ' Aktion durchführen
End If

FAQ: Häufige Fragen

1. Kann ich auch mit Formeln Zellen suchen und löschen? Ja, Du kannst die Funktion WENN in Kombination mit FILTER verwenden, um Werte zu identifizieren. Für das Löschen von Zellen ist VBA jedoch oft effektiver.

2. Wie kann ich sicherstellen, dass ich keine Daten verliere? Bevor Du Zellen löschst, erstelle immer eine Sicherheitskopie Deiner Datei. So kannst Du im Falle eines Fehlers Deine Daten wiederherstellen.

3. Funktioniert das auch in älteren Excel-Versionen? Der VBA-Code sollte in den meisten Excel-Versionen ab Excel 2007 funktionieren. Achte darauf, dass Du die Makros aktiviert hast.

4. Wie kann ich die Zellen in einer anderen Spalte suchen? Ändere einfach den Bereich in der For Each-Schleife, um die gewünschte Spalte anzusprechen.

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Entdecke mehr
Finde genau, was du suchst

Die erweiterte Suchfunktion hilft dir, gezielt die besten Antworten zu finden

Suche nach den besten Antworten
Unsere beliebtesten Threads

Entdecke unsere meistgeklickten Beiträge in der Google Suche

Top 100 Threads jetzt ansehen
Anzeige