Live-Forum - Die aktuellen Beiträge
Datum
Titel
19.04.2024 21:26:15
mehrfache Texte finden
19.04.2024 19:41:34
Bei VBA Ausführung Anzeige einfrieren
19.04.2024 17:05:40
Zählen von Zeilen, in denen in bestimmten Bereich Daten sind
19.04.2024 16:34:52
gemeinsamer Filter über drei Spalten
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
1688to1692
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
1688to1692
1688to1692
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Doppeleinträge löschen und Leerzeilen entfernen

Doppeleinträge löschen und Leerzeilen entfernen
24.04.2019 15:47:36
Klaus
Eine Rückfragen zu einem schon mehrfach gelösten Themas, deren Lösungen in mit meinem Können aber nicht umsetzen kann :
Ihr seht ein Tabellenblatt, https://www.herber.de/bbs/user/129366.xlsm
aus dem ich Doubletten ( also alles gelbe) löschen möchte, wobei die roten und grünen Bereiche erhalten bleiben müsssen. Heißt : es mögen A8 bis H13 und A30 bis A31 gelöscht werden, aber alles rote und grüne bestehen bleiben soll. Meine unprofessionellen Versuche stehen in den Sub DoppelteZeilenLöschen(), DoppelteLöschen() und DoppelteZeilenLöschenIch(). Also : alle Zeilen der Spalten A6 bis H unendlich werden "geschrumpft", die Blöcke A1 - H6 und I1 - W unendlich bleiben jedoch unangetastet.
Ihr seid ein klasse, hilfreiches Forum, das mir ( Einsteiger ) ohne Polemik immer wieder tolle Vorlagen geliefert hat.
Danke, Klaus Reich

9
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Doppeleinträge löschen und Leerzeilen entfernen
24.04.2019 16:35:57
Werner
Hallo Klaus,
so: 
Public Sub Doppelte_raus()
Dim loLetzte As Long
With Worksheets("Tabelle1")
loLetzte = .Cells(.Rows.Count, 1).End(xlUp).Row
.Range(.Cells(6, 1), .Cells(loLetzte, 8)).RemoveDuplicates _
Columns:=Array(1, 2, 3, 4, 5, 6, 7, 8), Header:=xlNo
End With
End Sub
Gruß Werner
AW: Doppeleinträge löschen und Leerzeilen entfernen
24.04.2019 16:37:53
cysu11
Hi Klaus,
so löscht er die kompletten Zeilen der Duplikate:
Sub DeleteDuplicatesRows()
With ActiveSheet
Set Rng = Range("A4", Range("H4").End(xlDown))
Rng.Select
Rng.EntireRow.RemoveDuplicates Columns:=Array(1, 2, 3, 4, 5, 6, 7, 8), Header:=xlNo
End With
End Sub
LG
Alexandra
Anzeige
aber genau das will der TE ja nicht... o.w.T.
24.04.2019 16:46:20
Werner
AW: aber genau das will der TE ja nicht... o.w.T.
24.04.2019 17:44:21
cysu11
Hi Werner,
stimmt, wer lesen kann... :)
LG
Alexandra
AW: aber genau das will der TE ja nicht... o.w.T.
25.04.2019 12:07:36
Klaus
Danke Alexandra,
Das ist (fast) perfekt ! Nur : schrumpfe ich mit Deinem Makro meine Tabelle von Zeile 6 bis 32 auf 6 bis 24, dann verschwindet auch der Bereich I25 bis W32. Leider bin ich noch in der "Entwicklungsphase" sodaß meine "Gedächtnisstütze" ab Spalte I z.T. noch erheblich länger, als die Tabelle selbst. Heißt : alles von I1 bis W,unendlich brauche ich noch. Kannst Du das bitte noch ändern ?
Vorab wieder mal Danke, Klaus
AW: aber genau das will der TE ja nicht... o.w.T.
25.04.2019 12:46:51
cysu11
Hi Klaus,
dann so:
Sub DeleteDuplicatesRows()
With ActiveSheet
Set Rng = Range("A4", Range("H4").End(xlDown))
Rng.Select
Rng.RemoveDuplicates Columns:=Array(1, 2, 3, 4, 5, 6, 7, 8), Header:=xlNo
End With
End Sub
LG
Alexandra
Anzeige
AW: aber genau das will der TE ja nicht... o.w.T.
25.04.2019 13:01:42
Klaus
THX a lot Alexandra, einfach genial !
Gruß Klaus
und von mir ein Dankeschön...
25.04.2019 13:38:22
mir
Hallo,
...fürs Ignorieren.
Gruß Werner
AW: und von mir ein Dankeschön...
25.04.2019 16:36:35
mir
Sorry Werner,
ich habe nicht verstanden, was der TE ist, was er nicht will und an wen ( Alexandra oder mich ) Deine Antwort gerichtet war. Also bitte nicht mit mir böse sein. Die Terminologie im Forum, wie auch VBA, hat sich mir bis heute nicht erschlossen. Ich erinnere mich aber sehr deutlich, daß ich von Dir schon eine Menge abschreiben konnte. Das Verstehen kam dann oft erst Wochen später.
Bis die Tage, Klaus

