Live-Forum - Die aktuellen Beiträge
Datum
Titel
23.04.2024 21:33:46
Nur farbige/nicht farbige Zellen markieren
23.04.2024 21:29:56
Bestimmte Zellen auf andere Arbeitsblätter kopieren
23.04.2024 17:41:19
Link erstellen mit Formel oder VBA?
23.04.2024 17:00:22
Summe und Ausgabe
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
1692to1696
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
1692to1696
1692to1696
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Mehrfach vorhandene Nummern in Zellen löschen

Mehrfach vorhandene Nummern in Zellen löschen
28.05.2019 15:44:49
Elmar
Hallo zusammen,
ich habe eine Herausforderung, die ich mit "Probieren" nicht wirklich gelöst bekomme.... Ich suche eine VBA-Lösung für folgendes Problem.
Ich habe in der Spalte "B" meiner Tabelle ca 8000 Personalnummern. Aus diesen Personalnummern sollen nun alle gelöscht werden, die 3 und mehrmals vorkommen.
Es sollen also nur diese gelöscht werden, wenn mehr als 2 mal vohanden und dann aber (wenn diese Bedingung zutrifft) alle Datensätze mit dieser Personalnummer, diese Nummer soll dann also überhaupt nicht mehr vorkommen in meiner Tabelle.
Ist eine Nummer 2 mal drin, soll es so bleiben....
Hoffe, ich hab mich einigermaßen verständlich ausgedrückt und vielleicht hat ja jemand eine Idee bzw. einen ähnlichen Code, den ich anpassen könnte.
Danke vorab
Elmar

3
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
fehlende Infos...
28.05.2019 15:55:44
Werner
Hallo Elmar,
wo beginnen deine "Personalnummern" in Spalte B, in Zeile 1 oder ist da eine Überschrift?
was ist die erste freie Spalte in deiner Datei, Spalte C ?
Am besten mal eine Beispielmappe mit ein paar Beispieldaten hier hochladen.
Vom Grundsatz her würde ich das so machen:
In die erste freie Spalte rechts der Daten eine Formel eintragen, die alle Werte in Spalte B markiert, wenn sie mehr als zweifach vorhanden sind.
Daten nach dieser Hilfsspalte filtern - Filterergebnis löschen.
Gruß Werner
AW: Mehrfach vorhandene Nummern in Zellen löschen
28.05.2019 15:55:57
UweD
Hallo
- Hilfsspalte wählen
- Formel: =ZÄHLENWENN(B:B;B2)
- Autofilter auf die Hilfsspalte &GT2
- Ab Zeile 2 alles löschen
LG UweD
Anzeige
AW: Mehrfach vorhandene Nummern in Zellen löschen
28.05.2019 16:13:47
fcs
Hallo Elmar,
etwa so
LG
Franz 
Sub Remove_3_fach_in_B()
Dim wks As Worksheet
Dim colTest As Long
Dim Zei_L As Long
Set wks = ActiveSheet
With wks
colTest = .UsedRange.Column + .UsedRange.Columns.Count
Zei_L = .Cells(.Rows.Count, 2).End(xlUp).Row
With .Range(.Cells(1, colTest), .Cells(Zei_L, colTest))
.FormulaR1C1 = "=IF(countif(r1C2:r" & Zei_L & "C2,rc2)>=3,1,"""")"
.Calculate
.Value = .Value
If Application.WorksheetFunction.Count(.Cells) > 0 Then
.SpecialCells(xlCellTypeConstants, xlNumbers).EntireRow.Delete shift:=xlShiftUp
End If
End With
End With
End Sub

Anzeige

302 Forumthreads zu ähnlichen Themen

Bestimmte Werte aus einer Zelle herausfiltern
G_G

Hallo zusammen.
Ich habe in einer Zelle einen etwas längeren Text (mit Zahlen und Buchstaben). Ich würde jetzt gerne hieraus den Wert rausfiltern (in separate Spalte), der neben der Buchstabenkombination "AT" steht.
Hört sich einfach an. Da gibt es aber noch einige Sonderfälle.
Ich...
15.09.2008 12:03:00
Thread-ID: 1009747
5 Beiträge
Anzeige
Zeichen in Zelle automatisch kürzen
Andreas

Guten Tag,
ich habe Zellen mit jeweils 12 Stellen ausgefüllt (z.B. 000012345678) Davon hätte ich nun gerne automatisch die ersten 4 gelöscht (sodaß in diesem Beispiel dann in der Zelle nur 12345678 verbleibt)
Ist das mit Excel-Bordmitteln machbar?
Danke für Hilfe voarab,
Andreas...
09.10.2008 13:57:00
Thread-ID: 1015344
4 Beiträge
Zeichen aus dem Text holen
Oskar

Hallo
Ich möchte aus einem Text immer 2 Zeichen holen. ZB das 3. un4. Zeichen.
Beispiel:
AABBCCDD Wenn ich das 5. und 6. Zeichen Will muss das Ergebnis so aussehen CC
Besten Dank für die Hilfe
14.10.2008 12:07:00
Thread-ID: 1016292
2 Beiträge
Anzeige
Zelle des erstes Vorkommen eines Zeichens ausgeben
-s

Hallo Forum,
ich habe in Zeile 1 in jeder Spalte einen Buchsteben stehen:
a|b|c|c|c|e|
Wie kann ich die Zelle ausgeben lassen, in der beispielsweise das "c" das erste mal vorkommt? Als Ergebnis soll dann C1 ausgegeben werden.
Besten Dank!
-s
07.12.2008 21:32:00
Thread-ID: 1030929
4 Beiträge
Ausgabe der ersten 4 Zeichen aus anderer Zelle
Eddie

Mahlzeit an alle,
habe wohl ne ganz einfache Sache .. ich suche ne kleine Formel, womit ich in A1 die ersten 4 Zeichen in der Zelle B1 wieder anzeige, also kopiert wird
Danke und gruß Eddie
05.01.2009 14:39:00
Thread-ID: 1036984
4 Beiträge
Anzahl der Zeichen in einer Zelle
Jan

Guten Morgen
Welcher Befehl zählt die Zeichen in einer Zelle?
Danke
Gruß Jan
07.01.2009 08:38:00
Thread-ID: 1037436
3 Beiträge
Nur bestimmte Zeichen in Zelle
wolle

Erstmal ein Hallo an Alle und alles gute in 2009!
Ich hätte folgende Frage:
Wie kann ich es machen, dass in Spalte B von Zelle B10 bis Zelle Bxx nur die Zeichen "J" "j" "N" "n" eingeben werden können und bei Eingabe eines anderen Zeichens ein kleines Popup erscheint, das den Bediener in...
09.01.2009 11:22:25
Thread-ID: 1038162
3 Beiträge
zählen bestimmter Zeichen in einer Zelle
Georg

Hallo Excel Welt,
wie kann ich die Anzahl bestimmter Zeichen (z.B. Kommas) in einer Zelle zählen?
Beispiel:
A2 = 12, 34, 2, 134
B2 = 3 (es sind drei Kommas in der Zelle A2) = dafür benötige ich die Lösung
Oder kann ich die Anzahl der (durch Kommas getrennten) Zahlen direkt...
21.01.2009 16:03:36
Thread-ID: 1042267
6 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
4
3
3
1
2
3
3
2
2
5
2
2
4
4
7
10
2
4
1
4
3
9
2
2
9