Listbox mit Wert aus Zelle füllen
06.05.2016 12:07:04
Frank
ich habe folgendes vor: Ich erstelle eine Listbox, die Wert zieht Excel aus VBA direkt. Das angeklickte Element wird in die Zelle D12 geschrieben. Wenn das Formular jetzt noch einmal mittels Button aufgerufen wird, soll der Wert der Zelle als Auswahl in der Listbox aktiviert werden. Damit möchte ich folgendes erreichen:
Beim ersten Aufrufen des Formulars können die Werte eingegeben werden. Wenn das Formular erneut aufgerufen wird, können die bereit erfassten Werte korrigiert oder geändert werden. Folgenden Code habe ich:
Private Sub UserForm_Initialize() 'Initializiert die Elemete im Formuar beim Aufruf
With Me.ListBox_Objektart
.AddItem "Einfamilienhaus"
.AddItem "Zweifamilienhaus"
.AddItem "Eigentumswohnung"
End With
End Sub
Private Sub CommandButton_Bestätigen_Click()
Worksheets("Ihr Wunschobjekt").Range("D12") = ListBox_Objektart
End Sub
Wie kann ich VBA jetzt dazu bringen, den Wert aus D12, z. B. Einfamilienhaus, in meiner Listbox zu aktivieren? Das Arbeitsblatt ist übrigens gesperrt, die in D12 eingetragenen Werte entsprechen also immer der Listbox.
Gruß
Frank
Anzeige