303 Forumthreads zu ähnlichen Themen

Zeilen in Zellen suchen und löschen
Daniel

Hallo,
ich möchte in Excell mehrere Zelle suchen, die folgenden String in einer oder mehreren Zeilen enthalten: ----
Diese Zeilen möchte ich dann löschen. Nach diesem String sind noch weitere Zeichen vorhanden, die auch gelöscht werden sollen.
Weiß jemand wie ich am besten vorgehe?...
13.08.2008 12:52:02
Thread-ID: 1001495
9 Beiträge
Anzeige
Zeilen durchsuchen und alle Spalten auslesen.
LOTHARP

Hallo Zusammen,
ich habe eine Tabelle in der ich mir den Maxwert einer bestimmten Zeile wiedergeben lasse mit folgendem MAkro gelöst:
Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean) If Target.Column = 9 And Target.Row >= 2 And Target.Row
In de...
10.12.2008 11:36:41
Thread-ID: 1031637
4 Beiträge
Suchen und ersetzen ohne Neuanfang bei Zeile 1
Stefan

Hallo liebes Froum,
ich habe eine Spalte mit Werten, ca. 200 Zeilen. Die Werte bestehen aus 3ziffrigen Zahlen (010,011,100,271...). Diese Zahlen sollen durch andere 3ziffrige Zahlen ersetzt werden (z.B. 010 durch 001, 011 durch 004, 100 durch 200, 271 durch 355,...). Nun habe ich das Proble...
03.03.2009 11:26:38
Thread-ID: 1055879
19 Beiträge
Anzeige
Suchen und Zeile kopieren
Steffi

Hallo liebes Forum,
wie kann ich es am besten lösen...?
Ich habe in Tabelle2 von B1 bis B3500 Daten stehen.
In Tabelle1 habe ich von A1 bis A3500 die Daten auch aber in nicht sortierter Reihenfolge stehen.
Nun möchte ich die Daten von Tabelle2 B1 bis B3500 mit Tabelle1 A1 bis A3...
15.07.2009 22:28:08
Thread-ID: 1088922
2 Beiträge
Zeilen suchen und in neues Blatt uebertragen
TT

Hallo liebe Excel- und VBA-Cracks!
Möchte zur Zeiterfassung von mehreren Personen, die alle in mehrerer Projekten und darin in unterschiedlichen Arbeitspaketen arbeiten, folgendes tun:
Projektmitarbeiter fuellt in einem Monatsblatt alle notwendigen Angaben aus, wobei er fuer jede Tätigk...
21.10.2009 06:33:49
Thread-ID: 1110868
2 Beiträge
Spalte mit Datum suchen und Wert von Zeile kopiere
Zeile

Hi, folgendes Problem:
Ich möchte hinter eine Schaltfläche ein Makro legen, welches im Quellsheet 'Tabelle2' die Zeile 12 nach dem Vormonat (also: aktueller Monat - 1) durchsucht (Werte der Zeile 12 sind in der Datumsform z.B. 01.11.2009 und werden benutzerdefiniert dargestellt als MMM JJ)....
11.11.2009 14:08:13
Thread-ID: 1116202
3 Beiträge
letzte volle zeile suchen und löschen
meixner

Hallo zusammen,
habe eine Tabelle (A8: H16). Ich möchte anhand eines Makros die letzte volle zeile suchen, die sich in Spalte G befindet, anhand eines Makros finden.
Wenn er die letzte befüllte zeile in spalte G gefunden hat, soll alles andere was sich ab dieser vollen Zeile in den and...
15.11.2009 12:00:37
Thread-ID: 1117324
10 Beiträge
suchen, Treffer-Zeilen löschen
David

Hallo zusammen,
ich habe eine Export-Datei, in der bei 10.000 Gesamtzeilen etwa 2/3 nur aus kaskadierten Ergebniszeilen besteht. Eine Gliederung oder ähnliches ist nicht vorhanden, die Zeilen sind nur am Text "Ergebnis" zu identifizieren.
Da ich diese in der weiteren Verarbeitung nicht...
16.11.2009 17:09:14
Thread-ID: 1117704
13 Beiträge
Anzeige

Beliebteste Forumthreads (12 Monate)

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

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige
Archiv - Verwandte Themen
Forumthread
Beiträge
8
5
3
18
1
1
1
2
9
12
15
2
8
3
5
2
2
7
6
8
9
9
4
4
2