Microsoft Office Forum [ www.Office-Fragen.de ] >> READONLY <<

Microsoft Office 2003-2019 => Excel => Thema gestartet von: benniB am April 17, 2015, 08:31:20 Vormittag

Titel: Suche bestimmte ZÄHLENWENN bzw Rangformel
Beitrag von: benniB am April 17, 2015, 08:31:20 Vormittag

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

Titel: Antw: Suche bestimmte ZÄHLENWENN bzw Rangformel
Beitrag von: Officer am April 17, 2015, 08:49:39 Vormittag

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

Titel: Antw: Suche bestimmte ZÄHLENWENN bzw Rangformel
Beitrag von: steve1da am April 17, 2015, 08:55:28 Vormittag

Hola,

als Alternative eine Formellösung:

Code: [Auswählen]

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

Titel: Antw: Suche bestimmte ZÄHLENWENN bzw Rangformel
Beitrag von: benniB am April 17, 2015, 09:01:18 Vormittag

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 ;)