Problem mit Funktion

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

Hochgeladene Bilder können zwar als solche in Excel importiert werden, sind jedoch bei der Lösung von Problemen nicht sehr hilfreich, da man die eigentlichen Daten nicht ohne große und zeitraubende Umwege direkt in die Tabelle übertragen kann. Eine hochgeladene Arbeitsmappe bzw. ein geposteter Tabellenausschnitt dagegen, erhöhen die Wahrscheinlichkeit, dass Du eine Lösung für Dein Problem erhältst.
Erstelle folglich bitte eine Demomappe, aus der deine Aufgabenstellung klar erkennbar ist und lade diese Mappe mit einem aussagekräftigen Dateinamen hoch.
Der Name einer hochgeladenen Mappe wird im Beitrag automatisch angezeigt, sodass es bei Verwendung von aussagekräftigen Namen leichter fällt, sie später im Ablageordner wiederzufinden und sie gedanklich einem bestimmten Thema zuzuordnen. Namen wie Test, Mappe, Beispiel usw. sind so allgemein, dass eine Zuordnung zu einem Thema unmöglich gemacht wird.
Wenn du an Stelle einer Demomappe deine Originalmappe hochladen willst, diese aber sensible Daten enthält, solltest du diese Daten anonymisieren bzw. pseudonymisieren.
Falls Du den Download des Forums nicht benutzen möchtest beachte bitte: von unsicheren Servern file-upload lade ich keine Datei herunter (lt. Einschätzung meines

Option Explicit Public Sub Zusammenfassen() Dim Dic1 As Object ' As Dictionary Dim Dic2 As Object ' As Dictionary Dim vTemp As Variant Dim lTemp As Long Set Dic1 = CreateObject("Scripting.Dictionary") Set Dic2 = CreateObject("Scripting.Dictionary") With ThisWorkbook.Worksheets("Tabelle2") ' den Tabellenblattnamen ggf. anpassen! vTemp = .Range("A2:C" & .Cells(.Rows.Count, 1).End(xlUp).Row) ' ggf. anpassen! End With For lTemp = 1 To UBound(vTemp) Dic1(vTemp(lTemp, 1)) = Dic1(vTemp(lTemp, 1)) + vTemp(lTemp, 2) Dic2(vTemp(lTemp, 1)) = Dic2(vTemp(lTemp, 1)) + vTemp(lTemp, 3) Next lTemp ' Ausgeben. Zielzellen musst du anpassen With Sheets("Tabelle2") .Range("E1").Resize(Dic1.Count) = WorksheetFunction.Transpose(Dic1.keys) .Range("F1").Resize(Dic1.Count) = WorksheetFunction.Transpose(Dic1.items) .Range("G1").Resize(Dic1.Count) = WorksheetFunction.Transpose(Dic2.items) End With End Sub

Hallo,
hier eine Formellösung mit Hilfsspalte.
Spalte D ist die Hilfsspalte (die kannst du ja ausblenden).
In die Zelle D1 schreibst du eine 1
In die Zelle D2 die Formel: =(ZÄHLENWENN($A$1:A2;A2)=1)+MAX(D$1:D1)
Die Formel so weit nach unten ziehen wie du es brauchst.
In die Zelle E2 (E1 habe ich für eine Überschrift frei gelassen) die Formel: =WENN(ZEILE($A2)>MAX($B$2:$B$100);"";INDEX($A$2:$A$100;VERGLEICH(ZEILE($A2);$B$2:$B$100;0)))
Formel so weit nach unten ziehen wie du es brauchst. Die Formel listet dir die Einträge aus Spalte A auf, ohne Doppler.
In Zelle F2 (F1 bleibt frei für eine Überschrift) die Formel:
=WENN($E2="";"";SUMMENPRODUKT(($A$2:$A$100=$E2)*($B$2:$B$100)))
Formel so weit nach unten ziehen wie du es brauchst. Die Formel bildet die entsprechende Summe aus Spalte B.
Ich denke mal für die Summe aus Spalte C bekommst du die Formel selbst angepasst.
Gruß Werner

Beliebteste Forumthreads (12 Monate)

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

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

12
Beiträge zum Forumthread

Beiträge zu diesem Forumthread