Textbox dynamisch ansprechen

gelöstFrage VB for Applications Entwicklung

Hallo Leute,

könnte mir einer sagen, was ich bei diesem Code-Snippet falsch mache bzw. wie ich es denn richtig umsetzen müsste ?

Dim sName As String
sName = Me.ActiveControl.Name

If Not IsNumeric(sName.Text) Then
    sName.Text = ""  
    Exit Sub
End If
If sName.Text < 10 Then sName.Text = "0" & sName.Text  
If sName.Text > 23 Then sName.Text = ""  

in diesem Fall ist Me.ActiveControl.Name = "TextBox_Montag_Start_ST"

Grüße
Exze

Bitte markiere auch die Kommentare, die zur Lösung des Beitrags beigetragen haben

Content-ID: 215836

Url: https://administrator.de/forum/textbox-dynamisch-ansprechen-215836.html

Ausgedruckt am: 29.04.2025 um 05:04 Uhr

4 Kommentare

Neuester Kommentar

Hallo Exze,
sName ist kein Objekt sondern nach deinem Script ein String, deswegen kannst du in Zeile 4 nicht mit sName.Text abfragen! bzw. in Zeile 5 und weiter den Text setzen.
machs so

set sName = Me.ActiveControl

If Not IsNumeric(sName.Text) Then
    sName.Text = ""  
    Exit Sub
End If
If sName.Text < 10 Then sName.Text = "0" & sName.Text  
If sName.Text > 23 Then sName.Text = ""  

Grüße Uwe

Hi Uwe,

wunderbar dank dir ;)
hätte ich auch selbst drauf kommen können ...

Jetzt ist allerding ein neues Problem aufgetaucht :D
könntest du mal drüberschauen ?
Der Code liegt hinter einem Button, der die Userform clearen soll

Dim objControl As Control

For Each objControl In Controls
   Select Case TypeName(objControl)
      Case "TextBox"  
         objControl.Text = ""  
      Case "ComboBox"  
         objControl.ListIndex = -1
      Case "CheckBox"  
         objControl.Value = False
      Case "OptionButton"  
         objControl.Value = False
   End Select
Next

bringt die Meldung "Laufzeitfehler '424': Objekt erforderlich"
Danke schonmal

Grüße
Exze

<EDIT>
ok Problem gelöst ;)
der Code war nicht direkt hinter dem Button gelegen, sondern in einem seperaten Modul, klar dass sich dann das Objekt auf nichts bezieht.
</EDIT>

Der Code ist eigentlich so OK, was stören könnte wäre das Controls in Zeile3, ändere das mal in Me.Controls.
Setz mal einen Breakpoint und bewege dich dann Schritt für Schritt mit F8 durch den Code, bis die Fehlermeldung kommt. Dann weist du in welcher Zeile eventuell der Fehler liegt.
Grüße Uwe