Thema
|
Datum
|
Von Nutzer
|
Rating
|
Antwort
|
 Aktion auslösen beim Verlassen einer TextBox |
24.04.2025 17:25:25 |
Stefan |
|
|
|
24.04.2025 18:41:24 |
Gast85797 |
|
|
|
24.04.2025 19:18:17 |
Gast2263 |
|
|
|
24.04.2025 20:41:33 |
xlKing |
|
|
|
25.04.2025 19:36:20 |
Gast79359 |
|
|
Von:
Stefan |
Datum:
24.04.2025 17:25:25 |
Views:
31 |
Rating:
|
Antwort:
|
Thema:
Aktion auslösen beim Verlassen einer TextBox |
Ich erstelle meine TextBoxen dynamisch. Beim Verlassen der TextBox soll eine Nachricht kommen.
Private Sub UserForm_Initialize()
Dim txt As MSForms.TextBox
Dim i As Integer
' Beispiel für 2 Textfelder
For i = 1 To 2 ' Oder die gewünschte Anzahl von TextBoxen
' Dynamische TextBox erstellen
Set txt = Me.Controls.Add("Forms.TextBox.1", "TxtKanalEckig" & i, True)
' TextBox-Eigenschaften festlegen
With txt
.Left = 10
.Top = 30 * i
.Width = 100
.Height = 20
.Text = "TextBox " & i
.Tag = "TextBox" & i ' Zum Identifizieren der TextBox
End With
Next i
End Sub
' Exit-Event für jede TextBox
Private Sub TxtKanalEckig1_Exit(ByVal Cancel As MSForms.ReturnBoolean)
MsgBox "Exit für TxtKanalEckig1 ausgelöst"
' Hier kannst du deine SchreibeWertInAktivesBlatt-Funktion aufrufen
End Sub
Private Sub TxtKanalEckig2_Exit(ByVal Cancel As MSForms.ReturnBoolean)
MsgBox "Exit für TxtKanalEckig2 ausgelöst"
' Hier kannst du deine SchreibeWertInAktivesBlatt-Funktion aufrufen
End Sub
Leider tut sich nichts und ich finde den Fehler nicht.
Über Hilfe würde ich mich sehr freuen.
|
- Bitte beschreiben Sie Ihr Problem möglichst ausführlich. (Wichtige Info z.B.: Office Version, Betriebssystem, Wo genau kommen Sie nicht weiter)
- Bitte helfen Sie ebenfalls wenn Ihnen geholfen werden konnte und markieren Sie Ihre Anfrage als erledigt (Klick auf Häckchen)
- Bei Crossposting, entsprechende Links auf andere Forenbeiträge beifügen / nachtragen
- Codeschnipsel am besten über den Code-Button im Text-Editor einfügen
- Die Angabe der Emailadresse ist freiwillig und wird nur verwendet, um Sie bei
Antworten auf Ihren Beitrag zu benachrichtigen
Bitte geben Sie ein aussagekräftiges Thema an.
Bitte geben Sie eine gültige Email Adresse ein!
- Bitte beschreiben Sie Ihr Problem möglichst ausführlich. (Wichtige Info z.B.: Office Version, Betriebssystem, Wo genau kommen Sie nicht weiter)
- Bitte helfen Sie ebenfalls wenn Ihnen geholfen werden konnte und markieren Sie Ihre Anfrage als erledigt (Klick auf Häckchen)
- Bei Crossposting, entsprechende Links auf andere Forenbeiträge beifügen / nachtragen
- Codeschnipsel am besten über den Code-Button im Text-Editor einfügen
- Die Angabe der Emailadresse ist freiwillig und wird nur verwendet, um Sie bei
Antworten auf Ihren Beitrag zu benachrichtigen
Thema
|
Datum
|
Von Nutzer
|
Rating
|
Antwort
|
 Aktion auslösen beim Verlassen einer TextBox |
24.04.2025 17:25:25 |
Stefan |
|
|
|
24.04.2025 18:41:24 |
Gast85797 |
|
|
|
24.04.2025 19:18:17 |
Gast2263 |
|
|
|
24.04.2025 20:41:33 |
xlKing |
|
|
|
25.04.2025 19:36:20 |
Gast79359 |
|
|