Microsoft Excel

Herbers Excel/VBA-Archiv

Informationen und Beispiele zum Thema TextBox
BildScreenshot zu TextBox TextBox-Seite mit Beispielarbeitsmappe aufrufen

Textbox-MaxLength Problem... | Herbers Excel-Forum


Betrifft: Textbox-MaxLength Problem... von: robert
Geschrieben am: 14.02.2012 18:45:09

Hallo,

mit diesem Code soll nur eine einstellige Eingabe in die UF-Textboxen
möglich sein.
Funkt auch, aber siehe VBE-Eigenschaften MaxLength der Textboxen-
lt. Beispieldatei.

Gruß
robert

Option Explicit

Sub tt()
    Dim cbElement As Control                    ' Variable für die TextBox als Steuerelement
'   Schleife über alle Steuerelemente
Dim i As Long
Range("A1:C200").ClearContents
    For Each cbElement In UserForm1.Controls
    
    If TypeName(cbElement) = "TextBox" Then
       cbElement.MaxLength = 1
       i = i + 1
       Cells(i, 1) = UserForm1.Name
       Cells(i, 2) = cbElement.Name
       Cells(i, 3) = cbElement.MaxLength
    End If
    
    Next cbElement

   UserForm1.Show
End Sub
https://www.herber.de/bbs/user/78924.xls

  

Betrifft: AW: Textbox-MaxLength Problem... von: Josef Ehrensberger
Geschrieben am: 14.02.2012 19:59:52


Hallo Robert,

ich verstehe dein Problem nicht, du änderst die Eigenschaft zur Laufzeit, das im VBE (Entwurfszeit) was anderes angezeigt wird, ist doch normal.




« Gruß Sepp »



  

Betrifft: OK, aber wie dann fix... von: robert
Geschrieben am: 14.02.2012 20:11:24

Hallo Sepp,

..in die Textboxen schreiben?

Geht das überhaupt ? wenn ja-bitte um Code ;-)

Danke und Gruß
robert


  

Betrifft: AW: OK, aber wie dann fix... von: Josef Ehrensberger
Geschrieben am: 14.02.2012 20:13:59


Hallo Robert,

was Code? Einfach in den Eigenschaften (im VBE) auf 1 Stellen.




« Gruß Sepp »



  

Betrifft: AW: OK, aber wie dann fix... von: Josef Ehrensberger
Geschrieben am: 14.02.2012 20:26:43


Hallo Robert,

du hast zwar keine Ahnung, und ich weiß nicht wozu das gut sein soll, aber so kannst du die Eigenschaften per Code ändern.

Sub test()
  Dim objCntrl As MSForms.Control
  
  With ThisWorkbook.VBProject.VBComponents("UserForm1").Designer
    For Each objCntrl In .Controls
      If TypeOf objCntrl Is MSForms.TextBox Then
        objCntrl.MaxLength = 1
      End If
    Next
  End With
  
End Sub





« Gruß Sepp »



  

Betrifft: @Sepp, na so schlimm... von: robert
Geschrieben am: 15.02.2012 08:21:05

Hallo Sepp,

von "keiner Ahnung" bin ich meiner bescheidenen Meinung nach
weit davon entfernt ;-)

Sicher, mit Dir und Deinem Wissen kann ich mich in keiner Weise messen,
das sehe ich immer wieder an Deinen Lösungen ;-)

Mir fehlt einfach ein Basiswissen, ich setz mich hin,probier was,
suche hier im Forum und bastle etwas zusammen.

Es sind auch keine große Projekte, eher Spielereien, eben Zeitvertreib und Hilfe
an diejenigen in meinem Freundeskreis, die noch weniger Ahnung als ich haben.

Nun, wozu das gut sein soll:
Es soll hier in die Textfelder nur eine einstellige Zahleneingabe möglich sein-
ca 150 Textboxen in der Echtdatei.(Golfauswertung)

Ich schätze, dass Du das eleganter und besser lösen würdest und ich
würde mich freuen, wenn Du mir den Weg aufzeigen könntest.

Übrigens-natürlich funkt Dein Code...Danke

Gruß
robert


  

Betrifft: AW: @Sepp, na so schlimm... von: Josef Ehrensberger
Geschrieben am: 15.02.2012 09:28:58


Hallo Robert,

wie ich das lösen würde, ganz einfach, alle TB's im Entwurf-Modus markieren und die Eigenschaft MaxLength auf 1 stellen, warum sollte ich eine Eigenschaft die ich fix einstellen kann und bei der es nicht nötig ist, sie während der Laufzeit zu ändern, per Code einstellen.




« Gruß Sepp »



  

Betrifft: Danke Sepp! Gewusst wie ;-)) owT von: robert
Geschrieben am: 15.02.2012 10:05:39




  

Betrifft: AW:@robert von: hary
Geschrieben am: 15.02.2012 11:33:44

Moin Robert
Bist Du immer noch am Golf(ball)auswertung? Hast Du schon eine Loesung des alten Problems mit dem Handycap?
gruss hary


  

Betrifft: @Hary-Ja, eigentlich schon.... owT von: robert
Geschrieben am: 15.02.2012 13:02:12




  

Betrifft: AW: @Robert von: hary
Geschrieben am: 15.02.2012 13:33:40

Hallo Robert
Wenn Du fertig bist, wuerde mich interessieren wie diese Handycapberechnung genau funzt. So zum lesen war's ja kompliziert.
gruss hary


  

Betrifft: @hary, und ich dachte... von: robert
Geschrieben am: 15.02.2012 17:11:56

Hi hary,

...Du hast eine "einfache" Lösung für mich ;-)

Gruß
robert