|
Hallo Zusammen,
ich arbeite erst kurz mit VBA und versuche gerade folgendes innerhalb einer Userform: Leider kann ich keinen Screenshot einfügen. Es gibt evtl. bessere Lösungen, sorry. Ich habe eine Tabelle mit Namen und deren persönliche Daten für Storylines.
In SPALTE B ("B9:B110") stehen Begriffe wie z.B. Wohnsitz, Ausbildung, Charakter etc.
Ab SPALTE D ("D9:D110") gibt man die dazugehörigen Daten für jeden Charakter ein.
Die Namen der Charaktere stehen in ZEILE 3, SPALTEN (D3:AP3), mit jeweils einer freien SPALTE dazwischen.
Ist es möglich, über ein Kombinationsfeld einen dieser Namen auszuwählen und in der Listbox die schon gemachten Einträge als Zusammenfassung anzeigen zu lassen? Das hieße, nicht nur "WOHNSITZ" in SPALTE B, sondern auch der passende Eintrag "LONDON" in SPALTE D sollte in der ListBox erscheinen. Folgenden Code konnte ich basteln. Fehlermeldung gibt es keine, die Listbox und Combobox bleiben aber leer.
Private Sub ComboBox1_Change()
Me.ListBox1.ListIndex = Me.ComboBox1.ListIndex
Dim mySearchRng As Range
Dim myFindRng As Range
Dim myValToFind As Variant
With Worksheets("PROFILING")
myValToFind = ComboBox1.Value
Set mySearchRng = .Columns("D")
End With
ListBox1.AddItem
With ListBox1
.List(.ListCount - 4, 0) = myFindRng.Value
.List(.ListCount - 6, 1) = myFindRng.Offset(0, 2).Value
.List(.ListCount - 8, 2) = myFindRng.Offset(0, 3).Value
.List(.ListCount - 10, 3) = myFindRng.Offset(0, 4).Value
.List(.ListCount - 12, 4) = myFindRng.Offset(0, 5).Value
End With
End Sub
Ist wahrscheinlich etwas kompliziert. Trotzdem vielen Dank im Voraus für Vorschläge. Gruß Marc
|