---

Hallo Leute,
leider bin ich auf dem Gebiet VBA nicht sehr Bewandert desshalb meine Frage:

Wie kann ich den Inhalt von Zellen aus einer Exel Tabelle einer ListBox die sich in einer Userform befindet die wiederum innerhalb einer Exel Tabelle verwendet wird zuordnen?

Bisher habe ich nur einen Quelltext der es mir ermöglicht den Text der in der Listbox steht unter VBA Oberfläche zu ändern siehe hier:

Private Sub CommandButton2_Click()
wahl = ListBox1.Text
Unload UserForm10
If wahl = "Person 1" Then
Range("A1").Select
    ActiveCell.Formula = "Person 1"
    Sheets("Tabelle3").Select

End If
End Sub

Private Sub UserForm_initialize()

ListBox1.AddItem "Person 1"
ListBox1.AddItem "Person 2"
ListBox1.AddItem "Person 3"
ListBox1.AddItem "Person 4"
ListBox1.AddItem "Person 5"
ListBox1.AddItem "Person 6"
ListBox1.AddItem "Person 7"
ListBox1.AddItem "Person 8"
ListBox1.AddItem "Person 9"

End Sub

ich möchte also das ich in der Listbox einen Namen auswählen kann der dann irgendwo eingefügt wird was ich ja bereits habe. Allerdings soll der Inhalt der Listbox Bezug auf Zellen in einer Exel Mappe nehmen.

bitte um hilfe wenn möglich kurzer quellcode.
mfg christian

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP

---

Dreifaches Hallo und welcome ;-)

du brauchst nur bei Additem auf die Zelle [Tabellenangabe nicht vergessen] verweisen:

Code:

---

listbox1.additem sheets("Tabelle1").range("A1").value
'oder für Bereich A1:A10
for i=1 to 10
  listbox1.additem sheets("Tabelle1").cells(i,1).value
next

---

Gruss Nancy

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP