|
Hallo zusammen,
ich bin absolter VBA Neuling und würde gerne ein kleines Programm schreiben, welches folgendes tut:
Das ist die Ursprungstabelle (Tabellenblatt "Calculation")
Das ist die Zieltabelle (Tabellenblatt "Report")
Ich möchte nun, dass die Zellen im Tabellenblatt "Report" gefüllt werden. Das heißt für jeden Status "Open" oder "Done" soll die Summe der jeweilgen Spalte aus der Ursprungstabelle "Betrag_1" bzw "Betrag_2" gebildet und ausgewiesen werden.
Was ich bisher hab ist folgendes bzw. eigentlich nichts:
Sub Mini_Report()
With Sheets("Report")
.Range(.Cells(2, 2), .Cells(3, 3)).ClearContents
End With
'letzte Zeile im aktiven Tabellenblatt, Spalte 1
letzte_Zeile = ActiveSheet.Cells (Rows.Count, 1) .End (xlUp) .Row
'Spalten, die kopiert werden sollen
Zaehler = Array(2, 3)
Ziel_Zeile = 2
Ziel_Spalte = 2
Status_1 = "Open"
Status_2 = "Done"
For Each Spalte In Zahler
For Zeile_Calculation = 6 To letzte_Zeile
If Worksheets("Calculation").Cells(Zeile_Calculation, 1) = Status_1 Then
Worksheets("Report").Cells(Ziel_Zeile, Ziel_Spalte) = Worksheets("Calculation").WorksheetFunction.Sum(Range)
End Sub
Wie ihr euch denken könnt, funktioniert das Ganze so noch nicht wirklich. Ich freue mich sehr, wenn mir jemand bei der Lösung des Problems behilflich sein könnte =)
Danke und liebe Grüße,
Annie
|