Zeilenumbrüche aus Zelle in TextBox?
06.05.2015 11:52:26
Lisa
ich habe meiner TextBox1 beigebracht, Mehrspaltig auch in die Tabellenzellen zu schreiben.
Private Sub CommandButton1_Click()
With Sheets(11)
.Unprotect
.Range("G13:O15") = Replace(TextBox1.Text, vbCr, "")
.Protect
End With
End Sub
So, wie ich es versuche, wird es nichts, vermutlich muss der Zeilenumbruch auch berücksichtigt werden.
Wenn jemand hierzu eine Idee hat, würde ich mich über jede Hilfe freuen.
Private Sub UserForm_Initialize()
With UF_Zusatz
.Caption = "Zusatzangaben"
If Sheets(11).Range("G13:O15") "" Then
.TextBox1 = Sheets(11).Range("G13:O15")
End If
.Show
End With
End Sub
Liebe Grüße Lisa
Anzeige