Live-Forum - Die aktuellen Beiträge
Datum
Titel
15.10.2025 09:51:49
Wenns mit Zahl und Buchstaben
15.10.2025 08:22:15
Privat Sub ObjExcel_Sheet Change....deaktivieren
14.10.2025 19:08:54
Verbindung von Excel mit maps
14.10.2025 15:55:14
wenn zwei Werte aus Liste übereinstimmen, dann wahr
Keine passende Antwort im Forumarchiv gefunden?
Stelle deine Frage im Live-Forum
Anzeige
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Vorheriger Thread
Vorheriger Thread
Rückwärts Blättern
668to672
668to672
Aktuelles Verzeichnis
Verzeichnis Übersicht
Verzeichnis Übersicht
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Spalteninhalt suchen und Zeile löschen

Forumthread: Spalteninhalt suchen und Zeile löschen

Spalteninhalt suchen und Zeile löschen
22.09.2005 17:43:59
Andrea
Hallo zusammen!
Ich möchte in einer nach Spalte D sortierten Tabelle mit variierender Zeilenanzahl die Zeilen löschen, die in Spalte D einen num-wert kleiner 1 haben.
Kann mir da jemand helfen?
Es grüßt,
Andrea
Anzeige

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

Betreff
Datum
Anwender
Anzeige
AW: Spalteninhalt suchen und Zeile löschen
22.09.2005 17:57:15
Rene
Hi, das als button oder als macro
willst du die zellen nur cleanen, oder wirklich zeilen komplett löschen?
das makro löscht die zeilen Komplett...

Sub Delete()
i = 1
Do Until Sheets("Sheet3").Cells(i, 4) = ""
If Sheets("Sheet3").Cells(i, 4) < 1 Then
Sheets("Sheet3").Cells(i, 4).Select
ActiveCell.EntireRow.Delete
Else
i = i + 1
End If
Loop
End Sub

have fun
lg René
Anzeige
AW: Spalteninhalt suchen und Zeile löschen
22.09.2005 18:12:10
Andi
Hi,
wenn ich mich kurz einmischen darf:
Zeilen löschen immer nur von unten nach oben!
Grund ist folgender: angenommen in Zeile 5 trifft das Kriterium zu und sie wird gelöscht, dann rutschen alle Zeilen darunter eins nach oben. Wenn jetzt die frühere Zeile 6 und jetzige Zeile 5 das Kriterium auch erfüllt, wird sie trotzdem nicht gelöscht, weil der Zeilen-Zähler ja beim nächsten Durchlauf schon auf 6 steht und die neue Zeile 5 nicht mehr überprüft wird.
Mein Vorschlag sieht so aus (ungetestet):

Sub loeschen()
dim zeile as integer
with Sheets("Sheet3")
for zeile = .Cells(65536, 4).End(xlUp).Row to 1 step -1
if .cells(zeile,4).value < 1 then rows(zeile).entirerow.delete
next zeile
end with
End Sub

Schönen Gruß,
Andi
Anzeige
AW: Spalteninhalt suchen und Zeile löschen
23.09.2005 17:06:15
Andrea
Also irgendwie funktioniert das alles nicht!
Ich habe keine wirkliche Ahnung von VBA. Bitte das zu berücksichtigen.
Die Spalte D ist absteigend sortiert und es sollen die ganzen Zeilen mit Inhalt in Spalte D kleiner 1 gelöscht werden!
LG,
Andrea
AW: Spalteninhalt suchen und Zeile löschen
26.09.2005 09:20:12
Andi
Hi,
genau das macht das Makro ja auch; drück mal Alt+F11, dann bist Du im VBA-Editor. Über Einfügen - Modul erstellst Du ein Standard-Modul und dort kopierst Du den Code hinein und schliesst den VBA-Editor wieder.
Unter Extras - Makro - Makros müsste dann das Makro "löschen" zu finden und auszuführen sein.
Schönen Gruß,
Andi
Anzeige
AW: Spalteninhalt suchen und Zeile löschen
22.09.2005 18:04:17
Ralf
Hallo Andrea,

