Monatszahlen summieren

  • VB6

Es gibt 1 Antwort in diesem Thema. Der letzte Beitrag () ist von Alex2000.

    Monatszahlen summieren

    Hallöchen,

    ich habe Excel 2002.

    Ich habe ein Programm erhalten welches noch nicht ganz auf meine Bedürfnisse abgestimmt ist. Ich habe schon ein paar Sachen verändert, aber hier komm ich nicht weiter. Es ist so: Bei dem folgenden Code werden die Zahlen pro Monat in die dafür vorgesehenen Zellen eingefügt. Allerdings bräuchte ich immer die Summe vom Januar bis zum jeweiligen Monat, d.h. im Januar brauche ich nur die Zahl vom Januar, im Februar die Zahl vom Januar plus Februar usw. Jetzt habe ich mir überlegt dass da eine Schleife rein muss, bin mir aber nicht im klaren wie das Aussehen soll. Das Problem ist nämlich dass nicht jeder Monat eine Zahl hat, das bedeutet das Programm muss die letzte eingetragene Zahl suchen, allerdings ist die Spalte nicht unbegränzt nach oben offen, da dort schon die anderen Tabellen anfangen. Zwischen den Tabellen gibt es immer eine grauunterlegte Zeile, kann man dies als Stoppsignal nehmen? Wenn ja, wie stell ich das an?

    Damit es euch ein wenig verständlicher wird ist unten der Code.

    Danke schon mal im vorraus

    Visual Basic-Quellcode

    1. Sub AddKstToJahresdiagramm(ByVal kst As Integer, ByVal wert As Integer, ByVal month As Integer)
    2. ' Finden des Projekts zu der Kostenstelle
    3. Dim projektName As String
    5. If wert = 0 Then
    6. Exit Sub
    7. End If
    9. With Tabelle3
    10. ' finde das projekt zu der kst
    11. Dim currZeile As Integer
    12. currZeile = 7
    13. Do While (.Cells(currZeile, 4).Value <> "" Or .Cells(currZeile, 5).Value <> "" Or .Cells(currZeile, 6).Value <> "")
    14. If .Cells(currZeile, 4).Value = kst Then
    15. projektName = .Cells(currZeile, 8).Value
    16. Exit Do
    17. End If
    18. currZeile = currZeile + 1
    19. Loop
    21. If projektName = "" Then
    22. MsgBox "Kein Projektname für Kostenstelle " & kst & " gefunden"
    23. Exit Sub
    24. End If
    26. ' Finden der Tabelle für dieses Projekt in der Jahresübersicht
    27. currZeile = jahresdiagrammZeile
    28. Do While (.Cells(currZeile, 1).Value <> "ENDE DER TABELLE")
    29. If .Cells(currZeile, 1).Value = projektName Then
    30. ' Suche den passenden monat
    31. Dim i As Integer
    33. For i = 1 To 24
    34. If .Cells(currZeile + i, 1).Value = month Then
    35. ' Finden der Kostenstelle-Spalte
    36. Dim j As Integer
    37. j = 1
    38. Do While (.Cells(jahresdiagrammZeile, j).Value <> "")
    39. If .Cells(jahresdiagrammZeile, j).Value = kst Then
    40. ' Gibt es bereits einen Wert für diese Konstelation?
    41. Dim neuerWert As Integer
    42. If .Cells(currZeile + i, j).Value <> "" Then
    43. neuerWert = .Cells(currZeile + i, j).Value + wert
    44. Else
    45. neuerWert = wert
    46. End If
    48. ' den neuen Wert eintragen
    49. .Cells(currZeile + i, j).Value = neuerWert
    50. End If
    51. j = j + 1
    52. Loop
    53. End If
    54. Next i
    55. End If
    56. currZeile = currZeile + 1
    57. Loop
    59. End With
    60. End Sub

Facebook
Telefonspende