Clever-Excel-Forum

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!

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

Arious87

Kuwer