Hallo Gast,
natürlich prüfe ich bei einer solchen Aufgabe das Ergebnis.
Für mich sind alle werte aus Spalte A keine PLZ, wenn sie nicht in der Liste aller PLZ zu finden sind.
Wenn das anders ist, dann soll der TE es mitteilen.
Die Prüfung erfolgt mit einer einfache Funktion:
=ZÄHLENWENN('PLZ DE komplett'!$A$2:$A$14957;A3)Bis auf die Verteilung ist die Aufgabe mittels einer Pivotttabelle in zwei Minuten erledigt.
Die Verteilung ist danach manuell mit Copy Paste und eine Formel auch schnell getan.
| Arbeitsblatt mit dem Namen 'Tabelle1' |
| | H | I | J | K |
| 2 | | | Daten | |
| 3 | ist | PLZ | Summe von Umsatz € | Anzahl von ist |
| 4 | FALSCH | 26001 | 10000 | 1 |
| 5 | | 26009 | 10001 | 1 |
| 6 | | 26019 | 20022 | 2 |
| 7 | | 26021 | 20024 | 2 |
| 8 | | 26027 | 20026 | 2 |
| 9 | | 26033 | 20028 | 2 |
| 10 | | 26103 | 10008 | 1 |
| 11 | | 26105 | 10010 | 1 |
| 12 | | 26108 | 10012 | 1 |
| 13 | | 26109 | 10013 | 1 |
| 14 | | 26112 | 10014 | 1 |
| 15 | | 26113 | 10016 | 1 |
| 16 | | 26115 | 10017 | 1 |
| 17 | | 226123 | 10023 | 1 |
| 18 | | 261036 | 10009 | 1 |
| 19 | | 261125 | 10015 | 1 |
| 20 | | 261258 | 10025 | 1 |
| 21 | | 261316 | 10029 | 1 |
| 22 | | 26016+ | 10002 | 1 |
| 23 | | 2a037 | 10007 | 1 |
| 24 | | BERLIN | 10018 | 1 |
| 25 | | XXX | 10011 | 1 |
| 26 | FALSCH Ergebnis | | 260330 | 26 |
| 27 | WAHR | 26125 | 10024 | 1 |
| 28 | | 26127 | 10026 | 1 |
| 29 | | 26129 | 10027 | 1 |
| 30 | | 26131 | 10028 | 1 |
| 31 | WAHR Ergebnis | | 40105 | 4 |
| 32 | Gesamtergebnis | | 300435 | 30 |
| Diese Tabelle wurde mit Tab2Html (v2.4.1) erstellt. ©Gerd alias Bamberg |
Und diesen Weg gehe ich bei solchen Aufgaben meistens um meine Ergebnisse zu prüfen.
Filter der Tabelle in Kombination mit Formeln können auch sehr Hilfreich sein
Und noch eine allgemeine Bemerkung:
Warum macht ihr euch so viele Gedanken darüber, ob ein Thread lang werden wird.
Solange es weiterführende Einlassungen sind, spielt die Länge doch gar keine Rolle.
@
dennis1793
Verstehe ich Dich richtig, dass zur Berechnung der Summen die Werte aus Spalte D genutzt werden sollen?
Wenn ja, dann ist die Änderung sehr einfach.
Schau und vergleiche, dann siehst Du wo ich etwas geändert habe:
Code:
Option Explicit
Sub aufsummieren_und_verteilen()
Dim i As Long, lngZSumme As Long, lngZPlz As Long
Dim dblS As Double
Dim strgBereich As String
Dim dKey As String
Dim D As Object
Set D = CreateObject("Scripting.Dictionary")
Application.ScreenUpdating = False
With Sheets("PLZ DE komplett")
lngZPlz = .Cells(Rows.Count, 1).End(xlUp).Row
strgBereich = "'PLZ DE komplett'!" & .Range("A2:A" & lngZPlz).Address
End With
With Sheets("Tabelle1")
lngZSumme = .Cells(Rows.Count, 1).End(xlUp).Row
.Range("G3:G" & lngZSumme).FormulaLocal = "=Zählenwenn(" & strgBereich & ";A3)" 'Hilfsspalte G
For i = 3 To lngZSumme
If .Cells(i, 7) > 0 Then 'Hilfsspalte G (7) wird geprüft
dKey = .Cells(i, 1)
D(dKey) = D(dKey) + .Cells(i, 4) 'Summen aus Spalte D (4)
Else
dblS = dblS + .Cells(i, 4) 'Summen aus Spalte D (4)
End If
Next i
.Range("G3:G" & lngZSumme).ClearContents 'inhalt Hilfsspalte G wird wieder gelöscht
End With
'Ausgabe
With Sheets("Tabelle überarbeitet")
.Cells.ClearContents
.Range("A1:C1") = Array("PLZ", "Summe Umsatz", "Kummilierte Summe")
.Range("A2:A" & D.Count + 1) = Application.Transpose(D.keys)
.Range("B2:B" & D.Count + 1) = Application.Transpose(D.items)
.Range("C2:C" & D.Count + 1).FormulaLocal = "=B2+Runden(" & dblS / D.Count & ";2)"
.Range("C2:C" & D.Count + 1).Value = .Range("C2:C" & D.Count + 1).Value
End With
Application.ScreenUpdating = True
Set D = Nothing
End Sub
Wo man Anpassungen machen musste, erkennst Du an den Kommentaren hinter einzelnen Codezeilen.
