Hi,
ich hab in einem VBA Code folgendes Code-Element was ich gern abändern will.
Aktuell lässt mir der Code nur Zahlen ( CDbl ) zu ich möchte aber auch Text damit erkennen / auswählen können.
Wie muss ich den Code abändern, das auch Text akzeptiert wird
If CboDeliveryOrder.Value <> "" Then
strsuchen = CDbl(CboDeliveryOrder)
Worksheets("Record").Select
Worksheets("Record").Range("Delivery").Cells.Find(What:=strsuchen, lookat:=xlWhole).Select
End If
Gruß
Florian
|