Zahlen aus UserForm in Tabelle übertragen und summ
25.11.2002 09:52:55
Goofe
ich habe folgenden Makro-Text bei einer UserForm hinterlegt:
Private Sub CommandButton1_click()
x=Sheets(1).cells(Rows.count, 1).end(xlUp).Row + 1
Sheets(1)cells(x, 1).value = TextBox1
Unload UserForm1
Worksheets(1).activate
End sub
Dadurch wird die Zahl, die in Text Box1 eingegeben wurde, fortlaufend in die Spalte 1 des 1. Arbeitsblatts eingetragen. Funktioniert einwandfrei!
Wenn ich jetzt aber die Zahlen aus dieser Spalte summieren möchte, erscheint immer nur: 0,00.
Muss ich im Makro jetzt noch irgendetwas hinzufügen, oder was ist die Ursache?
Bin für jeden Tipp dankbar!
Gruß,
Goofe
Anzeige