Autor
|
Thema: Anzahl unterschiedlicher Zellen (2781 mal gelesen)
|
hkarn Mitglied Dipl.Ing.(BA) Holztechnik
Beiträge: 38 Registriert: 09.10.2003 Windows 7 Autosketch 9.0
|
erstellt am: 29. Mrz. 2005 15:20 <-- editieren / zitieren --> Unities abgeben:
Hallo, in nem Datenblatt hab ich ne Spalte in der Termine stehen. Die gleichen Termine kommen allerdings oft vor und ich möchte nun aber wissen wieviel verschiedene Termine in dieser Spalte stehen. Hat da jemand ne Idee? Vielen Dank für eure Hilfe hk
Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP |
rainberg Mitglied
Beiträge: 147 Registriert: 14.01.2005
|
erstellt am: 29. Mrz. 2005 18:38 <-- editieren / zitieren --> Unities abgeben: Nur für hkarn
|
hkarn Mitglied Dipl.Ing.(BA) Holztechnik
Beiträge: 38 Registriert: 09.10.2003 Windows 7 Autosketch 9.0
|
erstellt am: 30. Mrz. 2005 08:05 <-- editieren / zitieren --> Unities abgeben:
|
rainberg Mitglied
Beiträge: 147 Registriert: 14.01.2005
|
erstellt am: 30. Mrz. 2005 10:59 <-- editieren / zitieren --> Unities abgeben: Nur für hkarn
Hallo hk, bei importierten Daten kommen die Daten meist als Text an. Du hast nun 2 Möglichkeiten, entweder du wandelst die betreffende Spalte ins echte Datumsformat um oder, wenn dir das zu aufwendig ist, und das Datum nur optischen Wert hat, dann nimm diese Matrixformel. (geschweifte Klammern nicht mit eingeben, sondern Formeleingabe mit Strg+Shift+Enter abschließen, damit werden die Klammern automatisch erzeugt)
Code: {=SUMME(WENN(A1:A100<>"";1/ZÄHLENWENN(A1:A100;A1:A100)))}
Den Zeilenindex musst du anpassen. ------------------ Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP |
hkarn Mitglied Dipl.Ing.(BA) Holztechnik
Beiträge: 38 Registriert: 09.10.2003 Windows 7 Autosketch 9.0
|
erstellt am: 30. Mrz. 2005 11:29 <-- editieren / zitieren --> Unities abgeben:
danke auch ne gute idee, leider besteht meine liste aus über 16000 einträgen und da hängt sich mein rechner auf. hab mittlerweile aber auch noch ne VBA-lösung gefunden und mit der funktioniert es: Sub AnzahlmitVBA() Range("e1").Sort Key1:=Range("e1"), Order1:=xlAscending, Header:=xlGuess For i = 2 To [a65536].End(xlUp).Row If Cells(i, 5) <> Cells(i - 1, 5) Then x = x + 1 Next MsgBox x End Sub Trotzdem nochmals vielen dank
Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP |