Listboxauswahl gegen Tabelle prüfen

Private Sub CommandButton2_Click() Dim i As Integer, lngListcount1 As Long For i = 2 To Sheets("Tabelle1").Range("A65536").End(xlUp).Row For lngListcount1 = 0 To UserForm1.ListBox1.ListCount - 1 If CLng(UserForm1.ListBox1.List(UserForm1.ListBox1.ListIndex, 0)) = CLng(Sheets("Tabelle1"). _ Cells(i, 1)) Then Sheets("Tabelle1").Cells(i, 2) = "Test" Else Sheets("Tabelle1").Cells(i, 2) = "nope" End If Next Next End Sub

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

Private Sub CommandButton2_Click() Dim i As Integer, lngListcount1 As Long For i = 2 To Sheets("Tabelle1").Range("A65536").End(xlUp).Row For lngListcount1 = 0 To UserForm1.ListBox1.ListCount - 1 If CLng(UserForm1.ListBox1.List(lngListcount1, 0)) = CLng(Sheets("Tabelle1").Cells(i, 1)) Then Sheets("Tabelle1").Cells(i, 2) = "Test" Else Sheets("Tabelle1").Cells(i, 2) = "nope" End If Next Next End Sub

Hi
als allererstes solltest du lernen, Codeverhalten genauer zu beobachten und korrekter zu beschreiben.
es wird nämlich nicht der erste Eintrag der Liste verwendet, sondern der letzte!
und das ist immer schon ein Hinweis für die Problemursache:
folgendes:
wenn in einer Zelle der erste Listboxeintrag zutrifft, dann wird "Test" eingetragen.
die Schleife läuft jetzt aber weiter und vergleicht auch die nächsten Listboxinhalte mit der Zelle.
das Ergebnis ist natürlich "nope" und wird in die nachbarzelle geschrieben und überschreibt ein eventuell bereits enthaltenes "Test".
Somit ist natürlich klar, dass immer nur das "Test" des letzten Schleifendurchlaufs stehen bleibt, alle anderen werden überschrieben.
die Abhilfe wäre, dass du die innere Schleife über die Listbox abbrichst, sobald du einen Treffer hast.
dazu gibt es den Befehl: Exit For
welchen du im Falle eines Treffers zusätzlich ausführen müsstest.
allerdings sollte man die Anzahl der schreibenden Zellzugriffe reduzieren.
du könntest auch das "nope" zu beginn in alle Zellen gleichzeitig schreiben, um dann nur das Test bei Treffer einzeln einzutragen.

Private Sub CommandButton2_Click()
Dim i As Long, lngListcount1 As Long
Dim L As Long
L = Sheets("Tabelle1").Range("A65536").End(xlUp).Row
Sheets("Tabelle1").Range("B2:B" & L).Value = "nope"
For i = 2 To L
For lngListcount1 = 0 To UserForm1.ListBox1.ListCount - 1
If CLng(UserForm1.ListBox1.List(lngListcount1, 0)) = CLng(Sheets("Tabelle1").Cells(i, 1) _
) Then
Sheets("Tabelle1").Cells(i, 2) = "Test"
Exit For
End If
Next
Next
End Sub

gruß Daniel

Beliebteste Forumthreads (12 Monate)

Listboxauswahl gegen Tabelle prüfen

4
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Links zu Excel-Dialogen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

Listboxauswahl gegen Tabelle prüfen

4 Beiträge zum Forumthread Beiträge zu diesem Forumthread

VBA Beispiele zu verwandten Themen

Links zu Excel-Dialogen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

4
Beiträge zum Forumthread

Beiträge zu diesem Forumthread