Sub Inhalt_Kleiner_1()
Dim dblLZ#, x#
dblLZ = ActiveSheet.UsedRange.Cells.SpecialCells(xlLastCell).Row
For x = 1 To dblLZ
If CDbl(Range("D" & x)) < 1 Then
Range("D" & x).EntireRow.Delete
dblLZ = dblLZ - 1
x = x - 1
End If
Next x
End Sub

Ciao, Ralf
Anzeige
Nachfrage - Formelprofi
22.09.2005 19:05:28
PeterW
Hallo Andrea,
wie ist Spalte D sortiert, auf- oder absteigend? Gibt es Überschriften - oder anders gefragt in welcher Zeile fangen die Werte an? Ein Formelcrack sollte dann in der Lage sein, die dazu gehörende Zeile zu ermitteln und den gesamten Bereich in einem Rutsch zu löschen.
Gruß
Peter
Anzeige
Ohne Formel - Autofilter
22.09.2005 19:09:18
{Boris}
Hi Peter,
...ausnahmsweise ohne Formel: Autofilter über die Spalte, benutzerdefiniert filtern nach kleiner als 1.
Filterzeilen dann markieren und löschen.
Grüße Boris
AW: Ohne Formel - Autofilter
22.09.2005 19:14:14
PeterW
Hallo Boris,
so einfach kann Excel sein. :-)
Trotzdem die Nachfrage: wie könnte eine Formel aussehen, die in einer aufsteigend sortierten Spalte die Zeile des letzten Wertes kleiner X ermittelt? Wenn du was aus dem Handgelenk hättest.. - wenn nicht auch kein Problem.
Gruß
Peter
Anzeige
AW: Ohne Formel - Autofilter
22.09.2005 19:18:18
{Boris}
Hi Peter,
Werte aufsteigend in Spalte A, Suchwert in C1.
=VERGLEICH(C1;A:A)-ZÄHLENWENN(A:A;C1)
Ergibt die Zeile des nächst kleineren Wertes aus C1.
Grüße Boris
AW: Ohne Formel - Autofilter
22.09.2005 19:34:18
PeterW
Hallo Boris,
jetzt, da ich es sehe, ist es ganz einfach. :-)
Danke und Gruß
Peter
;

Forumthreads zu verwandten Themen

Zeilen in Zellen suchen und löschen
Daniel

Hallo,
ich möchte in Excell mehrere Zelle suchen, die folgenden String in einer oder mehreren Zeilen enthalten: ----
Diese Zeilen möchte ich dann löschen. Nach diesem String sind noch weitere Zeichen vorhanden, die auch gelöscht werden sollen.
Weiß jemand wie ich am besten vorgehe?...
13.08.2008 12:52:02
Thread-ID: 1001495
9 Beiträge
Zeilen durchsuchen und alle Spalten auslesen.
LOTHARP

Hallo Zusammen,
ich habe eine Tabelle in der ich mir den Maxwert einer bestimmten Zeile wiedergeben lasse mit folgendem MAkro gelöst:
Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean) If Target.Column = 9 And Target.Row >= 2 And Target.Row
In de...
10.12.2008 11:36:41
Thread-ID: 1031637
4 Beiträge
Suchen und ersetzen ohne Neuanfang bei Zeile 1
Stefan

Hallo liebes Froum,
ich habe eine Spalte mit Werten, ca. 200 Zeilen. Die Werte bestehen aus 3ziffrigen Zahlen (010,011,100,271...). Diese Zahlen sollen durch andere 3ziffrige Zahlen ersetzt werden (z.B. 010 durch 001, 011 durch 004, 100 durch 200, 271 durch 355,...). Nun habe ich das Proble...
03.03.2009 11:26:38
Thread-ID: 1055879
19 Beiträge
suchen und bestimmte Zelle löschen
Peter

Hallo
ich würde gerne nach bestimmten Begriffen suchen und falls der Begriff gefunden wird,
das dann die übernächste Zelle nach unten gelöscht wird.
Beispiel: Falls Begiff gefunden in B3 dann lösche Wert in B5, Begriff gefunden in E30 dann lösche Wert in E32 usw.
Wer weiß wie ic...
19.06.2009 20:22:11
Thread-ID: 1083023
2 Beiträge
Suchen und Zeile kopieren
Steffi

