Live-Forum - Die aktuellen Beiträge
Datum
Titel
25.04.2024 12:56:25
Werte von Kunden und Artikel stehen untereinander
25.04.2024 12:55:42
Funktionsparameter auslesen
25.04.2024 11:49:37
Array verwenden
25.04.2024 10:38:52
Bedingte Formatierung per VBA / MaxPoint
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
1124to1128
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
1124to1128
1124to1128
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

gleiche Zeilen löschen nach Bedingung

gleiche Zeilen löschen nach Bedingung
sunni
Hallo alle zusammen,
ich habe in Tabelle 1 folgende Daten:
A B C
Name0 JA JA
Name1 NEIN JA
Name2 JA NEIN
Und in Tabelle 2:
Name0
Name0
Name0
Name1
Name2
Ich möchte nun gern, dass in Tabelle 2 ALLE gleichen Namen gelöscht werden (gesamte Zeile), wenn in Tabelle 1 in Spalte B und C jeweils ein JA steht. D.h. in diesem Beispiel: alle Zeilen mit "Name0" sind dann wech.
Ich bekomme die Codes einzeln hin, aber nicht alles zusammen (Vergleich und Löschen aller).
Vielen Dank im Voraus
sunni

3
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Benutzer
Anzeige
AW: gleiche Zeilen löschen nach Bedingung
17.12.2009 13:56:39
Tino
Hallo,
kannst ja mal testen.
Ich gehe davon aus, dass in der Tabelle2 die Namen in Spalte A stehen.
Eventuell die Tabellen im Code noch anpassen.
Sub Loeschen_Mit_Formel()
Dim oSH As Worksheet, iCalc As Integer
Dim MatrixTab As String

'Tabelle anpassen wo die Zeilen gelöscht werden sollen 
Set oSH = Sheets("Tabelle2")
'Tabelle anpassen wo die Matrix mit ja und nein ist 
MatrixTab = "Tabelle1"


With Application
 iCalc = .Calculation
 .Calculation = xlCalculationManual
 .ScreenUpdating = False
 
     With oSH.UsedRange
        With .Columns(.Columns.Count).Offset(0, 1)
            
            .FormulaR1C1 = _
            "=IF(COUNTIF(" & MatrixTab & "!C1,RC1)>0,IF((VLOOKUP(RC1," & MatrixTab & "!C1:C2,2)=""JA"")*" & _
            "(VLOOKUP(RC1," & MatrixTab & "!C1:C3,3)=""JA""),TRUE,ROW()),ROW())" 'entsprechende Formel 
            
            oSH.UsedRange.Sort Key1:=.Cells(1, 1), Order1:=xlAscending, Header:=xlNo
            
            On Error Resume Next
            .SpecialCells(xlCellTypeFormulas, 4).EntireRow.Delete
            On Error GoTo 0
            
            .EntireColumn.Delete
        End With
     End With
 
 .ScreenUpdating = True
 .Calculation = iCalc
End With


End Sub
Gruß Tino
Anzeige
AW: gleiche Zeilen löschen nach Bedingung
17.12.2009 15:04:44
sunni
Hey Tino,
danke erstmal für den Code. Ich hab nur Schwierigkeiten, ihn anzupassen mit den richtigen Zellen, da ich nicht genau weiss, wo.
Tabelle1: Der Name zum Abgleich steht in Spalte B(2), das erste JA in Spalte D(4), das zweite JA in Spalte E(5). Die Tabelle hat 600 gefüllte Zeilen (falls wichtig)
Tabelle2: Der Name steht hier in Spalte D(4). Die Tabelle hat 5000 gefüllte Zeilen (falls wichtig)
Könntest du mir den Code noch anpassen?
AW: gleiche Zeilen löschen nach Bedingung
17.12.2009 17:04:11
Tino
Hallo,
im ersten Beitrag hast Du was von Spalte A,B,C geschrieben, jetzt stehen die Daten ab Spalte B.
Ok. so müsste es nach Deinen angaben funktionieren.
Sub Loeschen_Mit_Formel()
Dim oSH As Worksheet, iCalc As Integer
Dim MatrixTab As String

'Tabelle anpassen wo die Zeilen gelöscht werden sollen 
Set oSH = Sheets("Tabelle2")
'Tabelle anpassen wo die Matrix mit ja und nein ist 
MatrixTab = "Tabelle1"


