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