Hallo liebes Forum,
wie kann ich es am besten lösen...?
Ich habe in Tabelle2 von B1 bis B3500 Daten stehen.
In Tabelle1 habe ich von A1 bis A3500 die Daten auch aber in nicht sortierter Reihenfolge stehen.
Nun möchte ich die Daten von Tabelle2 B1 bis B3500 mit Tabelle1 A1 bis A3...
15.07.2009 22:28:08
Thread-ID: 1088922
2 Beiträge
Zeilen suchen und in neues Blatt uebertragen
TT

Hallo liebe Excel- und VBA-Cracks!
Möchte zur Zeiterfassung von mehreren Personen, die alle in mehrerer Projekten und darin in unterschiedlichen Arbeitspaketen arbeiten, folgendes tun:
Projektmitarbeiter fuellt in einem Monatsblatt alle notwendigen Angaben aus, wobei er fuer jede Tätigk...
21.10.2009 06:33:49
Thread-ID: 1110868
2 Beiträge
Zellen verschieben/Zeilen löschen VBA
Thomas

Liebes Forum,
ich habe folgendes Problem
Ich habe eine Excel Datei mit den beiden Spalten Name und Wahlpflichtfach und möchte die Fächerkombinationen auszählen lassen.
Nun ist mir die Tabelle aber leider so gegeben worden, dass diesselbe Person immer doppelt aufgeführt ist. Einmal...
07.11.2009 14:43:44
Thread-ID: 1115212
5 Beiträge
Spalte mit Datum suchen und Wert von Zeile kopiere
Zeile

Hi, folgendes Problem:
Ich möchte hinter eine Schaltfläche ein Makro legen, welches im Quellsheet 'Tabelle2' die Zeile 12 nach dem Vormonat (also: aktueller Monat - 1) durchsucht (Werte der Zeile 12 sind in der Datumsform z.B. 01.11.2009 und werden benutzerdefiniert dargestellt als MMM JJ)....
11.11.2009 14:08:13
Thread-ID: 1116202
3 Beiträge
letzte volle zeile suchen und löschen
meixner

Hallo zusammen,
habe eine Tabelle (A8: H16). Ich möchte anhand eines Makros die letzte volle zeile suchen, die sich in Spalte G befindet, anhand eines Makros finden.
Wenn er die letzte befüllte zeile in spalte G gefunden hat, soll alles andere was sich ab dieser vollen Zeile in den and...
15.11.2009 12:00:37
Thread-ID: 1117324
10 Beiträge
Anzeige
suchen, Treffer-Zeilen löschen
David

Hallo zusammen,
ich habe eine Export-Datei, in der bei 10.000 Gesamtzeilen etwa 2/3 nur aus kaskadierten Ergebniszeilen besteht. Eine Gliederung oder ähnliches ist nicht vorhanden, die Zeilen sind nur am Text "Ergebnis" zu identifizieren.
Da ich diese in der weiteren Verarbeitung nicht...
16.11.2009 17:09:14
Thread-ID: 1117704
13 Beiträge
Anzeige
Tabelle durchsuchen und Zeilenwert wiedergeben
toni

Hallo,
1.) ich suche eine Formel die einen Text über mehrere Spalten und zeilen nach einem bestimmten Text durchsucht z.B. " paar Socken" und soll dann den Wert der Zeile wiedergeben, d.h. in welcher Zeile dieser Wert ist.
Toni
25.11.2009 21:19:38
Thread-ID: 1120085
16 Beiträge
Tabelle durchsuchen und Zeilenwert wiedergeben
toni

Hallo,
ich suche eine Formel, mit der ich einen Teil eines Wertes finden und die Formel die Zeile wiedergibt.
=MAX(ISTZAHL(FINDEN("linke Socke";A1:G99))*ZEILE(A1:G99)) als Matrix, ist aus einem alten Beitrag
nun will ich nicht nur die "linke Socke" sondern nur noch "ock" soll gesich...
03.12.2009 21:56:16
Thread-ID: 1121712
3 Beiträge
Entdecke relevante Threads

