TextBox gibt keinen Text aus

[Daniel555]

Moin Moin liebe Glaubensgemeinde , 

Das ist der Code :

          
     If TextBox4.Value = True Then
Worksheets("Stammdaten").Range("E4").Value = ******.TextBox4
Else: Worksheets("Stammdaten").Range("E4").Value = " - - - "
End If      


Wenn kein Wert eingetragen wird , dann kommt - - - so wie ich das möchte . Trage ich jedoch ein Wort ein , wird wieder nur der Wert ausgegeben - - - .
Trage ich hingegen Zahlen ein , dann werden die Zahlen ausgegeben .

Value heißt ja Wert, aber ersetzte ich es mit Text funktioniert es nicht . 

Wäre bitte jemand so nett und hilft mir da bitte auf die Sprünge ?

vielen dank

[NobX]

Hallo Daniel,

versuch es mal mit: Not Is Enpty anstelle von True (ungetestet).

Grüße

Norbert

[Daniel555]

Hilft leider nicht weiter.

[00202]

Hallo,

probiere es mal so:

Code:

If Trim(TextBox4.Value) <> "" Then

[Daniel555]

vielen dank , tip top 

[00202]

Hallo,

falls es dich interessiert - es gibt schnellere Schreibweisen:

Code:

If Trim$(TextBox4.Text) <> vbNullString Then

Oder besser:

Code:

If LenB(Trim$(TextBox4.Text)) <> 0 Then

Begründung...