Thema Datum  Von Nutzer Rating
Antwort
Rot Abfrage aus anderer Tabelle
06.01.2022 19:33:34 Andi
NotSolved
07.01.2022 01:57:31 ralf_b
NotSolved

Ansicht des Beitrags:
Von:
Andi
Datum:
06.01.2022 19:33:34
Views:
76
Rating: Antwort:
  Ja
Thema:
Abfrage aus anderer Tabelle

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

 

 


Ihre Antwort
  • Bitte beschreiben Sie Ihr Problem möglichst ausführlich. (Wichtige Info z.B.: Office Version, Betriebssystem, Wo genau kommen Sie nicht weiter)
  • Bitte helfen Sie ebenfalls wenn Ihnen geholfen werden konnte und markieren Sie Ihre Anfrage als erledigt (Klick auf Häckchen)
  • Bei Crossposting, entsprechende Links auf andere Forenbeiträge beifügen / nachtragen
  • Codeschnipsel am besten über den Code-Button im Text-Editor einfügen
  • Die Angabe der Emailadresse ist freiwillig und wird nur verwendet, um Sie bei Antworten auf Ihren Beitrag zu benachrichtigen
Thema: Name: Email:

 
 

  • Bitte beschreiben Sie Ihr Problem möglichst ausführlich. (Wichtige Info z.B.: Office Version, Betriebssystem, Wo genau kommen Sie nicht weiter)
  • Bitte helfen Sie ebenfalls wenn Ihnen geholfen werden konnte und markieren Sie Ihre Anfrage als erledigt (Klick auf Häckchen)
  • Bei Crossposting, entsprechende Links auf andere Forenbeiträge beifügen / nachtragen
  • Codeschnipsel am besten über den Code-Button im Text-Editor einfügen
  • Die Angabe der Emailadresse ist freiwillig und wird nur verwendet, um Sie bei Antworten auf Ihren Beitrag zu benachrichtigen

Thema Datum  Von Nutzer Rating
Antwort
Rot Abfrage aus anderer Tabelle
06.01.2022 19:33:34 Andi
NotSolved
07.01.2022 01:57:31 ralf_b
NotSolved