Quoten von Textfeld Nr.
21.01.2004 20:16:42
Christoph
ich habe ein Problem beim Ansprechen von Textfeldern oder besser gesagt beim Quoten von Textfeldnummern.
In einer UF sind mehrere Textfelder eingefügt mit den Namen "Txt1"; "Txt2"; usw.
In VBA spreche ich diese über den umständlichen Weg:
...
If Txt1.Value <> "" Then
tmp1 = Txt1.Value
End if
If Txt2.Value <> "" Then
tmp2 = Txt2.Value
End if
...
Bezüglich dem Quoten der Textfeld-Nummern steh ich mal wieder auf dem Schlauch.
Ist es möglich, das oben beschriebene Problem z.B. für 13 Textfelder mit einer Routine à la:
Dim txtb As Object
Dim i as Integer
For i = 1 To txtb.Count
If "Txt." & i.Value <> "" Then
"tmp" & i = "Txt" & i.Value
End if
Next i
zu "erschlagen"?
Ich häng mal wieder an den Standard-Routinen...
den "hahnebüchenden" Code möge man mir verzeihen, aber ich hänge an diesem Problem einfach fest und verfalle dann
gerne der Einstellung "stelle ma' uns mal janz dumm", was mir offensichtlich hervorragend gelingt.
kann mir jemand helfen das Problem mit Hilfe einer Schleife zu lösen?
schon vielen Dank vorab,
Gruß
Christoph