Guten Abend,

ich bin absoluter VBA Anfänger, auch meine Excel Kenntnisse habe ich mir selbst, bzw durchs Internet erarbeitet. Deshalb kann es sein das ich euch mit meinem Problem langweile, tut mir Leid falls das so ist, aber ich konnte bisher einfach keine Hilfe finden. Mir stellt sich folgendes Problem:

Ich habe nach einem Tutorial eine Eingabemaske mit verschieden Textfeldern erstellt, die ich dann per Knopfdruck in meine Tabelle einfügen kann,. Ich habe es auch geschaft das die Werte miteinander verrechnet werden. Nur bei dem letzten Wert den ich errechnen muss stellt sich mir das Problem. Um dies zu erleutern Zeige ich euch erstmal was ich bisher geschrieben habe:

Private Sub cmdMonsterPlatzieren_Click()

'Platziert Wette und schließt frmNeuerVerdoppler

Dim intELZ As Long

    intELZ = ActiveSheet.Cells(Rows.Count, 3).End(xlUp).Row + 1
    
    ActiveSheet.Cells(intELZ, 3).Value = Me.txtDatumDop.Value
    ActiveSheet.Cells(intELZ, 4).Value = Me.txtQuoteDop.Value
    ActiveSheet.Cells(intELZ, 5).Value = Me.txtEinsatzDop.Value
    ActiveSheet.Cells(intELZ, 6).Value = Me.txtErgebnisDop.Value

' Berechnung des Brutto Gewinns

    BruGewinn = Me.txtQuoteDop.Value * Me.txtEinsatzDop.Value * Me.txtErgebnisDop.Value
    ActiveSheet.Cells(intELZ, 7).Value = BruGewinn
    
' Berechnung des Netto Gewinns
    ActiveSheet.Cells(intELZ, 8).Value = BruGewinn - Me.txtEinsatzDop.Value

Unload Me
End Sub

ELZ steht hier für Erste leere Zelle

nun möchte ich das Excel bzw VBA in der 9. Zelle den Wert aus der Zelle darüber, mit dem Wert aus 8. Zelle addiert. Ich habe schon herausgefunden wie ich die Zelle erreiche. Nämlich per:

Dim intEBZ As Long

    intEBZ = ActiveSheet.Cells(Rows.Count, 9).End(xlUp).Row 

wobei EBZ für erste beschriftete Zelle steht. Der Befehl für Zelle 9 müsste also irgendwie so heißen:

' Addieren der Gewinne
    ActiveSheet.Cells(intELZ, 9).Value = BruGewinn - Me.txtEinsatzDop.Value + x

Wobei X durch den Wert aus intEBZ ersetzen muss.

Wahrscheinlich ist die Lösung meines Problem Grundwissen von VBA, dies habe ich aber leider nicht. Ich hoffe ihr werdet mir trotzdem weiter helfen.

Gruß Markus