Listboxeintrag prüfen
27.07.2022 09:56:48
Tim
ich möchte gern einen Listboxeintrag prüfen und wenn er einem Wert entspricht, in eine Tabelle schreiben.
Mein Problem daran ist, dass er die IF-Abfrage nicht greift.
Um den Grund dafür herauszufinden, habe ich eine MSGBOX vorgeschaltet, die sagt, dass der gesuchte Wert vorhanden ist, dennoch liefert die IF-Abfrage, dass der Wert nicht da ist, woran kann das liegen?
Sub Test_neuer_Eintrag()
Dim i as Long
Set Datenbank = Workbooks("Test.xlsx")
Set DB_Blatt = Datenbank.Worksheets("Tabelle1")
letzteZeile = DB_Blatt.Cells(DB_Blatt.Rows.Count, 1).End(xlUp).Row
NächsteZeile = 1
With UserForm3.Übersicht
For i = 0 To .ListCount - 1
MSGBOX .List(i,9)
If .List(i, 9) = "hinzugefügt" Then ' Wenn Eintrag erst hinzugefügt wurde
Do
If DB_Blatt.Cells(NächsteZeile, 1) = "" Then
DB_Blatt.Cells(NächsteZeile, 1) = "Test"
Exit Do
End If
NächsteZeile = NächsteZeile + 1
Loop While NächsteZeile