ich habe ein denke mal kleines Problem beim befüllen einer Listbox
Private Const sAdressDatei As String = _
"C:\Formblatt_Daten.xlsx"
Private Const sTabellenblatt2 As String = "Inhalt"
Private Sub UserForm_Initialize()
Dim oExcelApp As Object
Dim oExcelWorkbook As Object
Dim lZeile As Long
Set oExcelApp = CreateObject("Excel.Application")
Set oExcelWorkbook = oExcelApp.Workbooks.Open(sAdressDatei)
ListBox2.Clear
ListBox2.ColumnCount = 2
ListBox2.ColumnWidths = "0,9cm;2,5cm;2cm;1,2cm"
lZeile = 2
With oExcelWorkbook.Sheets(sTabellenblatt2)
Do While .Cells(lZeile, 1) <> ""
ListBox2.AddItem CStr(.Cells(lZeile, 2).Value)
.List(.ListCount - 1, 1) = .Cells(lZeile, 3).Value
lZeile = lZeile + 1
Loop
End With
oExcelWorkbook.Close False
oExcelApp.Quit
Set oExcelWorkbook = Nothing
Set oExcelApp = Nothing
End Sub
ich denke auch, das ich zumindest weis wo der Fehler liegt,
denn sobald die Zeile hier ins spiel kommt.
.List(.ListCount - 1, 1) = .Cells(lZeile, 3).Value
funktioniert das script nicht mehr.
Ich habe nun schon eine ganze weile gesucht und sehe glaube schon langsam den walt vor lauter bäumen nicht mehr.
hoffentlich kann mir einer von euch helfen.
mfg Hofe |