ListBox ändert Tabelle
21.02.2023 13:30:57
Antonio
Ich habe diese Szenario:
ListBox7 - Listbox1 - Listbox9
A -123456 -abcdef
B -987654 -lmnopq
C -100300
A -252525
C -666555
Listbox7 Bezeichnungen
Listbox1 Daten zur Bezeichnung
Listbox9 Alternative Bezeichnungen
Über UF Initialize, werden ListBox7 und listbox1aus tabelle gefüllt:
For lng = 32 To wks1.Cells(rows.Count, 10).End(xlUp).row
If Sheets("Neuer_Song").Cells(lng, 10) > "" Then
ListBox7.AddItem
ListBox7.List(ListBox7.ListCount - 1, 0) = wks1.Cells(lng, 10).Value
ListBox1.AddItem
ListBox1.List(ListBox1.ListCount - 1, 0) = wks1.Cells(lng, 27).Value
ListBox1.List(ListBox1.ListCount - 1, 1) = wks1.Cells(lng, 28).Value
ListBox1.List(ListBox1.ListCount - 1, 2) = wks1.Cells(lng, 29).Value
ListBox1.List(ListBox1.ListCount - 1, 3) = wks1.Cells(lng, 30).Value
ListBox1.List(ListBox1.ListCount - 1, 4) = wks1.Cells(lng, 31).Value
ListBox1.List(ListBox1.ListCount - 1, 5) = wks1.Cells(lng, 32).ValueÜber listbox7 wird listbox9 gefüllt:
Private Sub ListBox7_Click() 'Bünde aufrufen
Dim a, rF As Range
Sheets("Bünde").Activate
With Sheets("Bünde")
Set rF = Columns(1).Find(What:=ListBox7, LookAt:=xlWhole)
a = Range(rF, rF.End(xlDown).Offset(-1)).Offset(, 1).Resize(, 6)
End With
With ListBox9
.Clear
.List = a
End With
Label79.Caption = ListBox9.ListCount - 1 & " " & "Einträge gefunden"Beim auswählen einer Bezeichnung in listbox7,
scrollt listbox1 syncron mit auf die entsprenden Daten.
In listbox9 sind jetzt die alternativ Daten zur der Bezeichnung.
Durch click in listbox9, werden die alternativ Daten in sechs Textbox aufgenommen
und in listbox1 (der selektiert Item) durch diese ersezt
und in der Tabelle werden auch die Werte ersezt.
So Ich hoffe bis hier alles OK!
Mein Problem ist:
wenn ich zB.nur ein "A" ersezten will
werden aber alle "A" ersezt mit dem gleichen Wert.
Es kommen mehrere gleiche Bezeichnungen in der Tabelle vor und ich würde sie gerne einzeln bearbeiten.
Ich hoffe ihr versteht was ich meine,
kann ich leider keine Mappe zur Verfügung stellen weil zu groß, umfangreich und spielt sich alles über mehrere Tabelle.
Vielen Dank im Voraus
LG Antonio