mehrere Textboxen / Auswahlfelder - Code für alle

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Benutzer

Private Sub Betrag_eingeben() Dim Betrag As String Betrag = InputBox(prompt:="Bitte geben Sie den Zahlenwert der Buchung ein; bei bereits _ vorhandenden Beträgen werden diese summiert.", Title:="Betrag eingeben") If IsNumeric(Me.TextBox3.Value) Then Me.TextBox3.Value = WorksheetFunction.sum(CDbl(Me.TextBox3.Value), CDbl(Betrag)) Else Me.TextBox3.Value = Betrag End If Me.TextBox3.SetFocus End Sub

'Variablendeklaration am Beginn des Userform-Code-Moduls Private bBoxVerlassen As Boolean 'Merker für Verlassen der Textbox Private Sub TextBox3_Exit(ByVal Cancel As MSForms.ReturnBoolean) Cancel = bBoxVerlassen bBoxVerlassen = False End Sub Private Sub TextBox3_KeyDown(ByVal KeyCode As MSForms.ReturnInteger, ByVal Shift As Integer) If KeyCode = 13 Then Call Betrag_eingeben '13 = Entertaste End Sub Private Sub Betrag_eingeben() Dim Betrag As String Eingabe: Betrag = InputBox(prompt:="Bitte geben Sie den Zahlenwert der Buchung ein; " _ & "bei bereits vorhandenden Beträgen werden diese summiert.", Title:="Betrag eingeben") If IsNumeric(Betrag) Then If IsNumeric(Me.TextBox3.Value) Then Me.TextBox3.Value = WorksheetFunction.Sum(CDbl(Me.TextBox3.Value), CDbl(Betrag)) Else Me.TextBox3.Value = Betrag End If Else If Betrag "" Then MsgBox "Eingabe ist keine Zahl", vbInformation, "Betrag eingeben" GoTo Eingabe End If End If bBoxVerlassen = True End Sub

Super, vielen lieben Dank Euch allen!
Aber natürlich noch eine Rückfrage:
Ich konnte mit Hilfe der Beispieldatei eine entsprechende Klasse programmieren, allerdings regiert diese nur auf das Drücken der Enter-Taste; die anderen Ereignisse werden unberücksichtigt gelassen:
UserForm


Option Explicit
Public bBoxVerlassen As Boolean
Dim i As Integer
Dim TxTBoBetrag() As New Klasse1
Private Sub UserForm_Initialize()
Dim i As Integer
For i = 0 To 19
ReDim Preserve TxTBoBetrag(i)
Set TxTBoBetrag(i).km_TxTBoBetrag = Me("txt_betrag" & i + 1)
Next i
End Sub
Private Sub UserForm_Terminate()
Erase TxTBoBetrag
End Sub

Klassenmodul


Option Explicit
Public WithEvents km_TxTBoBetrag As MSForms.TextBox
Public bBoxVerlassen As Boolean
Private Sub km_TxTBoBetrag_Exit(ByVal Cancel As MSForms.ReturnBoolean)
Cancel = bBoxVerlassen
bBoxVerlassen = False
End Sub
Private Sub km_TxTBoBetrag_Enter()
Call Betrag_eingeben
End Sub
Private Sub km_TxTBoBetrag_KeyDown(ByVal KeyCode As MSForms.ReturnInteger, ByVal Shift As  _
Integer)
If KeyCode = 13 Then Call Betrag_eingeben
End Sub
Private Sub Betrag_eingeben()
Dim Betrag As String
Eingabe:
Betrag = InputBox(prompt:="Bitte geben Sie den Zahlenwert der Buchung ein; bei bereits  _
vorhandenden Beträgen werden diese summiert.", Title:="Betrag eingeben")
If IsNumeric(Betrag) Then
If IsNumeric(km_TxTBoBetrag.Value) Then
km_TxTBoBetrag.Value = WorksheetFunction.sum(CDbl(km_TxTBoBetrag.Value), CDbl(Betrag))
Else
km_TxTBoBetrag.Value = Betrag
End If
Else
If Betrag  "" Then
MsgBox "Ihre Eingabe ist kein nummerischer Wert.", vbCritical, "Betrag eingeben"
GoTo Eingabe
End If
End If
bBoxVerlassen = True
End Sub

Ich würde mich sehr freuen, wenn Ihr mir noch helfen könntet! ;-)
VG

Hallo Jonathan,
1. Tastenkombination, um den Fokus auf ein bestimmtes Steuerelement im Userform zu setzen.
Mit beispielhaft
Application.OnKey "^f", "SetFokusAufUF_Textbox"
Das OnKey-Ereignis gilt für das Excel-Anwendungsfenster, funktioniert aber nicht wenn eines der Elemente im Userform den Fokus hat.
Man muss dann für alle Steuerelemente, die den Fokus bekommen können eine KeyDown-Ereignisprozedur anlegen bzw. im zugehörigen Klassenmodul. Mit Klassen geht das noch verhältnismäßig einfach, ist aber doch recht mühselig.
2. Exit-Ereignis für Betrags-Textboxen
Wie schon geschrieben, gibt es für Textboxen im Klassenmodul keine Exit-Ereignis-Prozedur. Ich hab auch keinen zufriedenstellenden Workaround gefunden.
Es bleibt also nichts anderes übrig, als die Exit-Ereignisprozeduren direkt im Userform-Code anzulegen.
In der hochgeladenen Beispieldatei hab ich mal alles umgesetzt
.https://www.herber.de/bbs/user/76507.xls
Gruß Franz

Beliebteste Forumthreads (12 Monate)

mehrere Textboxen / Auswahlfelder - Code für alle

11
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

299 Forumthreads zu ähnlichen Themen

Links zu Excel-Dialogen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

mehrere Textboxen / Auswahlfelder - Code für alle

11 Beiträge zum Forumthread Beiträge zu diesem Forumthread

299 Forumthreads zu ähnlichen Themen

VBA Beispiele zu verwandten Themen

Links zu Excel-Dialogen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

11
Beiträge zum Forumthread

Beiträge zu diesem Forumthread