Userform mit Combobox Fehler
Peter
ich ich beise schon die ganze Woche an meiner Userform herum. Mein Problem sind deren 2.
Das erste ist das in meinen Combo's nichts angezeigt wird. Vorher haben sie funktioniert, wo
sie noch im Intial gewesen waren. Da ich aber den Wert in der 1. Combo brauche um eine
bestimmte Datei und ihre Einträge über die 2. Combo aufzurufen, habe ich die Combos heraus
genommen. Es sind noch ein paar Combos mehr in der Userform, die im Moment auch nichts mehr
anzeigen. Die habe ich in meinen geposteten Code nicht eingefügt, da ich der Meinung bin, wenn Combo 1 und 2 arbeiten, gehen auch die anderen.
Hier mein Code:
Option Explicit
Private Sub UserForm_Initialize()
Dim ctrl As Control
For Each ctrl In Me.Controls
If TypeOf ctrl Is msforms.ComboBox Then
End If
Next ctrl
End Sub
Private Sub ComboBox1_Change()
'value of Combobox1
With Me.ComboBox1
Dim strIniName1 As String
Dim strFilerecord1 As String
strIniName1 = ThisWorkbook.Path & ("\" & "Name" & ".txt")
Open strIniName1 For Input As #1
Do While Not EOF(1)
Input #1, strFilerecord1
ComboBox1.AddItem strFilerecord1
ComboBox1.List(ComboBox1.ListCount - 1, 1) = strFilerecord1
Loop
Close #1
End With
End Sub
Private Sub select_change()
Me.ComboBox2 = select_change
End Sub
Private Sub cbo_filter_change()
Call fill_me(cbo1Filter.value)
Me.ComboBox1 = cbo1Filter.value
End Sub
Private Sub UserForm_ComboBox2_Change()
'value of Combobox2
With Me.ComboBox2
Dim strIniName2 As String
Dim strFilerecord2 As String
strIniName2 = ThisWorkbook.Path & "\Árucikk" & "\" & cbo1Filter.value & ("Name") & (".ini")
Open strIniName2 For Input As #1
Do While Not EOF(1)
Input #1, strFilerecord2
ComboBox2.AddItem strFilerecord2
ComboBox2.List(ComboBox2.ListCount - 1, 1) = strFilerecord2
Loop
Close #1
End With
End Sub
Vielen Dank im vorraus
Peter