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

Löschen von bestimmten doppelten Zeilen (Blöcke)

Forumthread: Löschen von bestimmten doppelten Zeilen (Blöcke)

Löschen von bestimmten doppelten Zeilen (Blöcke)
10.02.2025 14:53:24
Klaus
Hallo Freunde,
ich hab ein Problem mit doppelten Zeilen (Blöcken), ein Beispiel ist in der Datei.
Zeilen 3-11 und 22-30 sind doppelt wobei der untere Block (Zeilen) gelöscht werden soll. Die Anzahl der Zeilen innerhalb der Blöcke, und auch die Reihenfolge ist variabel.
Verglichen werden sollen die Werte in Spalte A, wenn hier doppelte Werte vorkommen (z.B. A3:A4 und A22:A23), dann muss der zugehörige Block (ganze Zeilen) gelöscht werden. Die Blöcke sind nur für das Beispiel farblich markiert.
Wie kann man das realisieren?
https://www.herber.de/bbs/user/175593.xlsm
Vielen Dank schon im voraus.
Gruß Klaus
Anzeige

5
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Löschen von bestimmten doppelten Zeilen (Blöcke)
10.02.2025 15:32:57
Yal
Hallo Klaus,

dafür müsste man die Regel sicherstellen, die beschreiben, was der Anfang und was das Ende eines Blockes definiert. Erst wenn man die Blocke eindeutig identifiziert hat, kann man diese miteinander vergleichen.

Wie es aussieht, gibt es innerhalb eines Blockes eine Gruppierung von 3 Zeilen: erste Zeile hat eine Menge ("qty"), dann 2 leere Zellen in Spalte "qty". Dementsprechend wäre der Block-Anfang die Gruppierung mit einer Wert in Spalte A. Letzte Gruppierung ist die Gruppierung vor dem Start von nächsten Block.
"Letzte Zeile" -und dementsprechend letzte Gruppierung- ist durch die letzte befüllte Zelle in Spalte B definiert.

Oder haben die Blöcke ganz einfach immer 9 Zeilen? (nein, schon beantwortet: Anzahl der Zeilen innerhalb der Blöcke ist variable)

Problem macht die Zeile 12, weil diese eine eigene Definition hat. Wie könnte man diese isolieren? Kann man aus der Länge der Text in Spalte A etwas ablesen?

VG
Yal


Anzeige
AW: Löschen von bestimmten doppelten Zeilen (Blöcke)
10.02.2025 19:45:10
Daniel
Hi
hier bietet sich an, die zu löschenden Zeilen zuerst per Formel zu markieren und dann die markierten Zeilen zu löschen: 

Sub löschen()

With ActiveSheet.UsedRange

    With Columns(.Columns.Count + 1).Resize(.Rows.Count - 1, 1).Offset(1, 0)

        .FormulaR1C1 = "=IF(RC1="""",R[-1]C,IF(ROW(RC1)=MATCH(RC1,C1,0),"""",1))"

        .Formula = .Value

        If WorksheetFunction.Sum(.Cells) > 0 Then .SpecialCells(xlCellTypeConstants, 1).EntireRow.Delete

    End With

End With

End Sub

Code getestet mit deiner Beispieldatei.
Gruß Daniel
Anzeige
AW: Löschen von bestimmten doppelten Zeilen (Blöcke)
10.02.2025 16:44:27
Klaus
Hallo Yal,
danke für den Denkansatz. Mir ist noch etwas aufgefallen: die doppelten Blöcke stehen immer "unten".
D.h. so müsste es dann logisch sein:
1. verschieben von Zeilen an Hand von Spalte D (wenn Wert "no findings", dann Zeile nach oben schieben)
2. suche von unten in Spalte A die erste "nicht leere" Zelle
3. wenn dieser Wert weiter oben gefunden wird, dann lösche alle Zeilen von der letzten bis hoch zur ersten nicht leeren Zelle +1
4. wiederhole Schritte 2. bis 3. solange bis keine Übereinstimmung gefunden wird

Unter dieser Prämisse: wie muss der Code denn dann aussehen?

Gruß Klaus
Anzeige
AW: Löschen von bestimmten doppelten Zeilen (Blöcke)
10.02.2025 17:12:02
Yal
Hallo Klaus,

