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.
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