Microsoft Excel

Herbers Excel/VBA-Archiv

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

Verknüpfung Textbox/ComboBox | Herbers Excel-Forum


Betrifft: Verknüpfung Textbox/ComboBox von: Eva
Geschrieben am: 19.11.2009 21:31:58

Hallo,

ich habe eine TextBox deren Eingabe nur ganze Zahlen zulassen soll (z.B. 1 und 1,0 zulässig) und möchte gerne bei Eingabe von z.B. der Zahl 5 eine ComboBox mit den Zahlen 1,2,3,4,5 befüllen; bei Eingabe von z.B. 7 die entsprechenden 1,2,3,4,5,6,7 in der ComboBox zur Auswahl anbieten.

Da ich mich leider mit VBA sehr schlecht auskenne, bin ich Euch für jegliche Hilfe dankbar.

Viele Grüße,
Eva

  

Betrifft: AW: Verknüpfung Textbox/ComboBox von: Josef Ehrensberger
Geschrieben am: 19.11.2009 21:48:06

Hallo Eva,

Private Sub TextBox1_Change()
  Dim lngI As Long
  With ComboBox1
    .Clear
    If Len(TextBox1) > 0 Then
      If Clng(TextBox1) > 0 Then
        For lngI = 1 To Clng(TextBox1.Text)
          .AddItem CStr(lngI)
        Next
      End If
    End If
  End With
End Sub

Private Sub TextBox1_KeyPress(ByVal KeyAscii As MSForms.ReturnInteger)
  Select Case KeyAscii
    Case 48 To 57 'Zahlen
    Case Else
      KeyAscii = 0
  End Select
End Sub



Gruß Sepp



  

Betrifft: AW: Verknüpfung Textbox/ComboBox von: Eva
Geschrieben am: 21.11.2009 11:44:37

Sepp,

es klappt vorzüglich. Dir wünsche ich ein schönes Wochenende!

LG, Eva


Beiträge aus den Excel-Beispielen zum Thema "Verknüpfung Textbox/ComboBox"