Live-Forum - Die aktuellen Beiträge
Datum
Titel
23.04.2024 17:41:19
Link erstellen mit Formel oder VBA?
23.04.2024 17:00:22
Summe und Ausgabe
23.04.2024 16:27:34
Excel Starthinweis - Arbeitsmappenleistung überprüfen ...
23.04.2024 16:15:16
Mittels VBA vordefinierte Kommentare in Zellen einfügen?
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
1668to1672
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
1668to1672
1668to1672
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Häufigkeit von Zahlen in einzelner Zelle bestimmen

Häufigkeit von Zahlen in einzelner Zelle bestimmen
15.01.2019 14:05:05
Zahlen
Hallo zusammen,
ich brauche eure Hilfe! Gibt es eine Möglichkeit die Häufigkeit (Anzahl) von Zahlen, die alle gemeinsam in einer Zelle stehen zu bestimmen?
Bspweise. in Range(G2): 5,5,6,7,7
in Range(G3): 6,6,6,7,7,5,6
In H2 sollen dann 5(2), 6(1), 7(2) stehen (die Anzahl in Klammern)
In H3 soll dann 5(1),6(5),7(2) stehen
Zahlen jeweils absteigend sortiert
Kennt jmd eine Möglichkeit wie ich das umsetzen könnte?
Vielen Dank für eure Tipps!

12
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
5(2), 6(1), 7(2) - da ist nichts absteigend ?
15.01.2019 14:18:23
WF
.
AW: entschuldigung - gemeint habe ich aufsteigend
15.01.2019 14:28:51
Anna
Hallo WF,
ich meinte natürlich nach Größe sortieren aufsteigend. Entsschuldige diese Verwirrung!
Sortierung der Zahlen (unabhängig von der Häufigkeit) nach Größe aufsteigend sortiert.
AW: entschuldigung - gemeint habe ich aufsteigend
15.01.2019 14:52:03
UweD
Hallo
so?
Modul2 
Option Explicit 
 
Sub Anzahl() 
    Dim Arr, ArrN, z1 As Integer, Sp As Integer, LR As Long 
    Dim i As Long, Kompl As String, Anz As Integer, Eintr, Neutxt As String 
     
    z1 = 2 'erste Zeile mit Daten 
    Sp = 7 'Spalte G 
     
    With Sheets("Tabelle2") 
     
        LR = .Cells(.Rows.Count, Sp).End(xlUp).Row 'letzte Zeile der Spalte 
   
        For i = z1 To LR 
            Kompl = .Cells(i, Sp) 
            If Kompl <> "" Then 
                 
                Arr = Split(Zell_sort(Kompl, ","), ",") 
                Neutxt = "" 
                For Each Eintr In Arr 
                      
                    If InStr(Neutxt, Eintr & "(") = 0 Then 
                        Anz = Len(Kompl) - Len(Replace(Kompl, Eintr, "")) 
                        Neutxt = Neutxt & Eintr & "(" & Anz & ")" & ", " 
                    End If 
                Next 
                Neutxt = Left(Neutxt, Len(Neutxt) - 2) 'letzte Komma weg 
                .Cells(i, Sp + 1) = Neutxt 
            End If 
        Next 
    End With 
End Sub 
 
'Unterprogramm zum Sortieren 
Function Zell_sort(zahlenstring As String, Optional trenner As String) As String 
    Dim Count As Integer 
    Dim Count2 As Integer 
    Dim Temp As String 
    Dim ainput 
     
    If IsMissing(trenner) Then 
        trenner = " " 
    End If 
    ainput = Split(zahlenstring, trenner) 
    If Ubound(ainput) = 0 Then 
        Zell_sort = "#?trenner?#" 
        Exit Function 
    End If 
    For Count = 0 To Ubound(ainput) 
        For Count2 = Count To Ubound(ainput) 
        If ainput(Count) > ainput(Count2) Then 
            Temp = ainput(Count) 
            ainput(Count) = ainput(Count2) 
            ainput(Count2) = Temp 
        End If 
        Next Count2 
    Next Count 
     
    Zell_sort = Join(ainput, trenner) 
