Hallo VBA Experten,
ich bin ein Anfänger im VBA Gebiet und benötige Eure Unterstützung was das Addieren von zwei Textfeldern angeht.
habe ein Userform mit 9 Textfelder, 1 Combobox (Tabellenwechsel), 2 Spinbutten, Übertragen Butten, Cancel Button und Beenden Button.
die funtionieren alles bis auf die Funktion Addieren von Textbox7, Aktuell TextBox7.Text = CInt(TextBox9.Text) + CInt(TextBox4.Text)
Private Sub Übertragen_Click()
Dim i As Long
With ActiveSheet
.Rows(5).Insert
For i = 1 To 8
If i = 5 Then
.Cells(5, i) = CDate(Me.Controls("TextBox" & CStr(i)))
Else
.Cells(5, i) = Me.Controls("TextBox" & CStr(i))
End If
Next i
End With
End Sub
Nach dem clicken von übertragen Button werden mir die Werte addiert aber wird mir zuerst eine neue leere Zeile in 5 eingefügt, ich will aber daß mir nach jedem eintrag inTextbox4 und 9 sofort in Textbox7 summiert wird, nach Übertragen Button alles übertragen und Zeile 5 in Textfeld9 und wenn ich die Tabelle wechsle sofort die neue Werte anzeigen(Aktualisieren).
Ein Beispiel aus Youtube: genau so soll es funtionieren!
https://www.youtube.com/watch?v=caNO4zbWQGo&t=22s
Danke im Voraus!
Gruß Toni
|