ich habe mich inzwischen für eine andere Strategie:
- eine "Gruppe" hat 3 Zeilen, die erste davon hat eine "Menge" (Spalte C)
- ein Sonderblock hat ein Eintrag in Spalte A, aber keine Menge
- eine erste Gruppe hat in Spalte A 3 Zellen übereinander mit dem Muster Text-Text-Leer

Blöcke werden mit Namen gespeichert, wenn Name wieder vorkommt, bisherige Gruppe wird als "zulöschen" gespeichert. Am Ende alle en Block gelöscht. Letzteres muss tatsächlich auf einmal stattfinden, da sonst einen Zeilenverschiebung stattfinden könnte. 

Public Sub DoppelteBlock_löschen()

Dim D As Object

Dim z As Long

Dim Hat_Menge As Boolean

Dim Ist_SonderBlock As Boolean

Dim Hat_TTL As Boolean 'Eine Gruppe

Dim BlockStartZeile As Long

Dim BlockName As String

Dim ZuLöschen As String



    Set D = CreateObject("Scripting.Dictionary")

    With Worksheets("template")

        z = .Cells(Rows.Count, "B").End(xlUp).Row

        BlockStartZeile = z + 1

        Do While z > 2

        'Prüfungen

            Hat_Menge = .Cells(z - 2, "C").Value > "" 'von akt. Zeile, 2 Zeile nach Oben, Spalte "C"

            Ist_SonderBlock = .Cells(z, "A").Value > "" And Not Hat_Menge

            Hat_TTL = .Cells(z, "A").Value = "" And .Cells(z - 1, "A").Value > "" And .Cells(z - 2, "A").Value > ""

        'Evaluieren der Prüfwerte

            If Ist_SonderBlock Then 'Sonderblock

                BlockStartZeile = z

                z = z - 1 'SEHR WICHTIG gegen endlose Schleifen

            ElseIf Hat_Menge And Hat_TTL Then 'erster Gruppe, also BlockStart

                BlockName = Trim(Cells(z - 2, "A").Value)

            'wenn schon einen Block mit diesen Name

                If D.Exists(BlockName) Then ZuLöschen = ZuLöschen & "," & D(BlockName)

                D(BlockName) = (z - 2) & ":" & (BlockStartZeile - 1)

                BlockStartZeile = z - 2

                z = z - 3 'SEHR WICHTIG gegen endlose Schleifen

            Else 'einfache Gruppe

                z = z - 3 'SEHR WICHTIG gegen endlose Schleifen

            End If

        Loop

        If ZuLöschen > "" Then .Range(Mid(ZuLöschen, 2)).Delete

    End With

End Sub


VG
Yal
Anzeige
AW: Löschen von bestimmten doppelten Zeilen (Blöcke)
11.02.2025 09:30:59
Klaus
Hallo Yal, Daniel,
vielen Dank euch beiden. Es funktionieren beide Versionen genau wie ich es benötige.
Gruß Klaus

Forumthreads zu verwandten Themen

Doppelte Werte
Alexander W

Ich hoffe, ihr könnt mir bei folgender Aufgabenstellungen behilflich sein:
Ich möchte aus einem Excel Arbeitsblatt eine ganze Zeile in ein anderes Arbeitsblatt verschieben können und die dabei entstehende Leerzeile automatisch löschen lassen.
Ich markiere eine Zelle in Arbeitsblatt 2.
20.11.2002 22:40:39
Thread-ID: 183726
1 Beitrag
Excel VBA, Formatierung und Suche
Stefan
Hallo Herber Gemeinde,

ich habe folgendes Problem:

im Tabellenblatt Kundenliste (Tabellenbezeichnung "Kunden"), in Spalte J ab Zeile 5 steht eine Zahl von 1-4 oder UVV drin,
diese Spalte J habe ich schon in "Text, Standard oder Zahlen Formatieren lassen von VBA" ich bekomme da...
19.09.2024 23:31:25
Thread-ID: 1991500
2 Beiträge
Daten in Tabelle einer anderen Arbeitsmappe
Stefan

