Hallo Immo,
meinst Du die Vorhandenen Werte ohne Duplikate (und eventuel die Anzahl
davon)?
Public Sub ErstelleDokument()
Range("A1").Value = "Werte (mit Duplikaten)"
For Zeile = 2 To 51 ' 50 Werte
Range("A" & Zeile) = CInt(1 + (Rnd * 24)) ' Zufallswert von 1 bis 25
Next
' ############
Spalte = "A"
' ############
Zeile = 2
Dim Inhalt() As String
ReDim Preserve Inhalt(0)
Inhalt(0) = ""
' Verschienene Varianten werden gesucht
Do Until Range("A" & Zeile).Value = Empty
Fund = False
For Each Element In Inhalt
If CStr(Range(Spalte & Zeile).Value) = Element Then
Fund = True
Exit For
End If
Next
If Fund = False Then
ReDim Preserve Inhalt((UBound(Inhalt) + 1))
Inhalt(UBound(Inhalt)) = Range(Spalte & Zeile).Value
End If
Zeile = Zeile + 1
Loop
' Varianten werden gezählt
For Each Element In Inhalt
Zeile = 2
Anzahl = 0
Do Until Range("A" & Zeile).Value = Empty
If CStr(Range(Spalte & Zeile).Value) = Element Then Anzahl = Anzahl + 1
Zeile = Zeile + 1
Loop
If Element = "" Then
Text = vbNewLine & "leer" & vbTab & Anzahl
Else
Text = Text & vbNewLine & Element & vbTab & Anzahl
End If
Next
MsgBox "Folgende Varianten wurden gefunden:" & vbNewLine & "Wert" & vbTab &
"Anzahl" & vbNewLine & Text, vbInformation, "Anzahl der Varianten"
End Sub
Post by Immo BrauchHallo zusammen,
in Spalte A stehen in 600 Zeilen schäzungsweise 150 Einzeldaten, sodass
viele Einzeldaten doppelt vorkommen.
Wie kann ich mir immer nur den ersten Wert anzeigen lassen?
--
Immo Brauch