soweit bin ich jetzt, leider klappt es nicht ganz :(
Wo liegen der/die Fehler?
Sub Makro1()
Dim zeilenimport As Integer
Dim zeilendrucker As Integer
Dim columncount As Integer
Dim i As Integer
columncount = 1
zeilendrucker = (Sheets("drucker").Cells(Rows.Count, 1).End(xlUp).Row)
For i = 1 To zeilendrucker
zeilenimport = (Sheets("Importdata").Cells(Rows.Count, 1).End(xlUp).Row) + 1
For columncount = 1 To 6
Sheets("drucker").Select
Cells(i, 3).Select
Selection.Copy
Sheets("Importdata").Select
Cells(zeilenimport, columncount).Select
Selection.Paste
Next
Next
End Sub