End Function

LG UweD
Anzeige
AW: Dankeschön
15.01.2019 21:11:11
Anna
Hallo Uwe,
Vielen Dank! Die Ausführung funktioniert super - und nach ein bisschen Testen versteh ich jetzt auch den Code Schritt für Schritt! Danke schön
Liebe Grüße
AW: Häufigkeit von Zahlen in einzelner Zelle bestimmen
15.01.2019 14:45:46
Zahlen
Vernünftige Tabelle bauen - ohne jede Menge durch Kommas getrennten Zahlen in einer einzigen Zelle.
Wozu gibt es Spalten?
Wenn du deine Tabelle so aufbaust, wirst du später noch viel grössere Probleme damit bekommen.
AW: Häufigkeit von Zahlen
15.01.2019 21:13:28
Zahlen
Hallo onur,
vielen Dank für deine Anmerkung. Ich habe die Tabelle von einem Freund bekommen, damit wir sie zusammen ein bisschen "verständlicher" machen können. Das ist eine sehr große Excel Arbeitsmappe und so ist es für uns im ersten Schritt einfacher und verständlicher erschienen damit man damit arbeiten kann.
Liebe Grüße
Anzeige
AW: Häufigkeit von Zahlen in einzelner Zelle bestimmen
15.01.2019 15:39:11
Zahlen
HI
per VBA könnte man sich eine Funktion programmieren, die sowas erzeugt.
zumindest wenn die Sortierung nicht wichtig ist, geht's recht einfach:
folgenden Code in ein allgemeines Modul (wobei du dir auch gerne einen besseren Funktionsnamen ausdenken kannst) 
Function FürAnna(Wert As String) As String
Dim TeilTexte
Dim dicErg
Dim TT
Set dicErg = CreateObject("Scripting.Dictionary")
For Each TT In Split(Replace(Wert, " ", ""), ",")
dicErg(TT) = dicErg(TT) + 1
Next
For Each TT In dicErg.Keys
FürAnna = FürAnna & ", " & TT & "(" & dicErg(TT) & ")"
Next
FürAnna = Mid(FürAnna, 3)
End Function

und in H2 dann die Formel: =fürAnna(G2)
Gruß Daniel
Anzeige
Dankeschön
15.01.2019 21:14:48
Anna
Hallo Daniel,
vielen lieben Dank! Dein Code funktioniert super und auch schritt für schritt einzeln gut nachzuvollziehen für mich! Danke
Liebe Grüße
Formel (nur Zahlen von 1-99)
15.01.2019 16:24:56
1-99)
=WECHSELN(WECHSELN(TEXTVERKETTEN(",";;WENN(
LÄNGE(","&A1)-LÄNGE(WECHSELN(","&A1;","&ZEILE($1:$99)&",";","));ZEILE($1:$99)&"("&(
LÄNGE(","&A1)-LÄNGE(WECHSELN(","&A1;","&ZEILE($1:$99)&",";",")))/(2+KÜRZEN(LOG10(ZEILE($1:$99))))&"), ";""));", ";);",";", ")
kleine Korrektur
15.01.2019 16:48:03
lupo1
=WECHSELN(WECHSELN(TEXTVERKETTEN(",";;WENN(
LÄNGE(","&A1&",")-LÄNGE(WECHSELN(","&A1&",";","&ZEILE($1:$99)&",";","));ZEILE($1:$99)&"("&(
LÄNGE(","&A1&",")-LÄNGE(WECHSELN(","&A1&",";","&ZEILE($1:$99)&",";",")))/(2+KÜRZEN(LOG10(ZEILE($1:$99))))&"), ";""));", ";);",";", ")
(die letzte Zahl wurde ignoriert, wenn ihr kein Komma mehr folgte; ist jetzt nicht mehr nötig)
Anzeige
weiterer Fehler
15.01.2019 16:51:50
lupo1
Ich muss nochmal über die Länge der Einzel-Einträge schauen; statt 5(4) zeigt er nur 5(2); liegt wohl an der Einstelligkeit. Das LOG10 rechnet noch nicht so, wie ich will.
AW: weiterer Fehler
15.01.2019 21:09:26
Anna
Hallo lupo1,
super Danke für deine Mühen. Mit dem habe ich mich auch abgekämpft :)
Liebe Grüße

