Live-Forum - Die aktuellen Beiträge
Datum
Titel
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
19.04.2024 15:39:42
Exceltabelle daten per combobox zu word Datei
19.04.2024 14:04:05
PDF per VBA ausgeben - Seitenskalierung
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
1580to1584
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
1580to1584
1580to1584
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

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

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)

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

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige