In einer Tabelle Spalten mit mehreren Schlagworten zum gleichen Thema sortieren und auswerten

Hallo Delilah,

ein Tabellenblatt hat 17.179.869.184 Zellen und du machst dir das Leben schwer, indem du mehrere Werte in eine Zelle bringst. Folgende Prozedur schreibt dir die Schlagworte als Unikate mit der Anzahl ihres Vorkommens in D1:E?:

Sub AnzWort()

Dim myRng As Range

Dim LRow As Long, i As Long, n As Long

Dim varData As Variant, varTmp As Variant, varOut() As Variant

Dim myDic As Object

Dim strData As String

With ActiveSheet

   LRow = .Cells(.Rows.Count, 1).End(xlUp).Row

   strData = Application.TextJoin(", ", 1, Range("B2:B" & LRow))

   varData = Split(strData, ", ")

   Set myDic = CreateObject("Scripting.Dictionary")

   For i = LBound(varData) To UBound(varData)

      myDic(varData(i)) = varData(i)

   Next

   varTmp = myDic.items

   ReDim varOut(1 To UBound(varTmp) + 1, 1 To 2)

   For i = LBound(varTmp) To UBound(varTmp)

      varOut(i + 1, 1) = varTmp(i)

      varOut(i + 1, 2) = Application.CountIf(.Range("B2:B" & LRow), "*" & varTmp(i) & "*")

   Next

   .Range("D1").Resize(UBound(varOut), 2) = varOut

End With

End Sub

Filtern kannst du, indem du den Textfilter verwendest mit "Enthält", "Beginnt mit" oder, oder.

Claus

Ich habe eine Tabelle wo Werte in den Spalten A bis D eingetragen sind. Jeder Wert einer Zeile gehört zueinander, also wenn ich die Daten nach einer der 4 Spalten sortiere, werden die anderen Spalten dementsprechend mitsortiert.
In Spalte F habe ich jetzt eine Formel wie =Summe(D211). Wenn ich jetzt die Tabelle nach einer anderen Spalte sortiere, sind nicht mehr die selben Werte auf D2 bis D11, also ändert sich mein Ergebnis in Spalte F. Dies möchte ich verhindern.

Ich habe diese Liste in Spalte A

Werte

2

4

6

1

3

5

Jetzt habe ich die Formel =SUM(A5:A7) irgendwo und wenn ich nun die Liste sortiere dann müsste sich die Formel zu =A2+A4+A6 ändern damit das gleiche raus kommt...

Ich glaub es ist klar wo da das Problem sitzt, oder? ;-)

Lies Dir mal die Hilfe zu TEILERGEBNIS durch.

Andreas.

Hallo Olli,

muss denn diese Tabelle so kompliziert aufgebaut sein? Ich würde eine normale Tabelle machen und den neuen Datensatz unten anhängen und nach der Eingabe nach Fehler aufsteigend und Datum absteigend sortieren. Damit stehen die Fehler zusammen und sind wie
gewünscht sortiert. Der Tabelle würde ich einen dynamischen Bereichsnamen vergeben und diesen Bereichsnamen als Quelle für eine Pivot-Tabelle nehmen und die Fehler damit auswerten. Das Sortieren nach Eingabe könnte man auch noch mit VBA automatisieren, damit
es nicht vergessen wird.

Mit freundlichen Grüßen

Hallo Wolfgang,

selektiere nur eine Zelle deiner Tabelle oder die komplette Tabelle => Daten => Sortieren => Sortieren nach Spalte C.

Claus

Hallo,



bringe die Daten zusammen in eine Tabelle. Kopiere die Zeiten untereinander in Spalte A und sortiere nach Zeit. Füge danach die Werte für die erste Reihe bei den entsprechenden Zeiten in Spalte B. Das Gleiche machst du dann für die zweite Reihe in Spalte
C. Je nachdem wie deine Daten aufgebaut sind, kannst du diese mit SVERWEIS aus den Ursprungstabellen auslesen. Erstelle dann mit dieser Tabelle dein Diagramm.



Mit freundlichen Grüßen

Claus