301 Forumthreads zu ähnlichen Themen

Anzahl unterschiedl. Werte in Spalte zählen
Jakob

Hallo,
ein ähnliches Problem wurde hier im Forum schon einmal diskutiert. (https://www.herber.de/forum/archiv/632to636/t635773.htm)
Meine Problem:
Wie kann ich die Anzahl unterschiedlicher Einträge/Werte einer Spalte erhalten, ohne dass diese vorgegeben werden ( also ohne die Verwe...
14.08.2008 18:16:11
Thread-ID: 1001934
2 Beiträge
Anzeige
Anzahl gleicher Elemente einer Spalte
Pascal

Hallo,
wie kann ich die Anzahl der gleichen elemente in einer Spalte ermitteln?
die Tabelle sieht etwa so aus:
1
3
0
1
1
2
0
1
das ergebis soll dieses sein:
0: 2
1: 4
2: 1
3: 1
03.11.2008 08:35:37
Thread-ID: 1021264
5 Beiträge
Zahlen suchen in zwei spalten
Timo

Hallo,
ich habe ein kleines, wahrscheinlich sehr einfaches Problem.
Ich habe sowohl eine Spalte A als auch Spalte B, wo immer sechsstellige Zahlen drin stehen. Jetzt würde ich gern in Spalte C überprüfen lassen, ob die jeweilige Zahl, die in Spalte B steht, auch irgendwo in Spalte A v...
17.12.2008 08:51:00
Thread-ID: 1033514
4 Beiträge
Anzeige
Zahlen in Extra spalte separieren
Dirk

Hallo zusammen,
ich habe eine Liste von Adressen bei der die Hausnummer immer hinter dem Strassenamen steht. Und zwar in der selben Spalte.
Z.B. Hauptstr. 12
Kirchweg 23
u.s.w
Ich brauche die Hausnummern aber in einer extra Spalte. Hat jemand eine Idee?
Nach dem Strassen...
12.01.2009 16:55:27
Thread-ID: 1038937
8 Beiträge
Zahlen in Spalte umpolen
andi

Hallo zusammen,
ich möchte einen Fragebogen in Excel auswerten, bei dem einige Items umgepolt sind.
So sollte ich bei einigen Items die Zahlenwerte "vertauschen
1 wird zu 5
2 wird zu 4
3 wird zu 3
4 wird zu 2
5 wird zu 1
wie kann ich die Zahlen
a) in der g...
05.02.2009 08:49:55
Thread-ID: 1047287
2 Beiträge
Ganzzahlen in Spalte zählen
MBorn

bonjour,
weiß jemand wie man mit einer Formel die Anzahl aller Ganzzahlen (Zahlen, die 0 hinter Komma haben)
in einer Spalte zählen kann?
Danke,
Born
02.04.2009 13:06:10
Thread-ID: 1066304
4 Beiträge
Wort suchen und alle gleichen zusammennehmen
blaze

Hallo zusammen
Ich habe folgendes zu lösen und komme nicht weiter:
In einem neuen Tabellenblatt sollen alle vorkommenden Worte (z.B. Flasche) untereinander angeordnet werden.
Das Tabellenblatt 1 sieht z.b so aus:
A | Q | R | S |
Flasche bla1 bla2 bla3
Glas bla4...
04.05.2009 10:05:40
Thread-ID: 1072657
6 Beiträge
Spaltenbuchstaben in zahlen wandeln
Tobiax

Guten Morgen!
Ich gebe die var Spalte als zahl vor und möchte dann in die z.b. 25.Spalte (das wäre dann Y) gehen und dort in die Zeile 3 auswählen
Range( Spalte & "3").Select klappt ja nicht.
Wie kann ich das konvertieren ?
Toby...
13.05.2009 08:21:56
Thread-ID: 1074706
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
1
4
4
3
3
7
1
3
5
2
4
6
11
1
7
2
3
2
6
8
8
8
4
7
11