UF, Listbox, Mehrfachausw., Values

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

Eine Mehrfachauswahl fragt man mit if listbox1.selected (index) ab.
Das eigentliche Problem ist die Zuordnung der Listenwerte zu den Zellinhalten. Das passiert wenn man die Listboxen/Comboboxen von den Zellinhalten abkoppelt.
Siehe dein oDic Objekt.
Du hast zwar die Eindeutigen Inhalte aber keinen Bezug mehr zur Tabelle.
Zitat: 'hier fehlt mir die Idee:
Zitat: 'in jeder Zeile im Bereich Tabelle1, Zeile 2 bis zur letzten befüllten Zeile - das kannst du ohne Hilfe
Zitat: 'wenn Zelle in Spalte 6 = TextBox1.Text UND - das sicher auch
Zitat: 'wenn Zelle in Spalte 3 = einer der Auswahl aus Listbox1 DANN - hier for scheife über selected eigenschaft
Zitat: 'zelle in Spalte 7 = "gebucht" - easy wenn du die Zeile kennst.
Eine Idee wäre du erzeugst aus den selected Einträgen sowas wie oDic. Dann eine Schleife über deine Tabellenzeilen. darin die Bedingunfen abfragen für die Strassennamen fragst du dein oDic2 mittels exists ab ob die Strasse in der Liste ist.
https://www.oreilly.com/library/view/vb-vba/1565923588/1565923588_ch07-534-fm2xml.html

"Jetzt möchte ich in einer Tabelle in Spalte 7 einen Eintrag vornehmen lassen, wenn 1. in Spalte 6 der Wert gleich dem Wert aus Textbox1 ist UND 2. der Wert in Spalte 3 einem Wert der Mehrfachauswahl in der Listbox1 " ?

Hallo Zusammen,
danke, dass Ihr euch mit meinem Problem beschäftigt.
Es gibt 5 Einträge mit der 67.
Mein Problem ist, dass ich auf eine Datei zugreifen muss, bei der jede Menge falschen Eingaben gemacht wurden.
Ich schaue mir alle 67-iger an. Dann kann ich anhand der (auch teilweise falsch geschriebenen) Strassennnamen herausfinden, wer den Eintrag "gebucht" erhalten soll.
Ich hab jetzt meinen Code für den CommandButton1 wie folgt ergänzt:


Dim i As Integer
Dim a() As String
For i = 0 To ListBox1.ListCount - 1
If ListBox1.Selected(i) = True Then
ReDim Preserve a(i)
a(i) = ListBox1.List(i, 0)
End If
Next i

in der Hoffnung, dass jetzt die in Listbox1 ausgewählten Strassennamen in dem Array "a" enthalten sind. Ist das richtig?
Jetzt könnte ich ja prüfen lassen, ob die Strasse in der jeweiligen Zelle eine Teilmenge aus dem Array ist - oder?

Private Sub CommandButton1_Click() Dim oDic2 As Object Set oDic2 = CreateObject("Scripting.Dictionary") Dim i As Integer For i = 0 To ListBox1.ListCount - 1 If ListBox1.Selected(i) Then oDic2(ListBox1.List(i, 0)) = 0 End If Next With Sheets("Tabelle1") For i = 2 To .Cells(Rows.Count, 6).End(xlUp).Row If Cells(i, 6) = CDbl(TextBox1.Text) And oDic2.exists(Cells(i, 3).Value) Then Cells(i, 7) = "gebucht" End If Next End With MsgBox "erledigt" End Sub

Private Sub CommandButton1_Click() Dim i As Integer Dim RefListe As String For i = 0 To ListBox1.ListCount - 1 If ListBox1.Selected(i) Then RefListe = RefListe & ";;" & ListBox1.List(i, 0) Next With Sheets("Tabelle1") For i = 2 To .Cells(Rows.Count, 6).End(xlUp).Row If Cells(i, 6) = CDbl(TextBox1.Text) And InStr(1, RefListe, (Cells(i, 3).Value), vbTextCompare) Then Cells(i, 7) = "gebucht" End If Next End With MsgBox "erledigt" End Sub

Beliebteste Forumthreads (12 Monate)

UF, Listbox, Mehrfachausw., Values

18
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Links zu Excel-Dialogen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

UF, Listbox, Mehrfachausw., Values

18 Beiträge zum Forumthread Beiträge zu diesem Forumthread

Links zu Excel-Dialogen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

18
Beiträge zum Forumthread

Beiträge zu diesem Forumthread