Hallo zusammen,
noch eine weitere Frage zu RemoveItem.
Ich habe die Auswahl aus einer ListBox3 in eine andere ListBox5 übertragen,
wenn ich das Formular schließe und erneut aufmache, sollen die bereits ausgewählten Werte nicht mehr in der ListBox3 erscheinen.
Dazu habe ich folgenden Code geschrieben:
(ArrAuswahl enthält die bereits ausgewählten Werte.)
Sheets("Meldg").Activate
ReDim ArrMeldg(1 To AnzMeldg, 1 To 5)
For n1 = 1 To AnzMeldg
ArrMeldg(n1, 1) = Range("Meldg.Start").Offset(n1, MeldgNMCol).Value
ArrMeldg(n1, 2) = Range("Meldg.Start").Offset(n1, MeldgSXCol).Value
ArrMeldg(n1, 3) = Range("Meldg.Start").Offset(n1, MeldgSKCol).Value
ArrMeldg(n1, 4) = Range("Meldg.Start").Offset(n1, MeldgAKCol).Value
ArrMeldg(n1, 5) = Range("Meldg.Start").Offset(n1, MeldgTRCol).Value
Next n1
If AnzAuswahl größer 0 Then
For n2 = 1 To AnzAuswahl
SuchText = ArrAuswahl(n2)
For n1 = 1 To AnzMeldg
If Range("Meldg.Start").Offset(n1, MeldgNMCol).Value = SuchText Then
With ListBox3
ListBox3.RemoveItem (n1)
End With
End If
Next n1
Next n2
End If
Dabei erhalte ich eine Fehlermeldung.
Wie muss der Code geändert werden?
Gruß
Siegfried