Hallo, bin VBA Newbie und komme nicht mehr weiter...
Habe eine Tabelle mit Materialnummern und Einkaufszahelen fuer verschiedene Quartale. Nun moechte ich fuer jede Materialnummer (nicht fortlaufend, sondern mit Spruengen dazwischen) die Einkaufszahlen fuer die Quartale addiert ausgeben. Die Tabelle sieht so aus, Spalte A sind die Materialnummern, Spalte B die Quartale und Spalte C die Einkaufszahlen. Mit meinem kleinen Programm werden nun die addierten Werte in den Zeilen ausgegeben, in j ausgegeben in denen j der Materialnummer entspricht. Mein Ziel, die Werte fortlaufend von Zeilen 2 bis x auszugeben nicht wie hier beispielsweise 42 und 47.
Hier mein Code:
Private Sub CommandButton1_Click()
Dim i As Integer
Dim j As Integer
For j = 1 To 100
For i = 1 To 30
If Cells(1 + i, 1) = (50000000 + j) And Cells(1 + i, 2).Value = 1.201 Or Cells(1 + i, 1) = (50000000 + j) And Cells(1 + i, 2).Value = 2.201 Or Cells(1 + i, 1) = (50000000 + j) And Cells(1 + i, 2).Value = 3.201 Then
summe_a = summe_a + Cells(1 + i, 3).Value
Cells(1 + j, 6).Value = summe_a
Cells(1 + j, 5).Value = Cells(1 + i, 1).Value
ElseIf Cells(1 + i, 1) = (50000000 + j) And Cells(1 + i, 2).Value = 4.201 Or Cells(1 + i, 1) = (50000000 + j) And Cells(1 + i, 2).Value = 5.201 Or Cells(1 + i, 1) = (50000000 + j) And Cells(1 + i, 2).Value = 6.201 Then
summe_b = summe_b + Cells(1 + i, 3).Value
Cells(1 + j, 7).Value = summe_b
Cells(1 + j, 5).Value = Cells(1 + i, 1).Value
ElseIf Cells(1 + i, 1) = (50000000 + j) And Cells(1 + i, 2).Value = 7.201 Or Cells(1 + i, 1) = (50000000 + j) And Cells(1 + i, 2).Value = 8.201 Or Cells(1 + i, 1) = (50000000 + j) And Cells(1 + i, 2).Value = 9.201 Then
summe_c = summe_c + Cells(1 + i, 3).Value
Cells(1 + j, 8).Value = summe_c
Cells(1 + j, 5).Value = Cells(1 + i, 1).Value
ElseIf Cells(1 + i, 1) = (50000000 + j) And Cells(1 + i, 2).Value = 10.201 Or Cells(1 + i, 1) = (50000000 + j) And Cells(1 + i, 2).Value = 11.201 Or Cells(1 + i, 1) = (50000000 + j) And Cells(1 + i, 2).Value = 12.201 Then
summe_d = summe_d + Cells(1 + i, 3).Value
Cells(1 + j, 9).Value = summe_d
Cells(1 + j, 5).Value = Cells(1 + i, 1).Value
End If
Next i
Next j
summe_a = 0
summe_b = 0
summe_c = 0
summe_d = 0
End Sub
Vielen Dank!
|