Anzeige
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Vorheriger Thread
Vorheriger Thread
Rückwärts Blättern
1584to1588
1584to1588
Aktuelles Verzeichnis
Verzeichnis Übersicht
Verzeichnis Übersicht
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Zeilenweise vergleich und löschen

Forumthread: Zeilenweise vergleich und löschen

Zeilenweise vergleich und löschen
04.10.2017 16:50:15
volkan 

Hallo zusammen,
ich muss aktuell eine 1000 Zeilen lange excel Tabelle durchgehen und nach einem paarweisen  _
vergleich,
ganze Zeilen löschen. Das ganze sieht vereinfacht so aus:
A
_____
edge
_____
node

Anzeige

4
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Zeilenweise vergleich und löschen
04.10.2017 17:04:33
Michael
Hallo!
Sub OnTheEdgeOfGlory()
Dim Wb As Workbook: Set Wb = ThisWorkbook
Dim Ws As Worksheet: Set Ws = Wb.ActiveSheet
Dim a, i&
Application.ScreenUpdating = False
With Ws
a = .Range("A1:A" & .Cells(.Rows.Count, "A").End(xlUp).Row)
For i = UBound(a) To LBound(a) + 1 Step -1
If a(i, 1) = "node" And a(i - 1, 1) = "edge" Then
.Cells(i, 1).EntireRow.Delete
End If
Next i
End With
Set Wb = Nothing: Set Ws = Nothing: Erase a
End Sub
LG
Michael
Anzeige
AW: Zeilenweise vergleich und löschen
05.10.2017 20:17:30
volkan
Besten Dank!
AW: Zeilenweise vergleich und löschen
04.10.2017 17:32:16
Daniel
Hi
geht doch ganz einfach: erst mal alle Zeilen per Formel kennzeichnen, die gelöscht werden müssen, z.B. mit dieser Formel in der ersten freien Spalte ab Zeile 2:
=Wenn(Und(A1="edge";A2="node");1;"")

dann kannst du über den Autofilter alle Zeilen mit 1 auswählen und löschen.
als Makro im Prinzip genauso, nur würde ich hier das Duplikateentfernen zum Löschen verwenden:
With ActiveSheet.UsedRange
With .Columns(.Columns.count + 1)
.Cells(1, 1) = 0
.Resize(.Rows.count -1, 1).Offset(1, 0).FormulaR1C1 = _
"=IF(AND(RC1=""node"",R[-1]C1=""edge""),0,Row())"
.EntireRow.RemoveDuplicates .column, xlno
.ClearContents
end with
End with
gruß Daniel
Anzeige
AW: Zeilenweise vergleich und löschen
05.10.2017 20:17:55
volkan
Vielen Dank!

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 mit bestimmten Inhalt löschen
sascha76er

Hallo,
ich möchte immer alle Zeilen via Makro löschen, wenn der Inhalt der Zeile indentisch mit der ersten ist.
Ist das möglich, wenn ja wie?
Vorab vielen Dank
Sascha
08.12.2008 13:35:00
Thread-ID: 1031058
6 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
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
Anzeige
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
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
Anzeige

Beliebteste Forumthreads (12 Monate)

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