ListBox bedingt füllen , bedingt ausgeben
13.01.2019 15:02:17
Markus
Ich baue eine Userform und hab ziemliche Probleme damit da meine VBA Kenntnisse mehr als bescheiden sind. Es wäre toll, wenn mir jemand weiterhelfen könnte.
Ich habe mir etwas Code zusammen gebastelt/Kopiert aber er tut nicht das was er soll:
Private Sub cmdUebernehmen_Click()
'dimension the variable
Dim addme As Range
Dim x As Integer, Ck As Integer
'set variables
Set addme = Tabelle1.Cells(Rows.Count, 1).End(xlUp).Offset(1, 0)
Ck = 0
'run the for loop
For x = 0 To ListBox1.ListCount - 1
'add condition statement
If Me.ListBox1.Selected(x) Then
Ck = 1
addme = Me.ListBox1.List(x)
addme = Me.ListBox1.List(x)
addme.Offset(0, 1) = Me.ListBox1.List(x, 1)
addme.Offset(0, 7) = Me.ListBox1.List(x, 7)
addme.Offset(0, 8) = Me.ListBox1.List(x, 8)
addme.Offset(0, 21) = Me.ListBox1.List(x, 5)
addme.Offset(0, 22) = Me.ListBox1.List(x, 4)
Set addme = addme.Offset(1, 0)
'clear the selected row
ListBox1.Selected(x) = False
End If
Next x
'send a message if nothing is selected
If Ck = 0 Then
MsgBox "Es wurde keine auswahl getroffen"
End If
End Sub
Listbox füllen: Ich will Daten aus Tab2 mit Hilfe einer mehrspaltigen ListBox (Multiselect) in Tab1 eingeben können in einer neuen Zeile Unterhalb der Aktiven Zeile. Allerdings soll die Listbox eine andere Spaltenreihenfolge haben als die Quelle auf Tab2. Die Reihenfolge der Quelle darf ich nicht ändern. Bezogen auf Tab2 wäre die Reihenfolge in der Listbox D , H , G , F , J , K , L , M , N , O , P , Q , R , S , T , U , V , W , X , Y
Auswahl der Listbox ausgeben: Nach Auswahl in der Listbox muss die Ausgabe an den Aufbau der Tabelle auf Tab1 angepasst sein. Es ist so dass es in Tab2 Datenzeilen gibt, die zusammengehören. Diese müssten dann auf Tab 1 in dieselbe Zeile geschrieben werden, wenn sie dieselbe ID habe. Ich habe in der Bsp. Datei die ersten zwei Zeilen von Tab 1 Manuel gefüllt, um es besser klarzumachen.
https://www.herber.de/bbs/user/126712.xlsm
Es wäre echt nett, wenn sich das jemand anschauen könnte. Jeddes Stück Code hilft mir schon.
Grüße Markus