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
1432to1436
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
1432to1436
1432to1436
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Doppelte Zeilen löschen

Doppelte Zeilen löschen
08.07.2015 12:05:06
Alex
Hallo liebe Experten,
ich habe einen Abschnitt von einer Excel Tabelle " Spalte B" hier Kopiert
B3 2200.01717.01.B
B4 2200.01717.01.B.10
B5 2200.01717.01.B.10.0000
B6 2200.01717.01.B.20
B7 2200.01717.01.B.20.0000
B8 2200.01717.01.C
B9 2200.01717.01.C.10
B10 2200.01717.01.C.10.0000
B11 2200.01717.01.C.10.0000
B12 2200.01717.01.C.10.0000
B13 2200.01717.01.C.10.0000
B14 2200.01717.01.C.10.0000
B15 2200.01717.01.C.10.0000
B16 2200.01717.01.C.10.0000
B17 2200.01717.01.C.10.0000
B18 2200.01717.01.C.10.0000
B19 2200.01717.01.C.10.0000
B20 2200.01717.01.C.20
B21 2200.01717.01.C.20.0000
B22 2200.01717.01.C.20.0000
Die Tabelle hat zwischen 500 und 1000 Zeilen
- Bei B8: endet der Inhalt mit C "keine Aktion"
- Bei B9: endet der Inhalt mit C.10 " muss gelöscht werden"
- Bei B10
B11
.
.
.
B19: endet der Inhalt mit C.10.0000 " keine Aktion"
- Bei B20: endet der Inhalt mit C.20 " muss gelöscht werden" usw.
also jedes mal Wiederholt sich das ganze nochmal, ich möchte immer die ganze Zeile löschen, wenn in der Spalte "B" eine Buchstabe gefolgt mit nur einer Nummer steht. z. B. " wenn der Inhalt mit B.20, C.10, C30, C40, F10 endet"
wäre super wenn es mit VBA Klappen Könnte, weil ich fast jede Woche so eine Tabelle bekomme.
Herzlichen Dank im Voraus für die Hilfe.
Gruß Alex

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

Betreff
Datum
Anwender
Anzeige
AW: Doppelte Zeilen löschen
08.07.2015 13:12:34
JoWE
Hallo Alex,
aufgezeichnet, kann man noch dran feilen(!!!): 
Sub Makro1()
ActiveSheet.Range("$B$1:$B$500").AutoFilter Field:=1, Criteria1:="=*.?", _
Operator:=xlAnd
Selection.SpecialCells(xlCellTypeVisible).Select
Selection.Delete Shift:=xlUp
Range("A1").Select
End Sub

Gruß
Jochen

AW: Doppelte Zeilen löschen
08.07.2015 15:01:22
Alex
Hallo Jochen,
vielen Dank, hat super funktioniert.
nur ein Kleines Problem die ich nicht lösen konnte, und zwar nach dem ausführen des Makros wird die erste Zeile ganz oben "Titeln" auch gelöscht. Kann man da was machen?
Gruß Alex

Anzeige
AW: Doppelte Zeilen löschen
08.07.2015 18:12:04
JoWE
Hallo Alex,
klar, so geht's:
Sub Makro1()
ActiveSheet.Range("$B$1:$B$500").AutoFilter Field:=1, Criteria1:="=*.?", Operator:=xlAnd
Range("A1").CurrentRegion.Offset(1, 0).SpecialCells(xlCellTypeVisible).EntireRow.Delete
Selection.AutoFilter
End Sub
Gruß
Jochen

AW: Doppelte Zeilen löschen
09.07.2015 12:41:33
Alex
Hallo Jochen,
ich habe die Antwort erst jetzt gelesen. Es klappt :))
Vielen Dank
Gruß Alex

301 Forumthreads zu ähnlichen Themen

Doppelte Zahlwerte löschen
Gregor

