Live-Forum - Die aktuellen Beiträge
Datum
Titel
25.04.2024 10:38:52
Bedingte Formatierung per VBA / MaxPoint
25.04.2024 10:30:04
Suche mit MINWENNS und Rückgabe mehrerer Werte
25.04.2024 09:47:49
Daten aus mehreren Dateien untereinander importieren
25.04.2024 09:31:31
Bild "In Zelle platzieren"
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
1372to1376
Aktuelles Verzeichnis
Verzeichnis Index
Übersicht Verzeichnisse
Vorheriger Thread
Rückwärts Blättern
Nächster Thread
Vorwärts blättern
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Vorheriger Thread
Vorheriger Thread
Rückwärts Blättern
1372to1376
1372to1376
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Ganze Zeile löschen wenn Wert nicht vorhanden

Ganze Zeile löschen wenn Wert nicht vorhanden
31.07.2014 11:12:02
Chris
Hallo, zusammen!
Ich habe folgendes Problem:
In meiner Tabelle1 stehen im Bereich C5:Cx Zahlen. Ich möchte per VBA die ganze Zeile löschen, wenn die Zahlen in C nicht in Tabelle2 Bereich A2:Ay (selbe Datei) vorkommen. Ich habe es mit Find versucht, komme aber nicht wirklich weiter.
Vielen Dank schon mal vorab für Eure Hilfe

7
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Ganze Zeile löschen wenn Wert nicht vorhanden
31.07.2014 12:55:45
ChrisL
Hi Chris
Sub t()
Dim i As Long
Dim WS1 As Worksheet, WS2 As Worksheet
Set WS1 = Worksheets("Tabelle1")
Set WS2 = Worksheets("Tabelle2")
For i = WS1.Range("C65536").End(xlUp).Row To 5 Step -1
If WorksheetFunction.CountIf(WS2.Columns(3), WS1.Cells(i, 3)) = 0 Then _
WS1.Rows(i).EntireRow.Delete
Next i
End Sub
cu
Chris

AW: Ganze Zeile löschen wenn Wert nicht vorhanden
31.07.2014 13:32:05
Werner
Hallo Chris,
obwohl das "nicht" fett geschrieben ist habe ich es übersehen. Bei mir löscht er in Tabelle 1 wenn die Zahl in Tabelle 2 vorhanden ist. Da müsste lZelle=sZelle in lZellesZelle geändert und die Msg-Boxen angepasst werden.
Werner

Anzeige
AW: Ganze Zeile löschen wenn Wert nicht vorhanden
31.07.2014 12:57:07
Robert
Hallo Chris,
Ich gehe davon aus, dass du mit dem Bereich C5:Cx die Gesamte Spalte C meinst, beginnend bei Zeile 5.
Bei A2:Ay dementsprechend von Zeile 2 bis Ende.
Option Explicit
Dim i, o As Integer
Dim Matchfound As Boolean
Private Sub Test()
For i = Tabelle1.UsedRange.SpecialCells(xlCellTypeLastCell).Row To 5 Step -1
Matchfound = False
For o = Tabelle2.UsedRange.SpecialCells(xlCellTypeLastCell).Row To 2 Step -1
If Tabelle1.Cells(i, 3) = Tabelle2.Cells(o, 1) Then
Matchfound = True
Exit For
End If
Next o
If Matchfound = False Then Tabelle1.Rows(i).Delete
Next i
End Sub

Anzeige
AW: Ganze Zeile löschen wenn Wert nicht vorhanden
31.07.2014 14:12:52
Chris
Hallo, Robert!
Danke, funktioniert super!

und noch ein Ansatz
31.07.2014 13:17:22
Michael
Hallo Leute,
ich hab es mal mit einer Matrixformel versucht: 

D	Erg	F
1	1	1
2	1	2
3	1	3
6	0	4
7	0	5

die da lautet: {=SUMME(($F$16:$F$20=D16)*1)}
und in jeder Zeile unter E steht - muß natürlich an die entsprechenden Bereiche angepaßt werden.
Hinterher ist nur noch ein Schleifendurchlauf nach Erg=0 -> Löschen nötig.
Ich bin, ehrlich gesagt, ganz stolz, daß ich das Ding hinbekommen hab; ob es in der Praxis taugt, kann vielleicht jemand anderes beantworten: x-100 mal suchen dauert, aber ich vermute, daß die Matrixformel bei größeren Datenmengen eben auch Zeit benötigt.
Happy Exceling,
Michael