Schau dir verwandte Threads basierend auf dem aktuellen Thema an

Alle relevanten Threads mit Inhaltsvorschau entdecken
Anzeige
Anzeige

Infobox / Tutorial

Spalteninhalt suchen und Zeile löschen

Schritt-für-Schritt-Anleitung

  1. Öffne den VBA-Editor: Drücke Alt + F11, um den VBA-Editor zu öffnen.

  2. Neues Modul erstellen: Klicke auf Einfügen > Modul, um ein neues Modul zu erstellen.

  3. Code einfügen: Kopiere den folgenden Code in das Modul:

    Sub ZeilenLoeschen()
    Dim zeile As Integer
    With Sheets("Sheet3")
        For zeile = .Cells(.Rows.Count, 4).End(xlUp).Row To 1 Step -1
            If .Cells(zeile, 4).Value < 1 Then
                .Rows(zeile).EntireRow.Delete
            End If
        Next zeile
    End With
End Sub

  4. Makro ausführen: Schließe den VBA-Editor und gehe zurück zu Excel. Wähle Extras > Makro > Makros, wähle ZeilenLoeschen aus und klicke auf Ausführen.

  5. Überprüfung: Stelle sicher, dass alle Zeilen mit einem Wert kleiner als 1 in Spalte D gelöscht wurden.

Häufige Fehler und Lösungen

  • Fehler: "Excel zeile kann nicht gelöscht werden": Stelle sicher, dass die Tabelle nicht geschützt ist. Du kannst den Schutz unter Überprüfen > Blatt schützen aufheben.

  • Fehler: "Die Zeile wird nicht gelöscht": Überprüfe, ob du die richtige Spalte (Spalte D) und das richtige Arbeitsblatt (Sheet3) ausgewählt hast.

Alternative Methoden

  1. Autofilter verwenden:

    • Wähle die Daten in deiner Tabelle aus.
    • Aktiviere den Autofilter über Daten > Filter > AutoFilter.
    • Filtere nach Kleiner als 1 in Spalte D.
    • Markiere die gefilterten Zeilen und lösche sie.

  2. Formelbasierte Lösung:

    • Du kannst auch eine Formel verwenden, um die Zeilen zu identifizieren, die gelöscht werden sollen, und dann manuell zu löschen. Eine mögliche Formel könnte sein: 
      =WENN(D2<1; "Löschen"; "")
    • Ziehe die Formel in die Zellen, um die entsprechenden Zeilen zu markieren.

Praktische Beispiele

  • Beispiel 1: Wenn in Spalte D die Werte 0.5, 1.5, 0.2, 0.8 stehen, wird das Makro die Zeilen mit 0.5, 0.2 und 0.8 löschen.

  • Beispiel 2: Bei Verwendung des Autofilters kannst du schnell alle Zeilen mit einem Wert kleiner 1 identifizieren und löschen.

Tipps für Profis

  • VBA für komplexe Bedingungen: Du kannst das VBA-Skript anpassen, um mehrere Bedingungen zu berücksichtigen, z.B. wenn auch andere Spalten bestimmte Werte erfüllen müssen.

  • Backup erstellen: Erstelle immer ein Backup deiner Daten, bevor du Massenoperationen wie das Löschen von Zeilen durchführst.

FAQ: Häufige Fragen

1. Wie kann ich mehrere Spalten gleichzeitig nach einem Wert durchsuchen?
Du kannst das VBA-Skript erweitern, um mehrere Spalten zu überprüfen, indem du zusätzliche Bedingungen hinzufügst.

2. Was passiert, wenn ich eine Zeile versehentlich lösche?
Falls du versehentlich eine Zeile gelöscht hast, kannst du die Rückgängig-Funktion in Excel (Strg + Z) verwenden, um die letzte Aktion rückgängig zu machen.

Beliebteste Forumthreads (12 Monate)

Jetzt das Excel-Portal bewerten: Deine Stimme zählt!
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