Mit nachfolgendem Code werden die Daten auch in einem fremden Arbeitsblatt in die UserForm eingelesen.
Das einzige wo ich Daten nicht hineinbekomme ist die ComboBox(cboListe).
Wo müßte ich bitte hier Workbooks("SUBKAPITEL_2.xls").Worksheets("SUBKAPITEL")einsetzen ?
Danke
josef
Private Sub cboListe_Change()
subtxt1.Text = Workbooks("SUBKAPITEL_2.xls").Worksheets("SUBKAPITEL").Cells(cboListe.ListIndex + 1, 1)
subtxt2.Text = Workbooks("SUBKAPITEL_2.xls").Worksheets("SUBKAPITEL").Cells(cboListe.ListIndex + 1, 2)
subtxt3.Text = Workbooks("SUBKAPITEL_2.xls").Worksheets("SUBKAPITEL").Cells(cboListe.ListIndex + 1, 3)
subtxt4.Text = Workbooks("SUBKAPITEL_2.xls").Worksheets("SUBKAPITEL").Cells(cboListe.ListIndex + 1, 4)
subtxt5.Text = Workbooks("SUBKAPITEL_2.xls").Worksheets("SUBKAPITEL").Cells(cboListe.ListIndex + 1, 5)
subtxt6.Text = Workbooks("SUBKAPITEL_2.xls").Worksheets("SUBKAPITEL").Cells(cboListe.ListIndex + 1, 6)
subtxt7.Text = Workbooks("SUBKAPITEL_2.xls").Worksheets("SUBKAPITEL").Cells(cboListe.ListIndex + 1, 7)
subtxt8.Text = Workbooks("SUBKAPITEL_2.xls").Worksheets("SUBKAPITEL").Cells(cboListe.ListIndex + 1, 8)
subtxt9.Text = Workbooks("SUBKAPITEL_2.xls").Worksheets("SUBKAPITEL").Cells(cboListe.ListIndex + 1, 9)
subtxt10.Text = Workbooks("SUBKAPITEL_2.xls").Worksheets("SUBKAPITEL").Cells(cboListe.ListIndex + 1, 10)
End Sub
Private Sub UserForm_Initialize()
If Val(Application.Version) >= 9 Then
wHandle = FindWindow("ThunderDFrame", Me.Caption)
Else
wHandle = FindWindow("ThunderXFrame", Me.Caption)
End If
If wHandle = 0 Then Exit Sub
frm = GetWindowLong(wHandle, GWL_STYLE)
frm = frm Or &HC00000
SetWindowLong wHandle, -16, frmStyle
DrawMenuBar wHandle
Dim intcounter As Integer
For intcounter = 1 To 7000
cboListe.AddItem Cells(intcounter, 7)
Next intcounter
cboListe.ListIndex = 0
cboListe.ListIndex = 1
subtxt11 = Application.Max(Workbooks("SUBKAPITEL_2.xls").Worksheets("SUBKAPITEL").Range("H:H"))
subtxt12 = Application.Max(Workbooks("SUBKAPITEL_2.xls").Worksheets("SUBKAPITEL").Range("E:E"))
End Sub