Hallo,
sorry, aber ich habe schon wieder ein Problem:
Nachfolgender Code wurde mir hier zur Verfügung gestellt und funktioniert auch. Nur hat sich jetzt an der Struktur der Zieltabelle etwas geändert. Private Sub CommandButton1_Click() Dim lRow As Long Dim sRow As Long Dim myWks As Str...
07.04.2011 00:11:52
Thread-ID: 1209357
13 Beiträge
Doppelte Werte entfernen
Marko
Hallo,
wie kann ich in einer Tabelle die doppelten Werte mit einem Makro löschen?
In der "Tabelle5" sollen in den allen Zeilen die Einträge von Spalte F bis I geprüft und wenn bereits vorhanden gelöscht werden.
Wenn ein Eintrag gefunden und gelöscht wurde, dann sollte sich die Tabelle5 -...
13.01.2022 11:29:12
Thread-ID: 1865231
4 Beiträge
Doppelte Werte entfernen, wenn ...
Jörg

Hallo zusammen,
ich habe eine Tabelle mit einer "Bedingten Formatierung" in Spalte I, welche mir doppelte Werte in Rot markiert.
Jetzt möchte ich mit einem Makro alle Zeilen mit doppelten Werten in I löschen, wenn in der gleichen Zeile in Spalte AX eine 0 steht.
Ist das umsetzbar?
21.08.2019 17:22:06
Thread-ID: 1708842
4 Beiträge
Doppelte Einträge löschen
Peter

Hallo ihr Excelspezialisten,
ich habe ein Problem mit dem entfernen doppelter Einträge.
Hier im Forum wurde mir diesbezüglich bereits geholfen. Aber es hat sich die Prüfung erweitert.
Ursprünglich wurden die Tabellen Kontodaten Spalte A und Hilfstabelle Spalte C verglichen und die W...
20.12.2018 11:40:17
Thread-ID: 1663952
7 Beiträge
Datei durchsuchen in Arbeitsblatt eintra
Nancy

Hallo Liebe Leute,
Ich habe die Aufgabe bekommen eine Vollautomatisch füllende Tabelle zu generieren, kurze Erklärung:
- Ordner durchsuchen, mit über 100 XLS Dateien
- Bestimmtes Arbeitsblatt, Bestimmte Zellen auswählen und kopieren
- In neue Arbeitsmappe einfügen und doppelte Z...
15.02.2021 17:19:27
Thread-ID: 1813462
7 Beiträge
Zellen vergleichen, doppelte Zeilen löschen
sönke
Hallo!
Ich habe folgendes Problem:
In der mir vorliegenden Tabelle gibt es die (für die Lösung wichtigen) Spalten
B, C und D. Ich möchte die Einträge (z.B. F454534-2) von B und D in einer Zeile mit den aller Zeilen vergleichen (2 Kriterien). Stimmen beide gleichzeitig mit einer anderen Z...
20.08.2003 17:01:03
Thread-ID: 297577
8 Beiträge
Doppelte Zeilen löschen ABER...
Claudia

Hallo alle zusammen,
ich lösche mit nachstehenden Makro alle doppelten Zeilen, wenn in Spalte A der Wert doppelt vorkommt.
Public Sub doppelte() Dim l As Long For l = Cells(Rows.Count, 1).End(xlUp).Row To 2 Step -1 If WorksheetFunction.Match(Cells(l, 1), [a:a], 0)
Das Problem abe...
20.01.2008 18:11:00
Thread-ID: 943554
4 Beiträge
Nur gefilterte Zeilen ohne Duplikate in Combobox
Steffen

Ein guten Morgen,
ich möchte in meine Combobox1 (Listenbox) nur die vom Autofilter angezeigten Zeilen von Spalte A (und später auch von anderen Spalten) ohne doppelte Werte einlesen. Ich habe dieses Script als Grundlage was schon die Werte ohne doppelte Werte einließt aber leider nicht den...
17.01.2007 09:31:29
Thread-ID: 837949
4 Beiträge
Jetzt das Excel-Portal bewerten: Deine Stimme zählt!
Anzeige
Anzeige
Live-Forum - Die aktuellen Beiträge
Datum
Titel
14.05.2026 13:31:09
Zeichen ausblenden
14.05.2026 09:50:42
Makro für MacOs
13.05.2026 19:14:18
Gleichheitszeichen
13.05.2026 14:24:56
VBA Projekt Passwort automatisch eingeben
13.05.2026 08:49:41
Reale Berechnung ohne Nachkommawerte
Keine passende Antwort im Forumarchiv gefunden?
Stelle deine Frage im Live-Forum