Problem mit Range
27.08.2013 15:53:14
Theo
Ich hab da ein Problem und zwar habe diesen Code geschrieben:
i2=4000 'da mein Blatt riesig (über 3800 Zeilen) ist
Workbooks("Blatt").Activate
With Range(Cells(1, 1), Cells(i2, 30))
.AutoFilter field:=8, Criteria1:="XXX"
.Select
.Copy
End With
wenn ich das Programm ausführe, habe ich immer hier eine Fehlermeldung :
With Range(Cells(1, 1), Cells(i2, 30))
Ich wär verdammt froh wenn mir jemand helfen könnte!!!
Gruß
theo