Live-Forum - Die aktuellen Beiträge
Datum
Titel
25.04.2024 21:40:53
Excel Datenquelle aus dem Web mit Anmeldung?
25.04.2024 21:21:16
Zellkommentar in UserForm anzeigen und bearbeiten
25.04.2024 21:13:13
Kalenderwochen addieren
25.04.2024 21:06:05
Duplikate entfernen
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
1236to1240
Aktuelles Verzeichnis
Verzeichnis Index
Übersicht Verzeichnisse
Vorheriger Thread
Rückwärts Blättern
Nächster Thread
Vorwärts blättern
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Vorheriger Thread
Vorheriger Thread
Rückwärts Blättern
1236to1240
1236to1240
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Anz unterschiedliche Werte in Bereich

Anz unterschiedliche Werte in Bereich
RALF
Tach zusammen,
ich stell mich gerade etwas doof an......
Wie kann ich mit einem einfachen (KURZEN) VBA Code feststellen, wieviel unterschiedliche Werte in einem Bereich (z.Bsp A1:A50) sind?
Bsp. wie folgt (das Ergebnis wäre hier 3)
Bla
Bla
Bumm
Bla
Bla
Bonk
Bumm
Bumm
Danke und Gruß
RALF

8
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Benutzer
Anzeige
AW: Anz unterschiedliche Werte in Bereich
03.11.2011 18:21:53
Reinhard
Hallo Ralf,
einige Möglichkeiten, hier sowas wie Pseudocode:.
Dim colC as new collection
On Error resume next 'wichtig
For Zei = 1 to 50
colc.add...
next zei
Msgbox colc.count
Oder auf www.excelformeln.de die Excelformel dafür suchen und n Vba benutzen.
Gruß
Reinhard
AW: Anz unterschiedliche Werte in Bereich
03.11.2011 18:25:29
Ass
Hallo RALF, hier als Funktion:
Public Function Anz_Unique(rngBereich As Range)
'berechnet die Anzahl unterschiedlicher Einträge im übergebenen Bereich
Dim colItem As New Collection
Dim rngZelle As Range
On Error Resume Next
For Each rngZelle In rngBereich
colItem.Add rngZelle.Value, CStr(rngZelle.Value)
Next rngZelle
Anz_Unique = colItem.Count
End Function
Gruß
Rudi
Anzeige
2 Fragen zur Funktion
03.11.2011 19:30:35
Sibylle
Hallo Rudi,
zu Deiner Funktion habe ich 2 Fragen, um deren Beantwortung ich bitte:
a. Dim colItem As New Collection
Was genau hat man sich unter diesem Befehl vorzustellen?
b. colItem.Add rngZelle.Value, CStr(rngZelle.Value)
hier werden ja wohl die Zellinhalte auf Unikat geprüft, hinzugefügt und gezählt?
Weshalb die Konvertierung in CStr? Ist dies so vom System vorgesehen?
Einen schönen Abend.
Gruß
Sibylle
AW: 2 Fragen zur Funktion
03.11.2011 20:27:35
Reinhard
Hallo Sybille,
::::a. Dim colItem As New Collection
::::Was genau hat man sich unter diesem Befehl vorzustellen?
daß die variable colItem ein eindimensionales Array ist, Der erste Index ist nicht 0 sondern 1.
::::b. colItem.Add rngZelle.Value, CStr(rngZelle.Value)
::::hier werden ja wohl die Zellinhalte auf Unikat geprüft, hinzugefügt und gezählt?
Jain. Die zellinhalte werden in die arrayliste von colItem angefügt sofern sie nicht schon darin vorhanden sind.
Deshalb On Error Resume Next, denn schon vorhanden bringt einen Fehler.
Die Zählung erfolgt dann nach der Einleseschleife durch colItem.count.
::::Weshalb die Konvertierung in CStr? Ist dies so vom System vorgesehen?
Collections mögen nur Stringwerte.
Gruß
Reinhard
Anzeige
Danke
03.11.2011 21:53:41
Sibylle
Hallo Reinhard,
vielen Dank für die präzise Beschreibung der Wirkung der einzelnen Zeilen.
Die Arbeitsweise der Funktion ist damit verstanden. Danke.
Einen schönen Abend.
Gruß
Sibylle
DANKE - mit super Erläuterung unten
04.11.2011 10:21:23
RALF
super Lösung....DANKE
kurze Alternative
03.11.2011 19:59:09
Erich
Hi Ralf,
teste doch mal das hier: 

