Probleme mit Code zum Finden von Übereinstimmungen
01.12.2004 13:26:37
Übereinstimmungen
ich habe da mal wieder ein Problem, hinter das ich nicht komme. Zunächst mal meinen Code, wie ich ihn zum Testen benutze.
Private Sub CommandButton2_Click()
'Letzte beschriebene Zeile in Blatt "Liste" ermitteln
Zeile = Worksheets("Liste").Range("A65536").End(xlUp).Row 'Offset(1, 0).
'Eingegebener Begriff aus ComboBox für KDNR in Variable Suchbegriff schreiben
Suchbegriff = ComboBox1
'For/Next Schleife zur Suche einer Übereinstimmung zu dem Suchbegriff
For Wiederholungen = 2 To Zeile
'Wenn Übereinstimmung gefunden, dann Datum aus Textfeld 14 in die entsprechende
'Zeile in Spalte K als Datumsformat eintragen
If Suchbegriff = Worksheets("Liste").Cells(Wiederholungen, 4) Then
MsgBox Wiederholungen
'Worksheets("Liste").Cells(Wiederholungen, 11) = CDate(TextBox14)
End If
Next Wiederholungen
End Sub
Ich versuche eine Übereinstimmung mit einem aus einer ComboBox ausgewählten Begriff zu finden.. Nur leider funktioniert dass nicht so, wie ich es mir vorgestellt habe. Wenn in einer Zelle in der Spalte, die durchsucht werden soll, z.B. Test steht, dann wird mir in der MsgBox, die Zahl der Wiederholung angezeigt. Steht dort aber z.B. eine Zahl, wird keine Übereinstimmung gefunden. Warum nicht. Ich komme einfach nicht dahinter. Deshalb baue ich nun auf Euch. Last mich nicht im Stich.
Besten Dank im Voraus,
Oliver