Noch einmal eine Frage zu Listboxen.
Gabor hatte mir gestern geantwortet, aber ich habe seine Idee nicht richtig umsetzen können.
Vielleicht kann mir jemand noch mal auf die Sprünge helfen.
Das Problem:
In einer Tabelle (Tabellenbereich "A5:Z100") habe ich in der Spalte "A" eine Auswahlmöglichkeit mit einem "x".
Ist dieses "x" vorhanden, wird die Zeile markiert.
In den Spalten B und D stehen die Bauteilbezeichnungen.
Ab der Spalte "E" trage ich immer aktuelle Ereignisse mit einem Datum manuell hinein.
Ich lade nun über eine Userform 2 Listboxes hoch. In der einen ersten Listbox (Listbox1) stehen nur die
mit "x" markierten Zeilen des Tabellenblattes (die Bauteilbezeichnung).
In der zweiten Listbox (Listbox2) sollen nun nach einen Klick auf den Eintrag in der "Listbox1" die Inhalte aller
Spalten ab Spalte "E" der betreffenden Zeile zu sehen sein.
Das Laden der Userform mit der Listbox1 klappt schon, aber der Rest ??? Kann mir jemand weiterhelfen ?
Mein Laden der Userform:
Private Sub UserForm_Initialize()
For Z = 1 To 200
If Sheets("Chronik").Cells(Z, 1).Value = "x" Then
Listbox1.AddItem Sheets("Chronik").Cells(Z, 3).Value & _
Sheets("Chronik").Cells(Z, 5).Value
For InhaltStö = 10 To 256
Listbox2.AddItem Sheets("Chronik").Cells(Z, InhaltStö).Value
Next InhaltStö
Listbox1.ListIndex = 0
End If
Next Z
End Sub
Gruß Axel