ich habe folgendes Problem. Ich füge mit folgendem Code Text aus Textboxen einer UserForm in eine Zelle ein.
Sheets("Daten").Cells(erste_freie_Zeile, 8) = txtMenge1.Text & Chr(10) _
& txtMenge2.Text & Chr(10) _
& txtMenge3.Text & Chr(10) _
& txtMenge4.Text & Chr(10) _
& txtMenge5.Text & Chr(10) _
& txtMenge6.Text & Chr(10) _
& txtMenge7.Text & Chr(10) _
& txtMenge8.Text & Chr(10) _
& txtMenge9.Text & Chr(10) _
& txtMenge10.Text & Chr(10) _
& txtMenge11.Text & Chr(10) _
& txtMenge12.Text & Chr(10) _
& txtMenge13.Text & Chr(10) _
& txtMenge14.Text & Chr(10) _
& txtMenge15.Text
Mein Problem ist, dass nicht immer alle Textboxen mit Text gefüllt werden. Ich bekomme aber grundsätzlich alle Zeilenumbrüche in meiner Zelle. Wie kann ich die überflüssigen Zeilenumbrüche entfernen ?
Über Hilfe hierzu würde ich mich sehr freuen.