Hallo zusammen
In Spalte E habe ich folgende möglichze Zahlen:
1114539.4
1114539
1114539.4-2
1114539.1
1114539.3
1114539.3-1
Nun möchte ich die Zeile mit der Zahl 1114539 löschen. Das heisst, bei mehrfach gleichen Zahlen vor dem Punkt soll immer die Zahl ohne Pun...
17.06.2009 10:22:49
Thread-ID: 1082148
3 Beiträge
Anzeige
Doppelte Zelleneinträge dann ZEILE löschen
Wolle

Hallo alle zusammen,
habe noch ein Problem:
Wenn Zelleneinträge doppelt vorhanden sind, soll der doppelte eintrag gelöscht werden, wenn diese direkt untereinander stehen.
Bereich: B:B
Beispiel:
B1 = 100
B2 = 500 ..... bleibt stehen
B3 = 500 ..... ZEILE löschen
08.07.2009 12:32:46
Thread-ID: 1087167
5 Beiträge
Makro doppelte Zeilen löschen
Christian

Hallo allerseits,
ich habe folgendes Makro, welches Zeilen ahand von doppelten Einträgen in einer spalte löscht.
Allerdings wird immer die zweite Zeile (von oben gesehen) gelöscht, ist es auch möglich die erste zeile zu löschen und die zweite zu behalten?
hier das makro: Sub supp_d...
22.07.2009 10:44:51
Thread-ID: 1090433
5 Beiträge
Anzeige
Doppelte Werte, abhängig von aktiver Zelle, finden
aktiver

Hallo,
auch nach stundenlanger Suche konnte ich folgendes Problem bisher nicht lösen:
In meinem Tabellenblatt kommen verschiedene Zelleinträge mehrfach vor.
Nun soll, wenn sich der Cursor in einer Zelle befindet, deren Inhalt in der Tabelle nochmals (oder mehrmals) vorkommt, diese Z...
09.08.2009 13:52:48
Thread-ID: 1094515
12 Beiträge
gleiche Zeileninhalte finden
Frank

Hallo,
gibt es eine Möglichkeit um in zwei Dateien gleiche Zeileninhalte zu erkennen.
Es müssen mind. 3 Zellinhalte stimmen, wie z.B. Kunde, Bestellnummer und Pos. Nr.
Wenn ich in einer Datei einen Datensatz(von A- AG) auswähle, um zu liefern (läuft alles über ein Makro) soll in de...
21.10.2009 19:18:41
Thread-ID: 1111107
3 Beiträge
VBA doppelte Einträge
Ralf

Hallo liebe Forum Nutzer
ich habe folgendes Problem, wo ich einfach keine Lösung finde:
In dem Bereich BJ5 bis BJ46 sollen alle doppelten Einträge per VBA durch einen roten Hintergrund hervorgehoben werden, so wie es mit der bedingten Formatierung auch möglich wäre.
Ich habe dazu fo...
29.12.2009 15:28:25
Thread-ID: 1126233
8 Beiträge
doppelte Einträge in einer Spalte löschen
Thomas

Hallo,
ich habe folgendes Problem:
Habs nach langen hin und her hinbekommen die doppelten Einträge in der Spalte A und die zugehörige Zeile mit diesem Makro zu löschen
Sub DoppelteLöschen() Dim iRow As Long, iRowL As Long iRowL = Cells(Cells.Rows.Count, 1).End(xlUp).Row For iRow = i...
06.01.2010 01:11:46
Thread-ID: 1127483
4 Beiträge
VBA Schleife - elimieren von doppelten Werten
doppelten

Hallo Forum,
ich möchte doppelte Werte (siehe Anhang) aus Spalte A inhaltlich löschen (sind vorher sortiert).
Leider funktioniert meine Schleife nicht.
Kann mir jemand helfen?
Vielen Dank im voraus.
https://www.herber.de/bbs/user/68477.xls
Grüße
Karen
09.03.2010 11:06:49
Thread-ID: 1144532
9 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
2
3
4
4
3
11
2
7
3
8
4
4
13
3
1
6
2
9
2
3
6
12
19
6
2