war ja nur ein Versuch. so ohne Beispieldatei mi Soll und Ist, es bleibt immer ein Rest Unsicherheit.
Habs nochmal durchdacht. versuch mal so.
Do While Sheets("Eingabe Texte").Cells(i, 1) <> ""
Sheets("Ausgabe Texte").Cells(x, 1).Value = Sheets("Eingabe Texte").Cells(i, 1)
Sheets("Ausgabe Texte").Cells(x + 1, 1).Value = Sheets("Eingabe Texte").Cells(i, 1)
Sheets("Ausgabe Texte").Cells(x, 2).Value = Sheets("Eingabe Texte").Cells(i, 2)
Sheets("Ausgabe Texte").Cells(x + 1, 2).Value = Sheets("Eingabe Texte").Cells(i, 3)
x = x + 2
i = i + 1
Loop
|