Ich habe in ein Tabellenblatt eine Listbox integriert (Symbolleiste Steuerelement-Toolbox) im Fenster Eigenschaften den ListFillRange "A1:A15" sowie den Wert in LinkedCell "E1" eingetragen. Mit Hilfe des folgenden VBA-Codes wir der aus der Listbox ausgewählte Wert in die aktuelle Zelle übertragen:
Private Sub ListBox1_Click()
ActiveCell.Select
ActiveCell = Worksheets("Tabelle1").Range("E1").Value
End Sub
Das funktioniert soweit alles prima. Allerdings kann ich einen einmal aus der Listbox ausgewählten Wert nicht ein zweites mal an eine andere aktive Zelle übergeben. In diesem Fall geht der Focus immer an die Listbox zurück und bleibt dort "hängen" und die Zellmarkierung im Tabellenblatt verschwindet. Ich komme da einfach nicht weiter. Hat mir vielleicht jemand einen Tip?
Besten Dank.
Gruss Daniel