Ich habe in einer Userform eine Textbox (TB2) bei welcher Multiline und Wordwrap auf True gesetzt sind.
Nun wenn ich einen Text eingebe und einen Zeilenumbruch machen will mit der ENTER-Taste, schreibt es in die definierte Zelle anstatt nur des Zeilenumbruchs ein Sonderzeichen hinein. Das Sonderzeichen ist ein leeres Quadrat....
Ist es möglich diesen Zeilenumbruch ohne Sonderzeichen einzugeben?
Es sollte so sein wie wenn ich direkt in der Zelle den Zeilenumbruch mit ALT-ENTER mache.
Hier der Code für das Einfügen in die Zelle:
Sub SatzEinfuegen()
'Heutiger Datensatz speichern
Dim n As Integer, zei As Long, i As Integer
Application.EnableEvents = False
Application.ScreenUpdating = False
Call SchutzAus
zei = 0
For i = 1 To 31 'Schlaufe für heutigen Tag/Zeile bestimmen
Cells(i + 2, 1) = i
If Sheets("Hilf").Cells(i + 2, 6) = Date Then
zei = i + 2
Exit For
End If
Next i
For n = 2 To 28 'Vorgesehen bis Spalte 28
If Datenmaske.Controls("TB" & n).Value >= "" Then
Cells(zei, n).Value = Datenmaske.Controls("TB" & n).Value
End If
Next n
End Sub
Gruss Sascha