Hallo Zusammen,
ich habe eine Tabelle die Werte hat die mehrmals vorkommen.
In einer neuen Tabelle habe ich die Tabelle bereits so organisiert, dass jeder Wert genau einmal vorkommt.
Jetzt möchte ich aber gerne eine Spalte haben (zB Spalte C) die mir jeweils zu Spalte A angibt, wie oft dieser Wert/Zeile in der "unsortierten" Tabelle vorkommt.
Obendrein soll sie in der Spalte "B" der jeweiligen Zeilen nachschauen, ob sie gefüllt ist oder nicht und die dann mitzählen.
Sodass in Spalte "C" beispielsweise der Wert "5/7" rauskommt. -> also 7 gleiche Werte waren vorhanden und davon waren 5 in Spalte B befüllt.
Ich hoffe, dass ich es einigermaßen verständlich vormuliert habe.
Vielen Dank im Voraus
Hier mein Ansatz:
Sub Zähler()
Dim i As Long
Dim n As Long
Dim k As Long
Dim letztezeileInS2 As Long
letztezeileInS2 = Sheets(2).UsedRange.SpecialCells(xlCellTypeLastCell).Row
Dim letzteZeileInS1 As Long
Dim zähler As Long
Dim nenner As Long
For i = 2 To letztezeileInV
letzteZeileInS1 = Sheets(1).UsedRange.SpecialCells(xlCellTypeLastCell).Row
zähler = 0
nenner = 0
For n = 2 To letzteZeileInS1
If Sheets(2).Cells(i, 1).Value = Sheets(1).Cells(n, 1).Value Then
nenner = nenner +1
If Sheets (2).Cells(2).Value <> ""
zähler = zähler +1
Sheets(1).Cells(n, 3) = zähler & "/" & nenner
End If
End If
Next n
Next i
End Sub
|