Problem mit Range Objekt
28.04.2009 15:41:52
thoemmy
Ich habe folgendenden Code (kurzform):
Private Sub CommandButton1_Click()
cRow=Sheets(1).Cells(row.count,2).End(xlUp).Row
cRow=cRow-1
For Each ws in ActiveWorkbook.Sheets
If Not ws.name="Profil" then
ws.Rows(cRow).Insert Shift:=xlDown
' Hier der Fehler !
Sheets(ws.name).select
Range(Cells(cRow-1,4),Cells(cRow-1,6)).select
Selection.Autofill Destination:=Range(Cells(cRow-1,4),Cells(cRow,6)), Type:=xlFillDefault
end if
next
Und zwar soll der Code folgendes tun:
Letzte Zeile in spalte 2 suchen. Eine neue Zeile einfügen und in Spalte 4-6 in der neuen Zeile die Werte von der vorigen Zeile einfügen. Dies für alle Tabellenblätter aus "Profil".
Leider funzt das nur mit dem ersten Tabellenblatt.
Dann kommt die Fehlermeldung: Select Methode auf Range Objekt kann nicht angewndt werden.
Was mache ich falsch?
MfG
Thoemmy