Bei Suche "Typen unverträglich"
07.06.2023 13:33:37
Frank H.
Hallo Zusammen,
beim Verlassen der TextBox1 wird folgender Code ausgeführt:
Private Sub TextBox1_Exit(ByVal Cancel As MSForms.ReturnBoolean)
For lng = 2 To 222
If Sheets("Datenbestand").Cells(lng, 1) = CDbl(TextBox1) Then
TextBox2 = Sheets("Datenbestand").Cells(lng, 2)
TextBox3 = Sheets("Datenbestand").Cells(lng, 3)
End If
Next lng
End Sub
Soweit so gut, wenn in Spalte 1 und der TextBox 'ne Zahl steht.
Nehme ich CDbl weg wird nix gefunden, aber in Spalte 1 kann aber auch mal 47a stehen, gebe ich dann in TextBox1 47a ein kommt "Typen unverträglich".
Wie kann ich bewerkstelligen das er reine Zahlen, aber auch Zahlen mit Buchstaben findet?
Für jeden Rat sehr dankbar.
L.G. Frank H.