Ganz einfach. Du übergibst den Text an eine Variable, die du dann nach und nach um die bereits verteilten Längen kürzt.

also

Function test()

Dim VarText
VarText = "IrgendeinText"

'Damit hat VarText jetzt den String von Zelle (1:1) übernommen.

'Nun Übergeben wir nach und nach den Inhalt an darunterligende Zellen:

Dim i As Integer, j As Integer
'Wenn wir wissen wie lang eine Zeile sein darf, können wir das ja nun berechnen...

i = Len(VarText) / 80


'also zB 1284 geteilt durch 80 Zeichen pro Zeile = 16,05, also 17 Zeilen
'Ist der Text weniger lang als 80 kommt 0 bei raus. Bei 176 Zeichen zB 2. Also zählen wir nun zu i
'einfach 1 dazu, dann haben wir die anzahl der Zeilen die wir anfügen müssen:

i = i + 1

For j = 1 To i 'nun gehen wir duch die schleife, bis zum Ende:
Cells(j + 1, 1) = Left(VarText, 80)
'und nun kürzen wir einfach VarText um diese 80 Zeichen
VarText = Mid(VarText, 80)
Next j

End Function

ein bisschen an deine Tabelle anpassen und ändern, dann sollte dir die Funktion eigentlich das wegschreiben was du wolltest...

Gruß Leo

Vielen Dank! :) hat mir sehr geholfen