Live-Forum - Die aktuellen Beiträge
Datum
Titel
16.04.2024 19:22:16
Von exceltabelle in word per steuerelement temarker
16.04.2024 18:50:53
Fehlermeldung bei Code - Excel speichern mit Bez. aus Zelle
16.04.2024 17:18:01
Projektplan-Tabelle oder Gantt ohne Balken
16.04.2024 17:05:25
formatierten Text direkt in Zelle einfügen
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
1276to1280
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
1276to1280
1276to1280
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

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

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

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

Beliebteste Forumthreads (12 Monate)

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

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige