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