Live-Forum - Die aktuellen Beiträge
Datum
Titel
17.10.2025 10:28:49
16.10.2025 17:40:39
Anzeige
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Inhaltsverzeichnis

Block löschen wenn 2 Kriterien stimmen

Forumthread: Block löschen wenn 2 Kriterien stimmen

Block löschen wenn 2 Kriterien stimmen
16.01.2018 13:47:56
Norbert
Hallo Spezialisten
eine scheue Anfrage......
Im beiliegenden Beispiel habe ich diverse Blöcke (jeder Block ist 27 Zeilen lang mit immer 2 Leerzeilen Abstand zum nächsten Block) Eine Tabelle kann bis zu 2000 Blöcke beinhalten. Nun zu meinem Problem:
Ich möchte die doppelten bzw. mehrfach vorkommmenden Blöcke löschen, sodass am Ende jeweils nur 1 Block stehen bleibt, bei dem die 2 Kriterien (rot eingkreist) unterschiedlich sind. Gemäss Beispiel bleibt der erste Block stehen mit dem Wert"ED30 + "3". Die anderen rosa unterlegten Blöcke wären demnach zum Löschen vorgesehen.
Ein Script als Lösung wäre genial
Danke vorab
Gruss Norbert
https://www.herber.de/bbs/user/119013.xlsx
Anzeige

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

Betreff
Datum
Anwender
Anzeige
AW: Block löschen wenn 2 Kriterien stimmen
16.01.2018 14:54:43
onur
Stehen identische blöcke untereinander oder ggf auch weit auseinander?
AW: Block löschen wenn 2 Kriterien stimmen
16.01.2018 14:56:16
onur
und gibt es immer nur 2 identische?
AW: Block löschen wenn 2 Kriterien stimmen
16.01.2018 15:30:17
onur
ActiveX-Button auf Tabelle anbringen und ihm folgenden Code zuweisen:
Private Sub CommandButton1_Click()
Dim z, s, k1, k2, z2
For z = 1 To 60000 Step 29
If Cells(z, 1)  "" Then
'5,2   8,4
k1 = Cells(z + 4, 2)
k2 = Cells(z + 7, 4)
For z2 = z + 29 To 60000 Step 29
If k1 = Cells(z2 + 4, 2) And k2 = Cells(z2 + 7, 4) Then
Cells(z2, 1) = "X"
End If
Next z2
End If
Next z
For z = 58001 To 1 Step -29
If Cells(z, 1) = "X" Then
Range(Rows(z), Rows(z + 28)).Delete
End If
Next z
End Sub

Anzeige
AW: Block löschen wenn 2 Kriterien stimmen
17.01.2018 09:01:17
Norbert
Super Sache.....
Besten Dank für deine Hilfe
Gruss Norbert
;

Beliebteste Forumthreads (12 Monate)

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