Office: (Office 2016) 2 Listboxen gleichzeitig markieren

Glühkohle · 19. Januar 2020

Hallo Community,

ich habe ein Problem mit 2 Listboxen.
Ich habe in einer Tabelle diverse Eintragungen, welche in der Liste stehen.
Es wird überprüft, ob in 2 Feldern eine 1 geschrieben ist. Wenn diesem so ist, dann soll in der ListBox eine Zeile markiert werden, welche genau so auch in der Tabelle steht. Dass funktioniert bei einer ListBox auch super, aber sobald man das ganze Spiel auf eine zweite Listbox erweitern will, dann funktioniert es nicht.
Mein Code sieht wie folgt aus:
Code:

Private Sub Maschine_lesen1()
If (Worksheets("Tabelle1").[O13].Value = 1 Or Worksheets("Tabelle1").[O14].Value = 1) And (Worksheets("Tabelle1").[O15].Value = 1 Or Worksheets("Tabelle1").[O16].Value = 1) Then
ListBoxMasch1.Text = Worksheets("Tabelle1").Range("R13").Text And ListBoxMasch2.Text = Worksheets("Tabelle1").Range("R15").Text
End If
End Sub
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

Die Fehlermeldung die kommt ist "Typen unverträglich".
Ich habe hier diverse Varianten probiert:
- Aufteilung in 2 Prozeduren
- unterschiedlichste Varianten mit Value und Text
- MultiSelect Varianten für die ListBox
, aber keins hat mir so richtig geholfen.

Vielleicht kann mir einer von euch hier weiterhelfen oder mir sagen, wie ich die Sache angehe.

Danke und Beste Grüße die Kohle

:)

Scorefun · 20. Januar 2020

Mach 2 Zeilen draus...

Code:

Private Sub Maschine_lesen1()
If (Worksheets("Tabelle1").[O13].Value = 1 Or Worksheets("Tabelle1").[O14].Value = 1) And (Worksheets("Tabelle1").[O15].Value = 1 Or Worksheets("Tabelle1").[O16].Value = 1) Then
ListBoxMasch1.Text = Worksheets("Tabelle1").Range("R13").Text
ListBoxMasch2.Text = Worksheets("Tabelle1").Range("R15").Text
End If
End Sub
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

Glühkohle · 21. Januar 2020

Danke erstmal.

Habe es versucht und des kommt die Fehlermeldung:
Laufzeitzeitfehler '380': Eigenschaft Text konnte nicht gesetzt werden. Ungültiger Eigenschaftswert.

Eine andere Idee?

Scorefun · 22. Januar 2020

Achso...falsch interpretiert...

Das markieren eines Listbox-Eintrages erfolgt mit dem List-Index

https://www.ms-office-forum.net/foru...d.php?t=328695

Werner.M · 22. Januar 2020

Hallo,

dann ist entweder der Wert aus Zelle R13 in ListBox1 nicht vorhanden oder der Wert aus Zelle R15 in ListBox 2 nicht vorhanden, je nachdem wo du die Fehlermeldung bekommst.

Gruß Werner

Glühkohle · 28. Januar 2020

Hatte den Code gemäß der verlinkten Seite angepasst. Der Code ist jetzt nur für den Fall, das in beiden Listen etwas eigentragen werden soll.

Code:

Private Sub Maschine_lesen1()
Dim i As Long
Dim j As Long
If (Worksheets("Tabelle1").[O13].Value = 1 Or Worksheets("Tabelle1").[O14].Value = 1) And (Worksheets("Tabelle1").[O15].Value = 1 Or Worksheets("Tabelle1").[O16].Value = 1) Then
For i = 0 To ListBoxMasch1.ListCount - 1
If ListBoxMasch1.List(i) = Worksheets("Tabelle1").Range("R13").Text Then
ListBoxMasch1.Selected(i) = True
End If
Next
For j = 0 To ListBoxMasch2.ListCount - 1
If ListBoxMasch2.List(j) = Worksheets("Tabelle1").Range("R15").Text Then
ListBoxMasch2.Selected(j) = True
End If
Next
End If
End Sub
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

Ich habe es jetzt mit Stopmarkierung ausgeführt. Der Code funktioniert genau bis zum ersten "Next". Sobald er in die For-Schleife springt für die ListBoxMasch2, löscht er das raus was da drinne steht in Tabelle R15. Ich verstehe das nicht. Es bleibt bei dem Problem - egal welchen Code man verwendet. Wenn man zuerst ListBoxMasch2 markieren lässt, dann wird das raus gelöscht, was der Begriff für ListBoxMasch1 ist - also Feld O13.

Vielleicht fällt jemandem noch etwas ein. *frown.gif*

Danke
BG die Kohle

Glühkohle · 28. Januar 2020

Das Problem hat sicher erledigt. Manchmal sieht man halt den Wald vor lauter Bäumen nicht *cool.gif*
Auf Grund meines letzten Post und einer Nacht drüber geschlafen, bin ich selber auf die Lösung gekommen.
Ich speichere mir gleich zu Beginn den Text in eine Variable ab und lass dann die Listbox nach der Variable durchsuchen und nicht nach dem Text in dem Feld der Tabelle, welcher ja aus irgend einem Grund immer geleert wird.
Mein Code sieht jetzt halt so aus:
Code:

Private Sub Maschine_lesen1()
Dim i As Long
Dim j As Long
Dim a As String
Dim b As String
a = Worksheets("Tabelle1").Range("R13").Text
b = Worksheets("Tabelle1").Range("R15").Text
If (Worksheets("Tabelle1").[O13].Value = 1 Or Worksheets("Tabelle1").[O14].Value = 1) And (Worksheets("Tabelle1").[O15].Value = 1 Or Worksheets("Tabelle1").[O16].Value = 1) Then
For i = 0 To ListBoxMasch1.ListCount - 1
If ListBoxMasch1.List(i) = a Then
ListBoxMasch1.Selected(i) = True
End If
Next
For j = 0 To ListBoxMasch2.ListCount - 1
If ListBoxMasch2.List(j) = b Then
ListBoxMasch2.Selected(j) = True
End If
Next
End If
End Sub
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

Office: (Office 2016) 2 Listboxen gleichzeitig markieren

2 Listboxen gleichzeitig markieren

2 Listboxen gleichzeitig markieren

2 Listboxen gleichzeitig markieren

2 Listboxen gleichzeitig markieren - Similar Threads - Listboxen markieren

Listbox wird nicht breiter, Schriftgrösse ändert sich

Listbox Sortierung

VBA ListBox markieren wenn Eintrag gefunden

in Listbox Datensätze markieren

Eintrag in Listbox finden und Markieren

Zeilen markieren ud löschen über Listbox

ausgewählte Elemente einer Listbox nach erneutem Aufrufen automatisch markieren