dnake nochmals für eure Hilfe das hat mir sehr geholfen nur wie kann wenn ich folgende Zeilen habe :
Lastcell = Worksheets("Tabelle1").Cells(65536, 5).End(xlUp).Row
For y = 16 To Lastcell
nun den inhalt einer Zelle zuweisen ohne das sie verschluckt wird?
Der Befehl dient zur Auslesung jeder Zeile.
Mfg
Manu
Danke für euro Hilfe