Live-Forum - Die aktuellen Beiträge
Datum
Titel
16.10.2025 18:38:17
Zusammenfassung nach Personalnummer
16.10.2025 17:40:39
Rabattstafel
16.10.2025 17:25:38
bedingte Formatierung
16.10.2025 16:39:53
Ergebnisse nach rechts ausgeben
Keine passende Antwort im Forumarchiv gefunden?
Stelle deine Frage im Live-Forum
Anzeige
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Vorheriger Thread
Vorheriger Thread
Rückwärts Blättern
1580to1584
1580to1584
Aktuelles Verzeichnis
Verzeichnis Übersicht
Verzeichnis Übersicht
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Nur 1 Kennung bei identischen Daten

Forumthread: Nur 1 Kennung bei identischen Daten

Nur 1 Kennung bei identischen Daten
28.09.2017 14:30:09
schen4ik
Hallo Excelfreunde,
ich benötige bei folgendem Problem eure Untersützung.
Ich habe in der Spalte A die Einträge für eine bestimmte Kalenderwoche. Diese Einträge wiederholen sich oft.
In der Spalte B möchte ich gerne für je nur eine KW ein Kennung z.B. "X" hinterlassen. Bei den anderen identischen Einträgen sollte kein Wert eingetragen werden. Gesamthaft müsste ich so auf 52 "X" kommen.
Siehe hierzu Beispiel unten oder Anhang.
https://www.herber.de/bbs/user/116608.xlsx
Vorab vielen Dank für die Unterstützung.
Schen4ik
BSP:
KW....Kennung
1........ X
1
1
2.........X
2
4.........X
5.........X
4
4
3.........X
Anzeige

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

Betreff
Datum
Anwender
Anzeige
AW: Nur 1 Kennung bei identischen Daten
28.09.2017 14:40:51
UweD
Hallo

Tabelle1
 AB
21X
31 
41 
52X
62 
74X
85X
94 
104 
113X

verwendete Formeln
Zelle Formel Bereich N/A
B2:B11=WENN(ZÄHLENWENN($A$2:$A2;A2)=1;"X";"")  
http://excel-inn.de/dateien/vba_beispiele/tabellenanzeige_in_html_addin.zip
http://Hajo-Excel.de/tools.htm
XHTML-Tabelle zur Darstellung in Foren, einschl. der neuen Funktionen ab Version 2007
Add-In-Version 21.10 einschl. 64 Bit


LG UweD
Anzeige
AW: Nur 1 Kennung bei identischen Daten
28.09.2017 15:23:30
schen4ik
Hallo Uwe,
funktioniert Prima.
Vielen Dank.
Schen4ik
oder über Makro
28.09.2017 15:09:48
KlausF
Hi,
etwa so:
Sub KWzuweisen()
Dim i As Long, lastRow As Long
Dim intSearch As Integer, maxSearch As Integer
lastRow = ActiveSheet.Cells(Rows.Count, "A").End(xlUp).Row
maxSearch = WorksheetFunction.Max(Range("A2:A" & lastRow))
intSearch = 1
Application.ScreenUpdating = False
For i = 2 To lastRow
If Range("A" & i) = intSearch Then
Range("B" & i) = "X"
intSearch = intSearch + 1
If intSearch > maxSearch Then Exit For
i = 1
End If
Next i
End Sub
Gruß
Klaus
Anzeige
;

Beliebteste Forumthreads (12 Monate)

Jetzt das Excel-Portal bewerten: Deine Stimme zählt!
Anzeige
Anzeige
Entdecke mehr
Finde genau, was du suchst

Die erweiterte Suchfunktion hilft dir, gezielt die besten Antworten zu finden

Suche nach den besten Antworten
Unsere beliebtesten Threads

Entdecke unsere meistgeklickten Beiträge in der Google Suche

Top 100 Threads jetzt ansehen
Anzeige