Listbox - Auswahl verschwindet bei Sprachauswahl

Guten Morgen,
ich habe heute früh gleich zwei Themen. Zu diesem hier hatte ich bereits einen Eintrag, den ich aber bereits auf erledigt gesetzt hatte und nun erscheint er nicht mehr in den offenen Themen.
Also, ich habe eine Listbox bei der ich die markierten Werte dann in meiner Tabelle weiterverwende. Alles klappt wunderbar, mir ist nun jedoch aufgefallen, dass wenn ich bereits Begriffe in der Listbox markiert habe, diese Markierungen wieder verschwinden sobald ich die Sprache umstelle und in der Listbox nun die Übersetzungen stehen (Englisch statt Deutsch). Ich habe hierzu mal ein Beispiel erstellt:
https://www.herber.de/bbs/user/86986.xlsm
Wie bekomme ich es hin, dass die markierten Werte beim Umschalten der Sprache auch weiterhin markiert bleiben.
Grasshopper hatte mir bereits was dazu geschrieben, aber ich weiß leider nicht wie ich das in den VBA einbinden kann:
Hole mit Sprachwechsel zuerst den Index der markierten Zeile
aktuellerIndex = Me.ListBox1.ListIndex
Nach Sprachwechsel kannst Du dann die Markierung auf diesen Index setzen
Me.ListBox1.ListIndex = aktuellerIndex

Kann mir jemand helfen? Vielen Dank vorab.
Andy

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

Hallo Andy,
leider ist es nicht ganz einfach bei Sprachwechsel die markierten Einträge wieder zu markieren.
Der Vorschlag, den du bekommen hast, funktioniert für eine Listbox in der immer nur ein Eintrag markiert werden kann.
Bei einer Listbox mit Mehrfachselektion muss man den Status aller Einträge ständig parallel in einem Array speichern, so dass er nach einem Sprachwechsel verfügbar ist.
Gruß
Franz

Option Explicit
Private strSprache As String        'Merker für die aktiv gewählte Sprache
Private bolSprachwechsel As Boolean 'Merker wenn Sprachwechsel verarbeitet wird
Private arrSelected() As Boolean    'Array zur Speicherung der aktuell gewählten Listeneinträge
Private Sub ListBox1_Change()
Dim Zeile&, i&
If bolSprachwechsel = True Then Exit Sub
If strSprache = "" Then
'initialisiert Sprache
strSprache = Range("F11").Value
End If
If strSprache  Range("F11").Value Then
'Nach Sprachwechsel die gemerkten Markierungen wieder setzen
bolSprachwechsel = True
For i = 0 To ListBox1.ListCount - 1
ListBox1.Selected(i) = arrSelected(i)
Next
strSprache = Range("F11").Value
bolSprachwechsel = False
Exit Sub ' vorherige Ergebnisse in F1:F5 werden nach Sprachwechsel nicht gelöscht
End If
ReDim arrSelected(0 To ListBox1.ListCount - 1)
Application.EnableEvents = False
Range("F1:F5").ClearContents
With ListBox1
For i = 0 To .ListCount - 1
If .Selected(i) = True Then
Zeile = Zeile + 1
Cells(Zeile, 6).Value = .List(i)
End If
arrSelected(i) = .Selected(i)
Next i
End With
Application.EnableEvents = True
End Sub
Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Address = "$F$11" Then
'Startet nach Sprachwechsel die Listbox_Change Prozedur
'erforderlich damit gemerkte Markierungen gesetzt werden
Call ListBox1_Change
End If
End Sub

Beliebteste Forumthreads (12 Monate)

Listbox - Auswahl verschwindet bei Sprachauswahl

4
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Links zu Excel-Dialogen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

Listbox - Auswahl verschwindet bei Sprachauswahl

4 Beiträge zum Forumthread Beiträge zu diesem Forumthread

VBA Beispiele zu verwandten Themen

Links zu Excel-Dialogen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

4
Beiträge zum Forumthread

Beiträge zu diesem Forumthread