Suche bestimmte ZÄHLENWENN bzw Rangformel

[benniB]

Hallo   User:
 Suche eine (einfache?) Formel wie ich folgendes anzeigen lassen kann

Code: [Auswählen]

A

6
1
20
6
20
20
1
6
6
6
20
1
1
6
20
20
In Spalte B sollen jetzt Doppelte Werte gezählt und folgendermaßen Angezeigt werden:

Code: [Auswählen]

B

6.1
1.1
20.1
6.2
20.2
20.3
1.2
6.3
6.4
6.5
20.4
1.3
1.4
6.6
20.5
20.6

Ich hoffe Ihr versteht meine kurzgehaltene Frage und könnt mir Helfen

 und MFG

[Officer]

Hallo,

hier der passende VBA-Code:

Code: Visual Basic

1. Sub Zaehlen()
2. Dim lngLz As Long
3. Dim lngCnt As Long
4. Set wsakt = ThisWorkbook.Sheets(1)
5.  
6. lngLz = wsakt.Cells(Rows.Count, 1).End(xlUp).Row
7. wsakt.Columns(2).ClearContents
8.  
9. For a = 2 To lngLz
10.   lngCnt = 1
11.  
12.   For b = a To lngLz
13.  
14.     If wsakt.Cells(b, 1).Value = wsakt.Cells(a, 1).Value And _
15.       wsakt.Cells(b, 2).Value = "" Then
16.       wsakt.Cells(b, 2).Value = wsakt.Cells(b, 1).Value & "." & lngCnt
17.       lngCnt = lngCnt + 1
18.     End If
19.    
20.   Next b
21.  
22. Next a
23. End Sub
24.  

Zum nachvollziehen, habe ich auch die Beispieldatei beigefügt.

Gruß
Alois

[steve1da]

Hola,

als Alternative eine Formellösung:

Code: [Auswählen]

=A1&"."&ZÄHLENWENN($A$1:A1;A1)
Gruß,
steve1da

[benniB]

Vielen Dank an Euch beiden... Geht ja rasend schnell hier

Finde den VBA Code sehr interessant, aber denke für meine Zwecke reich schon der einfache Code von Steve!

Danke dafür und ein schönes Wochenende