Live-Forum - Die aktuellen Beiträge
Datum
Titel
19.04.2024 16:34:52
gemeinsamer Filter über drei Spalten
19.04.2024 15:39:42
Exceltabelle daten per combobox zu word Datei
19.04.2024 14:04:05
PDF per VBA ausgeben - Seitenskalierung
19.04.2024 13:58:02
Set Worksheet geht im O365 aber im Excel 2016 nicht
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
1508to1512
Aktuelles Verzeichnis
Verzeichnis Index
Übersicht Verzeichnisse
Vorheriger Thread
Rückwärts Blättern
Nächster Thread
Vorwärts blättern
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Vorheriger Thread
Vorheriger Thread
Rückwärts Blättern
1508to1512
1508to1512
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Laufzeitgenerierte Textbox change deklarieren

Laufzeitgenerierte Textbox change deklarieren
22.08.2016 11:50:19
Christof
Hallo,
wie kann ich bei Laufzeitgenerierten TextBoxen das Change ereignis deklarieren, um z.B. Zahleneingaben in das Zahlenformat zu werfen.
LG Chris

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

Betreff
Datum
Anwender
Anzeige
AW: Laufzeitgenerierte Textbox change deklarieren
22.08.2016 12:49:46
Rudi
Hallo,
dafür brauchst du eine eigene Klasse.
Bsp.:
Userform: 
Option Explicit
Dim oTxtBox() As New clsMyUF
Private Sub UserForm_Initialize()
Dim i As Integer
Const h As Integer = 18, w As Integer = 50
ReDim oTxtBox(1 To 5)
For i = 1 To 5
Set oTxtBox(i).myTxtBox = Me.Controls.Add("forms.textbox.1")
With oTxtBox(i).myTxtBox
.Left = 70
.Top = (i - 1) * (h + 10) + 20
.Width = w
.Text = "Text_" & Chr(i + 64)
End With
Next i
cmdOK.Top = oTxtBox(5).myTxtBox.Top + h + 20
Me.Height = cmdOK.Top + cmdOK.Height + 40
End Sub

Klassenmodul clsMyUF: 
Option Explicit
Public WithEvents myTxtBox As MSForms.TextBox
Private Sub myTxtBox_KeyPress(ByVal KeyAscii As MSForms.ReturnInteger)
'nur Ziffern und , zulassen
Select Case KeyAscii
Case 44, 48 To 57
Case Else: KeyAscii = 0
End Select
End Sub
Gruß
Rudi
Anzeige
AW: Laufzeitgenerierte Textbox change deklarieren
22.08.2016 15:10:43
Christof
Hi,
musst mit deiner Hilfe etwas Spielen jedoch hab ich das Problem, dass mir change bei der Txtbox garnicht hilft ... Beforeupdate wäre besser jedoch wendet er diese deklaration nicht an
bin etwas verwirtt
AW: Laufzeitgenerierte Textbox change deklarieren
22.08.2016 16:36:47
Rudi
Hallo,
in eigenen Klassen stehen nicht alle Ereignisse zu Verfügung.
Gruß
Rudi
AW: Laufzeitgenerierte Textbox change deklarieren
22.08.2016 16:48:09
Christof
Gibt es dann noch eine Möglichkeit nach einer eingabe in eine der Textboxen diese dann ins nummernformat "#,##0.00" zu bringen?

179 Forumthreads zu ähnlichen Themen

Suchfunktion - TextBox kein Text sondern Datum
Frank

Hallo Liebe Excelgemeinde!!!
In einer UserForm befindet sich folgender Code um bestimmte Einträge zu suchen. Da in der TextBox1 aber kein Text sondern ein Datum steht funktioniert dies nicht, da kommt die Meldung " Suchbegriff wurde nicht gefunden".
Was muss ich ändern, damit auch nach...
21.08.2008 15:35:00
Thread-ID: 1003541
4 Beiträge
Anzeige
Textbox in abhängigkeit von "DropdownValue" zeigen
"DropdownValue"

Hallo,
hab da mal ein kleines Problem!
Da ich einfach ein Anfänger bin komm ich nicht auf die wahrscheinlich simple Lösung =(
Möchte einfach nur 5 Textefelder in dem Sheet, die jeweils nur sichtbar sind wenn ein bestimmter Wert in ComboBox2 erfüllt ist.
Beispiel: In ComboBox2 wi...
30.10.2008 16:07:48
Thread-ID: 1020654
3 Beiträge
Textboxinhalt in html konvertieren?
Timo

Hallo,
gibt es eine einfache Möglichkeit den Textboxinhalt in html zu konvertieren?
Ich hab in einer Userform ein Textbox welche als Mailinhalt dient! Wenn ich nun mit
.HTMLBody = Mailtext.TextBox1
die Mail versende wird die Mail ohne Zeilenumbrüche und Schriftfarbe geschrieben!...
17.11.2008 17:59:00
Thread-ID: 1025334
8 Beiträge
Anzeige
Von Textbox 27 Werte in Textbox 29
Heinz

Guten morgen Leute
Im unteren Code kann ich in Textbox27 eine 5 stellige Zahl eingeben,der mir dann im Worksheets("Artikeln") in Spalte A den übereinstimmenden Wert sucht.
Nun möchte ich aber das mir der Wert von Spalte B in Textbox29 anzeigt.
Z.B. Gebe in Textbox27 12345 ein, und...
09.01.2009 07:31:11
Thread-ID: 1038086
3 Beiträge
TextBox von Aktivierreihenfolge ausschliesen
Aktivierreihenfolge

Mahlzeit Leute
Eine Frage: Wie kann man in einer UF TextBoxen & CheckBoxen von der Aktivierungs Reihenfolge ausschliessen ?
Also das man diese Boxen mit der Eingabetaste überspringt ? Habe Locked auf True gestellt.
Gruß
Heinz
19.01.2009 12:36:00
Thread-ID: 1041374
7 Beiträge
Inhalt von Combobox nach Textbox übertragen
Combobox

Hallo Excel Freunde
Wer kann mal schauen?
Ich möchte das der Inhalt meiner combobox1 automatisch in die Textbox1 übetragen wird.
Mein Stand der bisherigen Bearbeitung: (Geht aber leider nicht. Ich nehme an ein falsches Ereignis?)
Private Sub TextBox37_Change() UserForm23.Frame...
22.01.2009 10:19:00
Thread-ID: 1042474
3 Beiträge
Ergebnis von msgbox in Textbox übertragen
msgbox

Hallo excel Freunde
Wie bekomme ich das Ergebnis von(MsgBox "Ihre Auswahl:" & vbNewLine & Dateiname) in die textbox1?
Mfg
Achim H.
30.01.2009 13:09:00
Thread-ID: 1045376
5 Beiträge
Textbox Exit mit Button verlassen
WolfgangN

Hallo,
ich habe eine Userform mit einer Textbox, wo ein Datum eingefügt wird. Wenn kein Datum, dann verbleibe in Textbox. Das klappt auch alles sehr gut. Ich suche jetzt aber eine Möglichkeit, wenn kein Datum eingegeben wurde und Button Abbrechen (Unload Userform1) wurde gedrückt, soll Exit...
10.02.2009 13:00:00
Thread-ID: 1049026
13 Beiträge
Anzeige

Links zu Excel-Dialogen

TextBox UserForm

Beliebteste Forumthreads (12 Monate)

Anzeige
Jetzt das Excel-Portal bewerten: Deine Stimme zählt!

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige
Archiv - Verwandte Themen
Forumthread
Beiträge
3
1
2
7
2
2
6
2
4
12
6
13
3
3
5
8
11
10
13
5
8
1
2
10
5