|
(50) ListBox ausgewählten Eintrag auslesen | Excel VBA - YouTube
Hallo Ich bräuchte mal Unterstützung
Von diese Video, habe ich meine eigene ListBox erstellt.
Spieler Namen kommen aus eine Datenbank, und möchte noch weitere Namen in Zellen einfügen.
In der erste Zelle schon, nur wenn ich mit Range weiter schreibe, hab ich Doppelt oder dreifach.
Selbe name drinne wie in der Erste Zelle.
Danke im Voraus
LG Tomi
Private Sub btnLaden_Click()
Call Laden
End Sub
Private Sub lbCwl_DblClick(ByVal Cancel As MSForms.ReturnBoolean)
Call Laden
End Sub
Private Sub UserForm_Initialize()
Dim Zeile As Long
'Schleife über alle Zeilen der Tabelle
For Zeile = 11 To tb_Datenbank.Cells(Rows.Count, 3).End(xlUp).Row
'ListBox befüllen
Me.lbCwl.AddItem tb_Datenbank.Cells(Zeile, 5).Value
Next Zeile
End Sub
Private Sub Laden()
'ListBox auslesen und Element in Zelle schreiben
Range("Cwlspieler").Value = lbCwl.List(lbCwl.ListIndex)
'UserForm schließen
Unload Me
End Sub
Diese ist für meine Tabelle (Cwl) geschrieben
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
'abbrechen wenn mehr als eine Zelle ausgewält wurde
If Target.Count > 1 Then Exit Sub
'Prüfen, ob wir in der Zelle Spieler sind
If Not Intersect(Target, Range("Cwlspieler:B114")) Is Nothing Then UfCwl.Show
End Sub
|