mit folgendem Code versuche ich Daten in eine Listbox einzulesen
Private Sub UserForm_Initialize()
Dim I
Set wksbew_dat = Worksheets("Bew_Dat")
With wksbew_dat
Set wksbew_dat = Worksheets("Bew_Dat")
'Zeile mit Namen ermitteln und andere Werte ins Formular einlesen
For loZeile = 2 To .Cells(.Rows.Count, 1).End(xlUp).Row
If .Cells(loZeile, 1).Value = WUND.ComboBox1.Value Then
loZeileName = loZeile
Exit For
End If
Next
End With
I = wksbew_dat.Cells(loZeileName, 122).Value
MsgBox I
Me.ListBox1.list = I
End Sub
in der MsgBox erscheinen die Daten richtig, aber dann kommt die Fehlermeldung Eigenschaftswert konnte nicht gesetzt werden und egal ob ich listbox1.list /.value /.textschreibe immer kommt die fehlermeldung
jetzt habeich in der zeile "wksbew_dat.Cells(loZeileName, 122).Value" Daten untereinander stehen, liegtes da evtl.dran? wenn ja wie kann ich sie trotzdem einlesen?
Gruß und Danke für eure Zeit im Vorraus
Holger