Habe die Lösung schon fast bekommen, möchte mein Userform aber noch bedienerfreundlicher gestalten.
In einer Userform wird eine Listbox1 mit Daten gefüllt.
Nun möchte ich gern die Daten in eine Textbox2 und einen anderen Datensatz in eine andere Textbox3 übernehmen.
Für die erste Textbox klappt das so:
Private Sub ListBox1_enter()
Sheets("Frei Ports").Select
Dim LoLetzte As Long
LoLetzte = 65536
If Range("A65536") = "" Then LoLetzte = Range("A65536").End(xlUp).Row
ListBox1.RowSource = "A1:A" & LoLetzte
End Sub
Option Explicit
Dim z As Byte
Private Sub ListBox1_Click()
If z = 0 Then
TextBox2 = ListBox1
z = 1
ElseIf z = 1 Then
TextBox3 = ListBox1
z = 0
End If
End Sub
Erstmal Danke es funktioniert auch
Nun mein Wunsch!
ich glaube wenn man mit einem Optionsbutton eine Auswahl vornimmt kann man das besser händeln.
Nun mein Problem wie geht das
Also mit enter wird eine Listbox1 gefüllt.
Dann mit Optionbutton1 makiert Textbox2 aus der Liste füllen
Dann mit Optionbutton2 makiert Textbox3 aus der Liste füllen
Vieleicht kann jemand mir nochmal Hilfestellung geben.
Mit Dank im Voraus
Gruß Peter