Anzeige
AW: Ganze Zeile löschen wenn Wert nicht vorhanden
31.07.2014 14:08:36
Daniel
Hi
Zeilen löschen in Excel ab Version 2007 funktioniert so am einfachsten:
1. in einer Hilfsspalte eine Formel einfügen, die alle Zeilen die gelöscht werden müssen mit 0 kennzeichnet und alle die stehen bleiben sollen mit der Zeilennummer
2. in die Überschriftenzeile kommt ebenfalls die 0
3. Daten - Datentools - Duplikate entfernen auf die Tabelle anwendnen mit der Hilfsspalte als Kriterium und "keine Überschrift"
bei grössern Datenmengen sollte man die Tabelle2 Spalte A aufsteigens sortieren, damit man die schnelle Variante des Sverweises verwenden kann.
Gruß Daniel
sieht für deinen Code so aus:
dim Zelle as Range
set Zelle = Sheets("Tabelle1").Cells.SpecialCells(xlcelltypelastcell).offset(0, 1)
With Range(Zelle.Offset(4 - Zelle.row), Zelle)
.FormulaR1C1 = "=IF(IsError(Match(RC3,Tabelle2!C1,0)),0,Row())"
.Formula = .Value
.Cells(1, 1).Value = 0
.EntireRow.RemoveDuplicates .Column, xlno
.Clearcontents
End with

Anzeige

340 Forumthreads zu ähnlichen Themen

Anzahl unterschiedl. Werte in Spalte zählen
Jakob

Hallo,
ein ähnliches Problem wurde hier im Forum schon einmal diskutiert. (https://www.herber.de/forum/archiv/632to636/t635773.htm)
Meine Problem:
Wie kann ich die Anzahl unterschiedlicher Einträge/Werte einer Spalte erhalten, ohne dass diese vorgegeben werden ( also ohne die Verwe...
14.08.2008 18:16:11
Thread-ID: 1001934
2 Beiträge
Anzeige
Letzen wert in Zeile(nicht Spalte)
hary

Nabend alle miteinander
In einer bestimmten Zeile suche ich den letzten Eintrag. Bis zu diesem soll gefaerbt werden. Mit diesem Code faerbe ich den ganzen Bereich, es soll aber nur bis zum letzten Eintrag in der Zeile gefaerbt werden. Da von links nach rechts gefaerbt.
Case Is = Cells...
28.08.2008 21:25:00
Thread-ID: 1005592
5 Beiträge
von Datum bis Datum suchen und Werte in die Spalte
Datum

Hallo liebe Excel-Könner,
ich habe folgendes Problem und finde keine Lösung.
Ich habe in Spalte A von 2006 bis heute Datum stehen, über eine UserForm möche ich in zwei TextBoxen von bis Datum eintragen und in Spalte B in diesem Bereich den WertX.
Ich hoffe Ihr könnt mir helfen!
...
07.09.2008 09:31:20
Thread-ID: 1007931
8 Beiträge
Anzeige
Werte löschen beim Eintrag in andere Spalte ?
Selma

Hallo Leute,
wie kann ich folgendes ab Zeile 5 für aktive Zeile über VBA erreichen:
1. Wird der Wert in aktive Zeile in Spalte H eingetragen, dann sollen die Werte in Zellen der Spalte D und E gelöscht werden.
2. Wird der Wert in aktive Zeile in Splate D oder E eingetragen, dann sol...
12.10.2008 17:05:00
Thread-ID: 1015877
5 Beiträge
TextBox Werte in Spalte Q ersetzen ?
Selma

Hallo Leute,
ich habe eine Frage zu UserForm. Beim Klick auf CommandButton1 sollen die Zahlen aus TextBox1 mit Werten in Spalte Q ab Zeile 12 ersetzt werden. Dies soll nur dann erfolgen, wenn in TextBox1 die Zahlen stehen bzw. der TextBox gefüllt ist.
Ersetzt sollen nur die vorhandene W...
13.10.2008 15:42:00
Thread-ID: 1016083
3 Beiträge
Wenn Eintrag in ListBoxspalte dann Eintrag in lbl
Josef

Guten Morgen!
In eine mehrspaltige ListBox werden eine Menge Datensätze eingelesen.
Ich möchte nun folgendes erreichen:
Wenn ich einen Datensatz in der ListBox markiere oder anklicke und wenn jetzt z.B. in der 2.Spalte in der ListBox ein "J" steht, dann soll ein vordefinierter Text...
29.10.2008 07:57:42
Thread-ID: 1020127
3 Beiträge
Formel wenn dann sonst ...
Uwe

Hallo, Gemeinde ..
Mir stellt sich folgende Herausforderung:
ich möchte in einer Liste Fahrtkosten berechnen. Der Arbeiter bekommt von km 1 bis km 10 0,36€ pro km (einfach). ab dem 11 km bekommt der Arbeiter 0,40€.
Wie bekomme ich eine Formel hin, die das berechnet, wenn
- der A...
31.10.2008 11:20:00
Thread-ID: 1020821
10 Beiträge
Zelleninhalt suchen wenn gefunden dann...
Ernst

Hallo Fachleute,
ich möchte mit einem Makro eine Tabelle (möglichst nur einen vorher definierten Bereich) auf bestimmte Zellinhalte durchsuchen und wenn es einen Inhalt findet soll es dort eine Zeile einfügen und von mir im Makro definierten Text einfügen.
Nähere Anleitung in der Datei....
16.11.2008 14:44:22
Thread-ID: 1024902
7 Beiträge
Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Jetzt das Excel-Portal bewerten: Deine Stimme zählt!

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige
Archiv - Verwandte Themen
Forumthread
Beiträge
1
8
4
7
4
4
2
2
9
6
4
2
1
2
4
4
5
2
33
5
10
1
3
2
2