Live-Forum - Die aktuellen Beiträge
Datum
Titel
17.10.2025 17:57:35
Zellen-Name aus A1 nach H1 übertragen mit Prä- + Suffix
17.10.2025 11:36:58
verschachteltes Dropdown-Menü
17.10.2025 10:28:49
Call Anweisung
16.10.2025 18:38:17
Zusammenfassung nach Personalnummer
Keine passende Antwort im Forumarchiv gefunden?
Stelle deine Frage im Live-Forum
Anzeige
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Vorheriger Thread
Vorheriger Thread
Rückwärts Blättern
1276to1280
1276to1280
Aktuelles Verzeichnis
Verzeichnis Übersicht
Verzeichnis Übersicht
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Zeilen löschen

Forumthread: Zeilen löschen

Zeilen löschen
27.09.2012 10:30:52
casantis
Hallo Excel Experte,
es geht um Folgendes:
es muss nach 2 Zeilen gesucht werden, die in der Spalte A gleiche Werte haben und in der Spalte B dazugehörige Werte(Zahl) nur durch "-" unterschidlich sind.
Z.B
zeile1:
Spalte A: xxxxx Spalte B:259
zeile2:
Spalte A: xxxxx Spalte B:-259
wenn solche Zeilen gefunden werden, dann sollen sie gelöscht werden.
Mustertabelle:
https://www.herber.de/bbs/user/81912.xlsx
Zu löschende Zeilen sind Rot markiert
vielen Dank für Ihre Hilfe

Anzeige

2
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Zeilen löschen
27.09.2012 10:38:17
Rudi
Hallo,
wenn die nicht öfter als 2x auftauchen: 
Sub loeschen()
Dim rngC As Range, rngDel As Range
With ActiveSheet
For Each rngC In .Range(.Cells(1, 1), .Cells(Rows.Count, 1).End(xlUp))
If WorksheetFunction.SumIf(.Columns(1), rngC, .Columns(2)) = 0 Then
If rngDel Is Nothing Then
Set rngDel = rngC
Else
Set rngDel = Union(rngDel, rngC)
End If
End If
Next
End With
If Not rngDel Is Nothing Then rngDel.EntireRow.Delete
End Sub

Gruß
Rudi

Anzeige
AW: Zeilen löschen
27.09.2012 11:47:49
casantis
Hallo Rudi,
funz wunderbar, danke
;

Beliebteste Forumthreads (12 Monate)

Jetzt das Excel-Portal bewerten: Deine Stimme zählt!
Anzeige
Anzeige
Entdecke mehr
Finde genau, was du suchst

Die erweiterte Suchfunktion hilft dir, gezielt die besten Antworten zu finden

Suche nach den besten Antworten
Unsere beliebtesten Threads

Entdecke unsere meistgeklickten Beiträge in der Google Suche

Top 100 Threads jetzt ansehen
Anzeige