Hallo EXCEL-Forum
Würde gerne den Zellen inhalt aus E23-26 aller Tabellenblätter in einer Mappe in ein neues Tabellenblatt einfügen.
Über eine Schnelle Antwort würde ich mich freuen.
Gruß Patric
Sub kopieren()
dim i as integer, sh as worksheet
set sh=worksheets.add after:=sheets.count
for i=1 to sheets.count-1
sheets(i).Range("E23:E26").copy destination=sh.cells(rows.count,1).end(xlup).row+1,1)
next i
End Sub
Gruß aus'm Pott
Udo
AW: Zellen auslesen
02.12.2004 09:47:04
Patric
Hallo Udo.
danke erst mal, aber das makro funzt nicht.....bekomme die meldung eines syntax fehlers.
Würde mich freuen wenn das problem denoch zu lösen ist.
Gruß patric