in UserForm - in TextBox addieren

Private Sub Worksheet_Change(ByVal Target As Range) If Target.Address = Range("B3").Address Then Target.Offset(-1, 0) = Target.Offset(-1, 0) + Target Application.EnableEvents = False Target.ClearContents Application.EnableEvents = True End If End Sub

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

Private Sub TextBox1_Exit(ByVal Cancel As MSForms.ReturnBoolean) With Me.TextBox1 If .Value = "" Then ElseIf IsNumeric(.Value) Then If TextBox2.Value = "" Then TextBox2 = .Value Else TextBox2 = CDbl(TextBox2.Value) + CDbl(.Value) End If Else MsgBox "Eingabe in Textbox1 muss nummerisch sein!", _ vbOKOnly + vbInformation, "prüfung Eingabe in Textbox1" Cancel = True End If End With End Sub

Hallo Michael,
habe noch etwas getüfftelt.
Du kannst die Eingabe in der Textbox mit TAB oder ENTER abschliessen. Der Effekt ist der gleiche.
Steht in der Textbox1 eine Zahl, dann wird beim Verlassen der Textbox1 die Zahl zum Wert in Textbox2 addiert und Textbox1 geleert - der Fokus bleibt auf Textbox1. Ist Textbox1 leer, dann wird der letzte Eingabewert wieder eingetragen und zum nächsten Steuerelement gesprungen.
Ich hab zusätzlich eine Prüfung der Tastatureingaben eingebaut, so dass in Textbox1 nur Ziffern, "," und "." eingegeben werden können.
Damit der Fokus beim Verlassen nicht auf Textbox2 gesetzt wird änderst du für Textbox2 am besten die Eigenschaft "TabIndex" auf einen hohen Wert.
LG
Franz

'Code im Modul des Userforms
Option Explicit
'Deklaration der modulweite Variablen
Private mstrTextbox1 As String 'merker für letzten Eingabewert
'### Ereignismakros Textbox1 ###
Private Sub TextBox1_Exit(ByVal Cancel As MSForms.ReturnBoolean)
With Me.TextBox1
If .Value = "" Then
'letzten Eingabewert wieder eintragen
.Value = mstrTextbox1
Else
mstrTextbox1 = .Value 'Eingabewert merken
If TextBox2.Value = "" Then
TextBox2 = CDbl(.Value)
Else
TextBox2 = CDbl(TextBox2.Value) + CDbl(.Value)
End If
.Value = ""
Cancel = True 'Dadurch bleibt der Fokus auf der Textbox
End If
End With
End Sub
Private Sub TextBox1_KeyPress(ByVal KeyAscii As MSForms.ReturnInteger)
'Nur Eingaben für Zahlenwerte zulassen
With Application
Select Case KeyAscii
Case Asc(0) To Asc(9), Asc(.ThousandsSeparator), Asc(.DecimalSeparator)
'zulässige eingaben für Zahlen
If Not IsNumeric(TextBox1.Value & ChrW$(KeyAscii)) Then KeyAscii = 0
Case Else
'bei allen andern anzeigbaren ASCII-Zeichen
KeyAscii = 0
End Select
End With
End Sub

Beliebteste Forumthreads (12 Monate)

in UserForm - in TextBox addieren

4
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

300 Forumthreads zu ähnlichen Themen

Links zu Excel-Dialogen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

in UserForm - in TextBox addieren

4 Beiträge zum Forumthread Beiträge zu diesem Forumthread

300 Forumthreads zu ähnlichen Themen

VBA Beispiele zu verwandten Themen

Links zu Excel-Dialogen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

4
Beiträge zum Forumthread

Beiträge zu diesem Forumthread