Sub AnzOhneDup()
MsgBox Evaluate("SUM(IF(A1:A50"""",1/COUNTIF(A1:A50,A1:A50)))")
End Sub
Die Matrixformel: =SUMME(WENN(A1:A50"";1/ZÄHLENWENN(A1:A50;A1:A50)))
ist von http://www.excelformeln.de/formeln.html?welcher=42
Rückmeldung wäre nett! - Grüße von Erich aus Kamp-Lintfort
Anzeige
kurz - schnell
04.11.2011 10:33:49
RALF
Servus Erich,
klasse Lösung, da nur eine Zeile. Wenn ich jetzt noch die Muse hätte, Matrixformeln zu verstehen ;O)
Da ich noch eine weitere Bedinung einfügen möchte, bietet sich für mein aktuelles Problem die Lösung von Reinhard an.
Wenn man beide Lösungen gegeneinander antreten lässt, ist die von Reinhard aber die deutlich schnellere (0,02 Millisekunden gegen 1 Millisekunde pro Zeile)
DANKE und Gruß
RALF

308 Forumthreads zu ähnlichen Themen

@ Tino - brauche Hilfe bei einer deiner Formeln
oblivion

Hallo, ich habe eine Frage an dich. Du hast mir die Formel erstellt in A16.
Ich habe die Datei mal hochgeladen und in Blatt "Beispiel" Spalte A etwas hereingeschrieben.
Danke für deine Hilfe.
Gruß Oblivion
https://www.herber.de/bbs/user/54685.zip
17.08.2008 21:06:00
Thread-ID: 1002466
4 Beiträge
Anzeige
In mehrspaltiger ListBox Einträge in Spalte zählen
Josef

Hallo!
Mit "Label140.Caption = ListBox9.ListCount" kann ich die eingetragenen Zeilen in einer Listbox zählen und in einem Label eintragen lassen.
Ist es möglich, in einer merhspaltigen ListBox Einträge in einer Spalte z.B. Spalte 8 zu zählen.?
Wenn ja, wie würde hier bitte eine VBA...
26.08.2008 12:10:10
Thread-ID: 1004750
4 Beiträge
Bestimmten Wert in einer Zelle finden
Olli

Hallo,
ich lauf gerade wieder mal mit einem Brett vorm Kopf rum und hoffe, mir kann einer hier helfen.
Ich habe in einer Zelle mehrere Werte stehen, die jeweils durch Semikolon getrennt sind (bis zu 15).
Wie kann ich per VBA eine Schleife erstellen, dass solange nach einem Wert gesu...
19.09.2008 08:54:00
Thread-ID: 1010897
5 Beiträge
Anzeige
Formel gesucht: Anzahl vesch. Werte in Zellbereich
Martin

Hallo liebe Excelianer,
gibt es eine Formel, die die Anzahl verschiedener Zelleninhalte für einen Bereich ermittelt? Zum Beispiel wenn ich 15 Zellen hätte, in denen 3mal die 5 steht und 12mal die 7 steht. Da ja nur 2 verschiedene Werte in den 15 Zellen stehen, müsste also 2 herauskommen. Nu...
19.09.2008 13:25:00
Thread-ID: 1011022
4 Beiträge
UDF - pos. oder neg. Wert in ausgeblendet. Bereich
Peter

Guten Abend
Ich möchte mit Hilfe einer Funktion (z.B. yWert) abfragen, ob innerhalb einem benannten Bereich (z.B. "Zahlenteil") positive oder negative Werte in ausgeblendeten Zeilen enthalten sind. Falls dies zutrifft, sollte die Rückgabe der Tabellenname sowie die betreffenden Zelladressen...
26.09.2008 21:20:00
Thread-ID: 1012746
4 Beiträge
Vergleichen mit Funktion WENN
Uwe

Hallo liebe Forummitglieder,
ich habe ein Problem mit vergleichen von Zahlen.
Ich habe schon selbst probiert, aber das haut hinten und vorne nicht hin.
=WENN(ODER(B10=1;"100")WENN(B10=2;"200")WENN(B10=3;"300")WENN(B10=4;"400"))
Ich möchte wenn in B10 1 steht 100, bei 2 200, bei...
01.10.2008 08:25:00
Thread-ID: 1013514
9 Beiträge
Wert der letzten befüllten Zelle in Bereich
Bibo

Hallo EXCEL-Freunde,
ich habe bei excelformeln.de bei Beate Schmitz und Aladin Akyurek abgekupfert und ermittle mit der genauso kurzen wie eleganten Formel =VERWEIS(9^99;A1:F1) oder =VERWEIS(9^99;C1:C10) die letzten Zahlen in den angegebenen Bereichen.
Das klappt auch wunderbar, soweit...
12.10.2008 15:32:39
Thread-ID: 1015865
5 Beiträge
Such in Spalte Ergebnis in listbox
Markus

Hallo zusammen,
hab wieder mal ein Problem.
Hab ne Userform mit mehreren Textboxen und einer Listbox
In Textbox1 steht mein Suchtext das makro sucht nun im angegebenen Arbeitsblatt nach dem Text und
schreibt mir alle Daten aus der Gefundenen Zeile in Textboxen.
Hab nun fest...
14.10.2008 11:24:35
Thread-ID: 1016271
3 Beiträge
Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Jetzt das Excel-Portal bewerten: Deine Stimme zählt!

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige
Archiv - Verwandte Themen
Forumthread
Beiträge
3
4
3
4
4
3
3
8
4
2
4
4
3
2
5
3
2
8
13
10
4
5
4
2
3