SpalteA nach Zahl durchsuchen
30.04.2016 11:57:05
Peter
ich finde leider keine Lösung.
Ich habe eine Userform und möchte die Spalte A der Tabelle1 nach einem Wert in TextBox1 durchsuchen. Es handelt sich aber nicht um Text sondern um eine Dezimalzahl.
In die TextBox1 wird z. B. 0,50 eingegeben. In der Spalte A formatiert auf Zahl mit
zwei Dezimalstellen soll diese Zahl gefunden werden. Ist diese vorhanden, erfolgt
Abbruch exit sub - ist diese nicht vorhanden soll der Wert der Textbox1 in der Tabelle1 in der ersten freien Zelle eingefügt werden.
Habe bisher folgenden Code:
Private Sub CommandButton1_Click()
Dim rng As Range
'Spalte A nach wert durchsuchen
Set rng = Sheets("Tabelle1").Range("A:A").Find(What:=(TextBox1.Text), LookAt:=xlWhole, LookIn:= _
xlValues)
'Wenn wert entdeckt
If Not rng Is Nothing Then
MsgBox "Duplikat entdeckt"
Exit Sub
Else
MsgBox "Kein Duplikat entdeckt."
End If
End Sub
Ich weiss, dass eine TextBox zuerst einmal Text sucht die funktioniert auch
aber ich benötige die Suche einer Dezimalzahl.
Wäre toll, wenn ihr mir helfen könnt.
Gruss Peter
Anzeige