Live-Forum - Die aktuellen Beiträge
Datum
Titel
18.04.2024 21:09:11
4 Spalten aus smarter Tabelle in andere smarte Tab. kopieren
18.04.2024 20:45:35
Worksheet_Activate für alle Sheets
18.04.2024 19:30:20
VBA - Tabelle mit Mannschaftsergebnissen sortieren
18.04.2024 18:04:29
Formel fehler Wert#
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
1600to1604
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
1600to1604
1600to1604
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

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

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

Links zu Excel-Dialogen

CommandButton

Beliebteste Forumthreads (12 Monate)

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

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige