|
Hallo an alle,
ich habe ein Problem, dass sich beim Einlesen mehrere Zellen in eine ListBox Excel einfriert.
Ich habe eine UserForm mit der ich Zelleninhalte verändern will. Dazu habe ich in dieser USerForm eine ListBox, in der die "Datensätze" angezeigt werden, welche verändert werden sollen.
Dazu sollen die Inhalte von 3 Zellen (Titel, Name, Vorname) in der ListBox als ein ITem aufgeführt werden.
Private Sub UserForm_Initialize()
Dim ErsteZeile As Long
ListBox1.Clear
ErsteZeile = 2
Do While Trim(CStr(Tabelle1.Cells(ErsteZeile, 2) <> ""
ListBox1.AddItem Trim(CStr(Tabelle1.Cells(ErsteZeile, 2).Value) + " " + CStr(Tabelle1.Cells(ErsteZeile, 3).Value) + " " + CSr(Tabelle1.Cells(ErsteZeile, 2).Value))
ErsteZeile = ErsteZeile + 1
Loop
End Sub
Wenn in der Tabelle nun Werte stehen und die UserForm aufgerufen wird, friert Excel ein. Wenn ich nur in der Spalte 2(nur Titel) Werte eintrage, dann wird dies in die ListBox problem eingeführt. Aber sobald ich in die Spalte "Name" einen WErt eintrage, passiert nichts mehr.
Vielleicht kennt jemand das Problem und kann mir sagen, was ich besser oder anders machen kann.
DAnke für die Hilfe
Martin Ess
|