Ich hab da folgendes kniffliges Problem:
Es geht um Häuser und Wohnungen. Ein Haus hat eine Adresse, ein Haus hat mehrere Wohnungen. Jede Wohnung hat eine Fläche. Gesucht ist die Gesamt(wohn)fläche eines Hauses.
gegeben ist eine Spalte mit Straßennamen+Hausnummer (mit Duplikaten, notwendig, weil daneben zu jeder Wohnung eine Fläche steht.
Der Ansatz:
Alle Flächen, die eine gleiche Adresse daneben stehen haben zusammenzählen; wenn sich die Adresse ändert, beginne von vorne mit dem zusammenzählen.
Soweit so gut, alles in code umgewandelt, funktioniert auch gut bis ca zur 4. Gruppe, danach verrechnet sich Excel immer ein bisschen.
WARUM???
BSP:
Strasse Fläche Ergebnis
LANDWIEDSTR 25 84,50
LANDWIEDSTR 25 61,70
LANDWIEDSTR 25 91,90
LANDWIEDSTR 25 90,00 314,40 statt 328,10
Code:
Sub flaeche_summieren()
'Achtung Spalten vorher festlegen!
Dim count, sum As Double
Dim strasse, flaeche, ergebnis, j As Integer
'Spalten festlegen!!!
strasse = 2
flaeche = 3
ergebnis = 4
count = 0
sum = 0
'Zeilenanzahl festlegen:
For j = 2 To 40 Step 1
count = Cells(j, flaeche)
'wenn sich die Strassennummer aendert:
If (Cells(j, strasse).Value <> _
Cells((j - 1), strasse).Value) Then
sum = sum + count
'Schreibe Summe
Cells(j - 1, ergebnis).Value = sum
sum = 0
count = 0
'Sonst zähle Wert zur Summe dazu
Else: sum = sum + count
End If
Next j
End Sub
Der Fehler liegt nicht etwa darin, dass ein Wert zuviel oder zuwenig addiert wurde, nein! Es handelt sich immer um kleine Abweichungen in der Größenordnung 5 bis 15
Für eine Hilfe wäre ich dankbar!
Gruss Matthias