User-Form: Eingabewerte addieren und fortlaufende Nummerierung

[Arious87]

Hallo zusammen,
 
ich habe folgende Ausgangssituation und dazu zwei Fragen:
In einem User-Form gebe ich über Text-Boxen 6 Zahlenwerte in mein Tabellenblatt aus.
Bei einer neuen Eingabe wird automatisch die nächste freie Zeile genommen.
Dazu nutze ich den folgenden Quelltext:
 
Private Sub cmdEingabe_Click()
Dim intErsteLeereZeile As Long
 
'Eingabe der Werte A-F
 
    intErsteLeereZeile = ActiveSheet.Cells(Rows.Count, 2).End(xlUp).Row + 1
    ActiveSheet.Cells(intErsteLeereZeile, 6).Value = CDbl(Me.txtA.Value)
    ActiveSheet.Cells(intErsteLeereZeile, 7).Value = CDbl(Me.txtB.Value)
    ActiveSheet.Cells(intErsteLeereZeile, 8).Value = CDbl(Me.txtC.Value)
    ActiveSheet.Cells(intErsteLeereZeile, 9).Value = CDbl(Me.txtD.Value)
    ActiveSheet.Cells(intErsteLeereZeile, 10).Value = CDbl(Me.txtE.Value)
    ActiveSheet.Cells(intErsteLeereZeile, 11).Value = CDbl(Me.txtF.Value)
 
Meine erste Frage ist wie bekomme ich zwei eingegebenen Werte
direkt addiert und separat in einer Spalte auszugeben.
Z.B. Ich addiere Wert A und B und möchte, dass dann direkt in Spalte 13 ausgeben wird.
 
Die zweite Frage ist, wie bekomme ich eine automatische fortlaufende Nummerierung bei dem Ausfüllen jeder neuen Zeile dazu?
 
Vielen Dank!

[Kuwer]

Hallo,

z.B. so:

    ActiveSheet.Cells(intErsteLeereZeile, 2).Value = Application.Max(ActiveSheet.Columns(2)) + 1

   ActiveSheet.Cells(intErsteLeereZeile, 13).Value = CDbl(Me.txtA.Value) + CDbl(Me.txtB.Value)

Gruß Uwe