Hallo zusammen,

ich habe mit meinen begrenzten VBA-Fähigkeiten einen Code zur Abfrage einiger Parameter aus einer anderen Tabelle (selbes Arbeitsblatt) angefertigt. Allerdings bringt der Buttenklick nicht das gewünschte Ergebnis. Es wird zwar etwas ausgegeben, leider jedoch nur eine Anzahl von 0 und eine Summe von 0, obwohl es entsprechende Datensätze gibt.

Kann mir hierzu jemand weiterhelfen, bzw. erläutern wo der Fehler liegen könnte?

Hier der zugehörige Code:

Sub Schaltfläche1_Klicken()

Dim i As Integer
Dim Jahr As String
Dim Monat As String
Dim Zeile1 As Integer
Dim Zeile2 As Integer
Dim ZeileErgebnis As Integer

Dim AnzPosEröffnet As Integer 'Anzahl eröffneter Optionsverkäufe
Dim SumPosEröffnet As Double 'Summe theoretischer Erlös aus eröffneten Optionsverkäufen
Dim AnzPosGeschlossen As Integer 'Anzahl geschlossener Optionsverkäufe
Dim SumPosGeschlossen As Double 'Summe Erlös aus geschlossenen Optionsverkäufen

Jahr = Cells(4, "D") 'Jahr das im Tradejournal überprüft werden soll
Monat = Cells(5, "D") 'Monat der im Tradejournal überprüft werden soll
Zeile1 = Cells(6, "D") 'erste Zeile die im Tradejournal überprüft werden soll
Zeile2 = Cells(7, "D") 'letzte Zeile die im Tradejournal überprüft werden soll

AnzPosEröffnet = 0
SumPosEröffnet = 0
AnzPosGeschlossen = 0
SumPosGeschlossen = 0
ZeileErgebnis = Cells(8, "D")

For i = Zeile1 To Zeile2

    
    If Sheets("Tradejournal").Cells(i, "C") = Jahr And Sheets("Tradejournal").Cells(i, "D") = Monat Then 'Abfrage ob Jahr und Monat stimmen
    
        If Sheets("Tradejournal").Cells(i, "F") = "C-Verkauf-O" Or Sheets("Tradejournal").Cells(i, "F") = "P-Verkauf-O" Then 'Abfrage ob eine Optionsposition verkauft wurde
        
            AnzPosEröffnet = AnzPosEröffnet + 1
            SumPosEröffnet = SumPosEröffnet + Sheets("Tradejournal").Cells(i, "O")
            
        End If
    
        If Sheets("Tradejournal").Cells(i + 1, "F") = "C-Verkauf-C" Or Sheets("Tradejournal").Cells(i + 1, "F") = "P-Verkauf-C" Or Sheets("Tradejournal").Cells(i + 1, "F") = "C-Verfall" Or Sheets("Tradejournal").Cells(i + 1, "F") = "P-Verfall" Then 'Abfrage ob eine verkaufte Position geschlossen wurde
        
            AnzPosGeschlossen = AnzPosGeschlossen + 1
            SumPosGeschlossen = SumPosGeschlossen + Sheets("Tradejournal").Cells(i + 1, "P")
        
        End If
    
    End If
    
Next

Cells(ZeileErgebnis, "A") = Jahr
Cells(ZeileErgebnis, "B") = Monat
Cells(ZeileErgebnis, "C") = AnzPosEröffnet
Cells(ZeileErgebnis, "D") = SumPosEröffnet
Cells(ZeileErgebnis, "F") = AnzPosGeschlossen
Cells(ZeileErgebnis, "G") = SumPosGeschlossen

End Sub