ich habe hier folgende Formel gefunden die mir die Anzahl von Werten ohne Dopplung wieder gibt. Leider weiß ich nicht wie ich die auf ein anderes Tabellenblatt verweisen kann. Das Tabellenblatt heißt "Daten". Ich hoffe mir kann hier jemand helfen. Vielen Dank schon mal.
Dim strBereich As String
a = Tabelle2.Range("B3")
strBereich = "B2:B" & a
MsgBox Evaluate(Replace("=SUM(IF(#="""",0,1/COUNTIF(#,#)))", "#", strBereich))