indizies für textboxen ?

Hi Leute,

fülle in einer userform bis zu 30 textboxwn mit zahlen
die eingaben werden dann in abhängigkeit weiterer parameter
in verschieden bereichen der tabelle eingetragen

jetzt kann ich natürlich das machen:

sub textbox1_exit(....)
uebergabe
end sub
...
...
...
sub textbox30_exit(....)
uebergabe
end sub

uebergabe sieht dann so aus:

sub uebergabe()
uebergabeort = 'verschieden werte
tbstart = 1
tbstop = 30
for intcounter = tbstart to tbstop
sheets(xy).cells(uebergabeort,intcounter)=_
controls("textbox" & intcounter).value
next intcounter
end sub

ich will aber nicht 30-mal
sub textbox*_exit(....)
uebergabe
end sub
schreiben

in visual basic kann ich allen textboxen den gleichen namen geben
angesprochen werden sie dann über ihren index, z.b.

sub textbox1_gotfocus(index as integer)
uebergabe
end sub

dumm nur dass ich seit einigen nächten nicht rausfinde wie
ich das in excel vba realisieren kann

1 mio danke für lösungsvorschläge oder denkansätze

alex

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

Hallo Alex

das ist nicht so Einfach.

Ich habe die Eigenschaft Text der Textbox benutzt um die Textbox in 5 Gruppen einzuteilen.

in ein Modul
Public TextBoxen1() As New Klasse1
Public TextBoxen2() As New Klasse2
Public TextBoxen3() As New Klasse3
Public TextBoxen4() As New Klasse4
Public TextBoxen5() As New Klasse5

in die Userform
Dim  cb As Control
Dim TextCount1 As Integer, TextCount2 As Integer, TextCount3 As Integer
Dim TextCount4 As Integer, TextCount5 As Integer
in Private Sub UserForm_Activate()
'   Textbox-Klassen setzen
    TextCount1 = 0: TextCount2 = 0: TextCount3 = 0: TextCount4 = 0: TextCount5 = 0
    For Each cb In Me.Controls
        If TypeName(cb) = "TextBox" Then
            Select Case cb.Text
                Case "1"
                    TextCount1 = TextCount1 + 1
                    ReDim Preserve TextBoxen1(1 To TextCount1)
                    Set TextBoxen1(TextCount1).TextGroup = cb
                    cb.Text = ""
                Case "2"
                    TextCount2 = TextCount2 + 1
                    ReDim Preserve TextBoxen2(1 To TextCount2)
                    Set TextBoxen2(TextCount2).TextGroup = cb
                    cb.Text = 0
                Case "3"
                    TextCount3 = TextCount3 + 1
                    ReDim Preserve TextBoxen3(1 To TextCount3)
                    Set TextBoxen3(TextCount3).TextGroup = cb
                    cb.Text = ""
                Case "4"
                    TextCount4 = TextCount4 + 1
                    ReDim Preserve TextBoxen4(1 To TextCount4)
                    Set TextBoxen4(TextCount4).TextGroup = cb
                    cb.Text = ""
                Case "5"
                    TextCount5 = TextCount5 + 1
                    ReDim Preserve TextBoxen5(1 To TextCount5)
                    Set TextBoxen5(TextCount5).TextGroup = cb
                    cb.Text = ""
            End Select
        End If
    Next cb

und in KLassemodul Klasse1
Option Explicit
Public WithEvents TextGroup As MSForms.TextBox
Sub TextGroup_Change()
    If Auftrag.Tag <> "0" Then If TextGroup.Value <> "" Then Numerisch Auftrag, TextGroup.Name
End Sub

es wird die Prozedur Numerisch aufgerufen, die ich auch noch in anderen Userformen benutze
Auftrag ist der Name der Userform
in einem Modul habe ich die Prozedur Numerisch
Sub Numerisch(Modul, Name As String)
    On Error GoTo Ende
    If Not IsNumeric(Modul.Controls(Name)) Then
        Modul.Controls(Name) = Mid(Modul.Controls(Name), 1, Len(Modul.Controls(Name)) - 1)
        Beep
    End If
Ende:
End Sub

Code eingefügt mit Syntaxhighlighter 1.16

sieht ein wenig kompliziert aus, ich habe aber nht geschrieben das es einfach ist.

Gruß Hajo

Beliebteste Forumthreads (12 Monate)

9
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

299 Forumthreads zu ähnlichen Themen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

indizies für textboxen ?

9 Beiträge zum Forumthread Beiträge zu diesem Forumthread

299 Forumthreads zu ähnlichen Themen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

9
Beiträge zum Forumthread

Beiträge zu diesem Forumthread