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
Wie aber gelingt es mir den Text aus der Zelle wieder in die TextBox1 zuholen?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