If-Anweisung erkennt Text in Zelle nicht
23.12.2020 13:16:35
DOMINIK
leider suche ich schon wieder seit Stunden vergebens nach einer Lösung für einen Code. Es ist bestimmt nur eine Kleinigkeit und schnelle zu Lösen für euch. Ich würde mich sehr freuen wenn Ihr mir helfen könnt.
Wenn ich mit dem nachfolgenden Code aus der Textbox1 den Text splitte und in Zellen einfüge, und ich anschließend mit den Zellen eine If-Anweisung ausführen will erkennt die If-anweisung den Text in der Zelle nicht. Dieser wird erst erkannt wenn ich den Text ohne Textbox in die Zelle schreibe.
Private Sub CommandButton5_Click()
Dim rng As Range
Dim lngZeile As Long
Dim arr As Variant
Dim arr2 As Variant
'Spalte A na1ch Wert durchsuchen
Set rng = Sheets("Kunden").Range("a:a").Find(what:=TextBox17.Value, lookat:=xlWhole, LookIn:= _
xlValues)
'Wenn Wert gefunden
If Not rng Is Nothing Then
lngZeile = rng.Row
arr = Split(TextBox1, vbLf)
Sheets("Kunden").Range(Sheets("Kunden").Cells(lngZeile, 3), Sheets("Kunden").Cells(lngZeile, 3 + _
UBound(arr, 1))) = arr
End If
End Sub
Wenn ich jetzt einen If-Befehl starte mit if sheets("Kunden").cells.(2, 3) = "Text" then, macht er das nicht
gruß dominik