Textbox Change ereignis

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

Hallo Lisa,
ohne auf deinen Code näher einzugehen, aber das: Public arrTextbox() As New Klasse1
ist eine ganz schlechte Idee. Damit werden alle TextBoxen die du der Klasse zuordnest wie eine TextBox behandelt. Das kann ganz unvorhergesehene Nebenwirkungen haben. Mach es besser so:

Public arrTextbox() As Klasse1
Public arrCbo() As Klasse1

'Klassenmodul für Textboxeingaben Prüfung
sI = 0
For Each obj In .Controls
    Select Case TypeName(obj)
        Case "TextBox"
            If obj.Name <> "" Then
                sI = sI + 1
                Redim Preserve arrTextbox(1 To sI)
                Set arrTextbox(sI) = New Klasse1
                Set arrTextbox(sI).txtTextbox = obj
            End If
    End Select
Next
'Klasse für Cbo erstellen
sI = 0
For Each obj In .Controls
    Select Case TypeName(obj)
        Case "ComboBox"
            sI = sI + 1
            Redim Preserve arrCbo(1 To sI)
            Set arrCbo(sI) = New Klasse1
            Set arrCbo(sI).Cbo = obj
    End Select
Next

Dein Problem, weswegen du fragst, habe ich nicht verstanden. Erklär das mal genauer was du eigentlich erreichen willst.
Gruß
Nepumuk

Hallo Nepumuk,
in meiner Original Mappe habe ich alle Klasse einzeln definiert
'Klassen KD
Public arrCmd() As New cls1 'CommandButton, Speichern, Löschen, Abbruch
Public arrCbo() As New cls1 'ComboBox ,Land, Anrede, Titel
Public arrOpt() As New cls1 'Kundennummer
Public arrLbl() As New cls1 'Label Abdeckungen 'Msgbox
Public arrLst() As New cls1 'ListBox 'Auswertung und ändern
Public arrKom() As New cls1 'Textboxen PLZ,Tele,Mobil (rein Funktionen)
Public arrTextbox() As New cls1 'Textboxen allgemein ' Sprung in nächstes Element 'Tabindex
Aber das nu am Rande.
Was ich erreichen will ist, dass bei Eingabe in Start Zahl die Zahlenfolge in Anzeige erscheint.
Wenn die UF geöffnet wird und man gibt z.B. 123 in Start Zahl ein, dann sollte die Anzeige, ohne das man den Buchstaben "A" und das Format der lfd. Zahl verändert, 12365-1 anzeigen.
Angezeigt wird jedoch 1265-1.
Lassen wir die 123 und verändern nun den Buchstaben auf "B" dann wird korrekt angezeigt 12366-1.
Lassen wir die 123 und verändern nun Format lfd. Zahl auf "00" dann wird korrekt angezeigt 12366-01.
Das ganze dient dazu eine Kundennummer aus einer beliebigen Zahl & ASCII Wert aus erstem Buchstaben - laufende Kundennummer mit dem gleichen Anfangsbuchstaben.
Ich hoffe ich habe mich verständlich ausgedrückt.
Danke für Deine Hilfe!
Gruß
Lisa

Public Function funcMobil(objTextBox As MSForms.TextBox, intKeyNumber As Integer) As Integer Select Case intKeyNumber Case 32, 43, 45, 47, 48 To 57: funcMobil = intKeyNumber Case Else: funcMobil = 0 lMsg = MsgBox("Im Feld " & vbLf & "Mobil _ " & vbLf & _ "Trennzeichen '/ ' " & " '-' " & " " & " '+' " & vbLf & "und Leerzeichen" & vbLf & _ "erlaubt...", vbOKOnly + vbCritical, "Fehler: Eingabe Mobil...") End Select End Function

Private Sub txtTextbox_KeyPress(ByVal intKeyASc As MSForms.ReturnInteger) 'Prüfen _ Zahleneingaben Select Case txtTextbox.Name Case "txtKD_AZ_NK" intKeyASc = funcNK(txtTextbox, CInt(intKeyASc)) If txtTextbox.Tag "" Then Run txtTextbox.Tag

Beliebteste Forumthreads (12 Monate)

11
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

179 Forumthreads zu ähnlichen Themen

Links zu Excel-Dialogen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

Textbox Change ereignis

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

179 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