ComboBox Frage + Problem
09.08.2005 09:37:08
Henri
ich habe eine Userform mit einer ComboBox und 2 Textboxen.
Die ComboBox - Werte sollen aus einem Sheet aus A2 bis B(n) ausgelesen werden. Wenn möglich sollen diese in der ComboBox 2 spaltig angezeigt werden. Leider bringt mir mein Initialize einen Fehler (Index des Eigenschaftenfeldes ungültig):
Private Sub UserForm_Initialize()
Dim frm As UserForm
Dim i As Integer
Dim iMax As Integer
Application.ScreenUpdating = False
With frmKunden.ComboBox1
.Clear
.ColumnCount = 2
iMax = ActiveSheet.UsedRange.Rows.Count
For i = 2 To iMax
.AddItem Worksheets("Kunden").Cells(i, 1).Value
.List(i, 1) = Worksheets("Kunden").Cells(i, 2).Value
Next i
End With
Application.ScreenUpdating = True
End Sub
Weiterhin soll bei Auswahl eines Wertes aus der Combobox diese in die beiden TextBoxen übernommen werden und nach dem Ändern der Werte sowie Drücken des CommandButtons wieder an die entsprechende Stelle in meinem Sheet zurückgeschrieben werden.
Wie stelle ich das denn an?
Private Sub ComboBox1_Change()
-beide Werte der 2 spaltigen ComboBox in tbName und tbZeit übernehmen
End Sub
Private Sub cbAktualisieren_Click()
-Wert aus tbName und tbZeit in entsprechende Zeile von Worksheets("Kunden").Cells(x, 1) und Worksheets("Kunden").Cells(x, 2) eintragen
End Sub
Danke und Grüße
Henri