listboxen speziell erstellen
03.11.2008 15:52:35
adrian
habe folgendes Ziel....habe eine Combox, die automatisch ihre Einträge bezieht und erweitert.
Für den angewählten Wert in dieser ComboBox soll eine Textbox angezeigt werden, wobei die für die anderen unsichtbar bleiben.
Problem:
Kommt jetzt ein neuer Wert in die ComboBox-Liste, so ist noch keine Textbox vorhanden, (MessageBox erscheint, wenn neuer wert ohne Listbox angewählt wird) soll aber mittels einem Button hinzugefügt werden können.
Die neue Textbox soll auch gleich nur erscheinen, wenn der neue Wert angewählt wird und so formatiert sein, dass man mit Enter "newline" erzeugen kann.
Wäre super, super wenn mir jemand hier helfen kann =)
lg
adrian
folgendes habe ich bis jetzt geschrieben:
Private Sub ComboBox1_GotFocus()
'Aktuelle Daten aus Tabelle holen
Dim Cell As Range
With Me.ComboBox1
.Clear
For Each Cell In Range("SupplierAs")
.AddItem Cell.Value
Next
End With
End Sub
Private Sub ComboBox1_Change()
'Alle Textboxen mit Info unsichtbar machen
TextBox1.Visible = False
'etc.
If ComboBox1.Value = "" Then
MsgBox "There is no entry for this Supplier" & vbNewLine & "Please add Textbox", "Extend _
List"
End If
Select Case ComboBox1.ListIndex
Case "0"
TextBox1.Visible = True
'etc.
Case Else
'do nothing
End Select
End Sub
'Soll für alle Textboxen gelten (Multiline = true)
Private Sub TextBox1_KeyDown(ByVal KeyCode As MSForms.ReturnInteger, _
ByVal shift As Integer)
If KeyCode = vbKeyReturn Then
TextBox1.Text = TextBox1.Text & vbNewLine
End If
TextBox1.Visible = False
End Sub
'Textbox Hinzufügen die versteckt ist und nur bei Auswahl des entsprechenden Indexes der Combobox sichtbar wird
Private Sub CommandButton5_Click()
End Sub