Anzeige
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 Übersicht
Verzeichnis Übersicht
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

gleiche Zeilen löschen nach Bedingung

Forumthread: 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
Anzeige

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?
Anzeige
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
;

Forumthreads zu verwandten 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
wenn zelle gelb, dann ganze zeile loeschen
maxx_1985

Hi zusammen
wie kann man excel das folgende sagen;
wenn in spalte A irgendwo eine gelbe zelle vorkommt, dann loesche mir die ganze ZEILE.
gelb sind naemlich die zwischensummen, die ich raus haben moechte.
danke euch vielmals
gruss
denis
10.12.2008 16:19:09
Thread-ID: 1031735
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
Wenn Zeile doppelt dann löschen
walli

Guten Morgen,
ich möchte gern, wenn eine Zeile in meiner großen Tabelle doppelt vorhanden ist,
löschen.
Die Werte fangen ab Zeile 6 an und sind von Spalte A bis M,
es soll dann die doppelte Zeile nur von A-M gelöscht werden.
mfg walli
24.06.2009 11:29:15
Thread-ID: 1084058
5 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
Anzeige
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
Makro doppelte Zeilen löschen
Christian

Hallo allerseits,
ich habe folgendes Makro, welches Zeilen ahand von doppelten Einträgen in einer spalte löscht.
Allerdings wird immer die zweite Zeile (von oben gesehen) gelöscht, ist es auch möglich die erste zeile zu löschen und die zweite zu behalten?
hier das makro: Sub supp_d...
22.07.2009 10:44:51
Thread-ID: 1090433
5 Beiträge
Zeilen löschen, wenn in Spalte A nicht fett?
Selma

Hallo Leute,
ich möchte ab Zeile 1 bis Zeile 5000 folgende Zeilen löschen:
Wenn in Spalte A die Zelle leer ist, dann Zeile löschen
Wenn in Spalte A die Zelle gefüllt ist, aber nicht fett ist, dann die Zeile löschen.
Wie mache das per VBA ?
Besten Dank im Voraus !
VG,
...
28.07.2009 22:58:24
Thread-ID: 1092081
7 Beiträge
Anzeige

Beliebteste Forumthreads (12 Monate)

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