Hallo zusammen,
ich bin neu in der VBA Welt und daher noch etwas beschränkt unterwegs...Meine Frage:ich möchte bei aktivieren der Zellen B7-B22 eine Listbox öffnen (dies funktioniert bereits).In der aktivierten Listbox soll nur der ausgewählte Wert in die entsprechende ausgewählte Zelle übertragen werden.Ab hier wird es knifflig! Ich schaffe bisher nur eine Zelle anzusprechen...Ich habe es mit If versucht aber leider keine Ergebnis bekommen.
Hier der aktuelle Code der funktioniert
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
'Aufrufen ListboxIf Not Intersect(Target, Range("B7:B11")) Is Nothing Then UserForm2.Show
End Sub
Private Sub ButtonLaden()
'Listbox wert auswählen und in zelle übertragen
Range("B7").Value = ListBox1.List(ListBox1.ListIndex)
Unload Me
End SubJ
etzt möchte ich z.B. B9 anklicken und einen Wert aus der Listbox auswählen und dann in B9 übertragen ohne die anderen Werte von B7-B11 zu verändern.Vielen Dank für die Hilfe
ich bin neu in der VBA Welt und daher noch etwas beschränkt unterwegs...Meine Frage:ich möchte bei aktivieren der Zellen B7-B22 eine Listbox öffnen (dies funktioniert bereits).In der aktivierten Listbox soll nur der ausgewählte Wert in die entsprechende ausgewählte Zelle übertragen werden.Ab hier wird es knifflig! Ich schaffe bisher nur eine Zelle anzusprechen...Ich habe es mit If versucht aber leider keine Ergebnis bekommen.
Hier der aktuelle Code der funktioniert
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
'Aufrufen ListboxIf Not Intersect(Target, Range("B7:B11")) Is Nothing Then UserForm2.Show
End Sub
Private Sub ButtonLaden()
'Listbox wert auswählen und in zelle übertragen
Range("B7").Value = ListBox1.List(ListBox1.ListIndex)
Unload Me
End SubJ
etzt möchte ich z.B. B9 anklicken und einen Wert aus der Listbox auswählen und dann in B9 übertragen ohne die anderen Werte von B7-B11 zu verändern.Vielen Dank für die Hilfe