Live-Forum - Die aktuellen Beiträge
Datum
Titel
23.04.2024 12:37:19
gew. Mittelwert Spalten mit Text ignorieren
23.04.2024 12:29:20
VBA nur Zeilen mit bestimmten Eintrag selektieren
23.04.2024 11:26:57
Probleme mit tbl.Listrows.add
23.04.2024 10:55:14
Zeilen sortieren
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
1452to1456
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
1452to1456
1452to1456
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Varianten ausgeben

Varianten ausgeben
26.10.2015 08:42:28
muehli
Hallo zusammen,
ich habe eine Spalte die wie folgt aussieht:
+Enc.1
+Enc.1
+Enc.1
+Enc.2
+Enc.2
+Enc.3
+Enc.3
+Enc.4
+Enc.4
+Enc.2
+Enc.1
+Enc.1
+Enc.6
[undefined]
+Enc.13
+Enc.13
ich bräuchte einen Ansatz in VBA, der mir die Anzahl der Varianten ausgibt.
Hier AnzahlVarianten = 7
Leider komme ich nicht drauf :/
Kann mir jemand helfen?
Freundliche Grüße und danke
muehli

3
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: folgende Formellösung ...
26.10.2015 08:56:12
...
Hallo muehli,
... könntest Du verwenden:
=SUMMENPRODUKT((VERGLEICH(A1:A99&"";A1:A99&"";)=ZEILE(A1:A99))*(A1:A99""))
Diese ergibt im Beispiel Deine vorgegebene Anzahl von 7.
Oder 6 ergibt: =SUMMENPRODUKT((VERGLEICH(A1:A99&"";A1:A99&"";)=ZEILE(A1:A99))*(A1:A99"")*(A1:A99"[undefined]"))
Gruß Werner
.. , - ...

AW: Varianten ausgeben
26.10.2015 09:16:45
Daniel
Hi
wenn die Liste keine Leerzellen enthält, bekommst du die Anzahl der unterschiedlichen Varianten so:
=SUMMENPRODUKT(1/ZÄHLENWENN(A1:A10;A1:A10))
Zellbereich muss genau angepasst werden.
Gruss Daniel

VBA: Varianten ausgeben
26.10.2015 12:06:42
MCO
Moin!
Ist zwar ne sehr einfache Lösung, tut´s aber.
Die Spalte "E" kannst du ja für dich anpassen...
Gruß, MCO
Sub Makro1()
Columns("A:A").Copy Range("E1")
Range("$E$1:$E$" & Rows.Count).RemoveDuplicates Columns:=1, Header:=xlNo
With Range("E:E").SpecialCells(xlCellTypeConstants)
MsgBox .Count & " verschiedene Einträge"
.Clear
End With
End Sub

Anzeige

Beliebteste Forumthreads (12 Monate)

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

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige