Textboxwerte addieren
23.01.2005 01:46:25
René
hier der Code.
Sub D_Betrag()
'Einlesen der Daten aus Zeile 50 bis 79 der 1. Spalte im jeweiligen Monat
For i = 50 To 79
Betrag.ListBox1.AddItem (ActiveSheet.Cells(i, 1).Value)
Next
Betrag.Show
End Sub
Steht nichts in der jeweiligen Zeile ist die Box leer, gebe ich etwas in die 2.TextBox ein wird es in die Tabelle eingetragen mit diesem Code.
Private Sub Speichern_Click()
i = ListBox1.ListIndex + 50
'freigeben
Cells(i, 4).Value = WorksheetFunction.Substitute(TextBox2.Value, ",", ".")
TextBox2.Text = ""
TextBox2.SetFocus
'schützen
End Sub
Jetzt kommt es vor das ein Wert in der Tabelle und somit in der Textbox steht. Ich möchte nun einen Wert dazu addieren, also TB1 + TB2 mit einem weiteren Button in meiner Userform.
Bin leider nicht der Profi, denn dieser von mir eingesetzte Code stammt von einem Bekannten, den ich nicht mehr erreichen kann.
Bräuchte also Eure Hilfe..!!
Danke