Herzlichen Gruß ins Forum
Zeile ist immer A10 bis F 10
.usw. bis
A 58 bis F 58
Immer ausgehend von Spalte - F - Kopiere ich die Zeilen einzeln in eine andere Datei
(ActiveCell.Offset(0, -5).Range("A1:F1").Select---Set meizeil = Selection )
(Sheets(kontoNr).Select --- meizeil.Copy…usw.) Funktioniert auch alles nach Wunsch,
Nur derzeit behelfe ich mich mit-
For juhu = 0 To 48-----Next juhu , als schleife für die 48 Zeilen.
Meine Bitte gibt es dafür eine –Elegantere Lösung –Wenn ja bitte wie
Danke für die Mühe
(der kleine) michael