With Application
 iCalc = .Calculation
 .Calculation = xlCalculationManual
 .ScreenUpdating = False
 
     With oSH.UsedRange
        With .Columns(.Columns.Count).Offset(0, 1)
            
            .FormulaR1C1 = _
            "=IF(COUNTIF(" & MatrixTab & "!C2,RC4)>0,IF((VLOOKUP(RC4," & MatrixTab & "!C2:C5,3)=""JA"")*" & _
            "(VLOOKUP(RC4," & MatrixTab & "!C2:C5,4)=""JA""),TRUE,ROW()),ROW())" 'entsprechende Formel 
            
            oSH.UsedRange.Sort Key1:=.Cells(1, 1), Order1:=xlAscending, Header:=xlNo
            
            On Error Resume Next
            .SpecialCells(xlCellTypeFormulas, 4).EntireRow.Delete
            On Error GoTo 0
            
            .EntireColumn.Delete
        End With
     End With
 
 .ScreenUpdating = True
 .Calculation = iCalc
End With


End Sub
Gruß Tino
Anzeige

301 Forumthreads zu ähnlichen Themen

wenn > Spalte I, dann neue Zeile
Dennis

Hallo Leute,
ich benötige einmal Hilfe eines Experten, da ich noch in den Anfängen stecke.
Ich habe folgendes Problem:
Ich habe eine Liste mit Datensätzen (jeder Datensatz steht für eine Person). Die Datensätze sind unterschiedlich lang. Grds. sind die Datensätze von Spalte A - Spal...
04.09.2008 16:41:00
Thread-ID: 1007458
8 Beiträge
Anzeige
Wenn bistimmte Werte in zwei Zellen dann Zeile ..
Micha

Hallo zusammen,
habe folgendes Problem:
habe eine große Datentabelle (B1:O31407); in dieser sollen diejenigen Zeilen gelöscht werden
in denen sowohl in der Spalte B als auch in der Spalte H der Zellwert "1" ist.
steht in einer der besagten Zellen ein anderer Werte soll nichts...
14.05.2009 08:36:57
Thread-ID: 1074984
4 Beiträge
Zeilen löschen wenn ...
Marion65

Hi zusammen,
habe eine Tabelle hochgeladen, mein Problem ist dort beschrieben.
Gruß Marion
https://www.herber.de/bbs/user/62707.xls
24.06.2009 04:57:02
Thread-ID: 1083974
8 Beiträge
Anzeige
Zeile löschen , wenn doppelt, Makro ?
walli

Hallo zusammen,
hatte vorhin geschrieben, leider nicht mehr im Forum.
Ich habe eine große Tabelle, ab Zeile 6 von Spalte A bis M
soll diese kontr. werden ob eine Zeile doppelt (gleich) ist und
diese Doppelte dann von A-M löschen.
Das Ende der Tabelle kann von A6 bis 500 ode...
24.06.2009 12:45:17
Thread-ID: 1084084
4 Beiträge
Zeilen löschen wenn ...
Marion65

Hallo zusammen,
habe mein Problem in der Beispieldatei beschrieben. Für Eure Hilfe wäre ich Dankbar.
Gruß Marion
https://www.herber.de/bbs/user/62728.xls
Ps. Franz hatte mir schon ein Makro gebastelt, doch leider funktioniert es nicht richtig.
Sub BegriffSuchenZeilenLoesc...
24.06.2009 20:27:47
Thread-ID: 1084196
8 Beiträge
Makro läuft nicht. Zeile löschen wenn...
Christoph

Hallo,
ich habe eine große Tabelle und möchte die Zeilen löschen, die eine "1" in Spalte O:O haben.
Ich habe auch hier und in anderen Foren eine Reihe Makros gefunden. Unter anderem dieses hier:
Sub loeschen() Dim loZeile As Long Application.ScreenUpdating = False For loZeile = 12...
01.07.2009 13:38:55
Thread-ID: 1085695
10 Beiträge
Doppelte Zelleneinträge dann ZEILE löschen
Wolle

Hallo alle zusammen,
habe noch ein Problem:
Wenn Zelleneinträge doppelt vorhanden sind, soll der doppelte eintrag gelöscht werden, wenn diese direkt untereinander stehen.
Bereich: B:B
Beispiel:
B1 = 100
B2 = 500 ..... bleibt stehen
B3 = 500 ..... ZEILE löschen
08.07.2009 12:32:46
Thread-ID: 1087167
5 Beiträge
Zeile Löschen wenn aktuelle Spalte leer ist
Lutz

Hallo Excel-Spezialisten,
ich bekommen immer sehr umfangreiche Listen und muß nach bestimmten Kriterien löschen.
Ich bräuchte jetzt ein Makro, dass alle Zeilen löscht bei denen in der aktiven Spalte kein Eintrag ist - und eines, dass alle Spalten löscht bei denen in der aktuellen Zeile...
10.07.2009 21:58:59
Thread-ID: 1087780
4 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
7
7
3
7
4
3
7
9
4
3
4
6
2
10
7
4
6
5
3
2
4
15
12
4
9