Kopieren von mutlicolumn Listbox in andere
26.01.2017 17:22:05
mutlicolumn
ich kann mit folgendem Code Einträge einer multicolumn multiselect ListBox in eine andere ListBox kopieren.
In der ersten ListBox (ListBox2) werden Txt-Datein angezeigt, die ich in Excel importieren möchte. In der zweiten ListBox (ListBox3) sollen dann nur die in ListBox2 markierten Zeilen und Spalten angezeigt werden.
Das klappt auch eigentlich alles ohne Probleme, wenn in den markierten Zeilen und Spalten Einträge vorhanden sind.
Mein Problem ist folgendes. Markiere ich eine Zeilen in der keine Einträge vorhanden sind (die Txt-File also einen Absatz oder ähnliches hat) oder z.B. hat die Reihe 4 Spalten aber nur in 2 sind Einträge vorhanden sind bekomm ich immer folgende Fehlermeldung:
"Eigenschaft List konnte nicht gesetzt werden. Typenkonflikt"
Und folgender Code ist markiert:
.List(.ListCount - 1, j) = ListBox2.List(i, j)
Der komplette Code lautet:
Private Sub CommandButton1_Click()
Dim i As Long
Dim j As Long
ListBox3.ColumnCount = ListBox2.ColumnCount
For i = 0 To ListBox2.ListCount - 1
If ListBox2.Selected(i) Then
With ListBox3
.AddItem
For j = 0 To .ColumnCount - 1
.List(.ListCount - 1, j) = ListBox2.List(i, j)
Next j
End With
End If
Next i
End Sub
Ich bedanke mich schonmal im Vorraus. Vll kann mir ja jemand helfen und auch kurz erklären wo das Problem liegt. Ich bin in VBA in Excel nicht gut eingearbeitet, versuche allerdings gerade zu lernen.