Habe gestern folgenden Code erhalten, der mir automatisch meinen Text nach 100 Zeichen trennt und in eine neue darunterliegende Zelle schreibt.
Private Sub Worksheet_Change(ByVal Target As Range)
Const MaxZeichen As Long = 100
Const TrKZ As String = " "
Dim Txt As String, Txt1 As String, Txt2 As String
Dim Pos As Long
if Intersect(Target, Range("L28:L500, D28:D500, C28:C500")) is nothing then exit sub
If Target.Cells.Count > 1 Then Exit Sub
Txt = Target.Text
If Len(Txt)
In dieser Zeile kann ich ja mehrere Spalten ansprechen:
if Intersect(Target, Range("L28:L500, D28:D500,C28:C500")) is nothing then exit sub
Ist es möglich das alles so umzuschreiben, das ich bei verschiedenen Spalten verschiedene Werte angeben kann? Im Moment isses ja so, das bei den drei Spalten nach 100 Zeichen ein Umbruch erfolgt.
In Spalte D benötige ich 32 Zeichen, in L 15 und in C sind es 60 Zeichen.
Kann mir hierbei jemand behilflich sein, das so umzuschreiben?
LG Gerhard