noch mal eine hilfe puhh.......
Ich brauche noch mal ein Makro wenn es geht?
Zähle die Einträge in (DatenAusSheet1) von F1 bis ende
Selection.Current.Region (das ist von A1 bis C31 ,nur info wiel ich brauch variabel)
anschließ. gehe nach (Einteiler) Range I2 und kopiere so oft mal
Current.Region wie vorher in DatenAusSheet gezählt.
Sub DatenÜbertragen
With Sheets("DatenAusSheet1")
anzd = .Cells(Rows.Count, 6).End(xlUp).Row
Range("A1").Select
Selection.CurrentRegion.Select
Sheets("Einteiler")....
Range("I1").Select
End With
End Sub
Danke
gruß
achim h.