Live-Forum - Die aktuellen Beiträge
Anzeige
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
448to452
448to452
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Inhaltsverzeichnis

zeilen nach wert durchsuchen, ansonsten löschen

zeilen nach wert durchsuchen, ansonsten löschen
05.07.2004 18:37:02
haensen
Hallo,
ich hab ein kleines Problem und zwar möchte ich in meiner Excel Datei jede Zeile nach verschiedenen Werten in Spalte C durchsuchen und wenn keiner der Werte vorhanden ist soll die gesamte zeile gelöscht werden, damit ich zum schluss nur die gewünschten Zeilen mit bestimmten werten übrig habe.
Danke

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

Betreff
Datum
Anwender
Anzeige
AW: zeilen nach wert durchsuchen, ansonsten löschen
Beni
Hallo haensen,
Gruss Beni

Sub Werte_suchen()
Dim Wert As Variant
Titel = "InputBox"
Mldg = "Wert eingeben"
Wert = InputBox(Mldg, Titel)
For i = Cells(Rows.Count, 3).End(xlUp).Row To 1 Step -1
If Not Cells(i, 3).Text = Wert Then Cells(i, 3).Delete Shift:=xlUp
Next i
End Sub

AW: zeilen nach wert durchsuchen, ansonsten löschen
Udo
If Not Cells(i, 3).Text = Wert Then Rows(i).Delete
Udo
AW: zeilen nach wert durchsuchen, ansonsten löschen
Boris
Hi,
einfacher:
Autofilter über die fragliche Spalte C, filtern nach 'Entspricht nicht', die gefilterten Zeilen anschließend markieren und manuell löschen.
Grüße Boris
AW: zeilen nach wert durchsuchen, ansonsten lösche
ChrisL
Hi
oder so...

Sub ZeilenVergleichenLoeschen()
Dim WS1 As Worksheet, WS2 As Worksheet
Dim iZeile As Long
Set WS1 = Worksheets("Tabelle1")
Set WS2 = Worksheets("Hilfsblatt")
Application.ScreenUpdating = False
Application.Calculation = xlCalculationManual
For iZeile = WS1.Range("C65536").End(xlUp).Row To 1 Step -1
If WorksheetFunction.CountIf(WS2.Range("A1:A" & WS2.Range("A65536").End(xlUp).Row), WS1.Cells(iZeile, 3)) = 0 Then WS1.Rows(iZeile).Delete
Next iZeile
Application.ScreenUpdating = True
Application.Calculation = xlCalculationAutomatic
End Sub

Hinterlege die Werte in ein "Hilfsblatt" Spalte A. Alles andere wird gelöscht.
Gruss
Chris
Anzeige
AW: zeilen nach wert durchsuchen, ansonsten lösche
06.07.2004 10:33:22
haensen
Danke ChrisL,
genau das habe ich gesucht. Danke an alle.

320 Forumthreads zu ähnlichen Themen

Anzeige
Anzeige
Anzeige
Anzeige

Links zu Excel-Dialogen

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige