Excel VBA Text in Zelle zu lang

Computer: Software & Programmierung Visual Basic
#1

Hallo

Ich habe folgendes Problem. In einer Arbeitsmappe sind längere Artikelnamen in drei untereinander stehenden Zellen gespeichert. Diese Artikelnamen sollen jetzt in eine andere Arbeitsmappe übertragen werden, und dort in eine Zelle mit fester Grösse geschrieben werden. Wenn der Artikelname für die Zelle zu lang ist, soll der Rest der in die erste Zelle nicht mehr passt in die Zelle darunter geschrieben werden.
Das Übertragen der Daten funktioniert, ich weiss jedoch nicht wie ich diesen Zeilenumbruch mit VBA realisieren soll.

Vieln Dank schon mal im Vorraus

Matin

#2

Ich habe folgendes Problem. In einer Arbeitsmappe sind längere
Artikelnamen in drei untereinander stehenden Zellen
gespeichert. Diese Artikelnamen sollen jetzt in eine andere
Arbeitsmappe übertragen werden, und dort in eine Zelle mit
fester Grösse geschrieben werden. Wenn der Artikelname für die
Zelle zu lang ist, soll der Rest der in die erste Zelle nicht
mehr passt in die Zelle darunter geschrieben werden.

Hi Matin,

Option Explicit

Sub übertragen()
Dim Zei1 As Long, Zei2 As Long, Länge As Integer, S As Integer, Satz As String
Länge = 5
For Zei1 = 1 To 3
 Satz = ActiveSheet.Cells(Zei1, 1).Value
 For S = 1 To Len(Satz) Step Länge
 Zei2 = Zei2 + 1
 Worksheets("Tabelle2").Cells(Zei2, 1) = Mid(Satz, S, Länge)
 Next S
Next Zei1
End Sub

Gruß
Reinhard