Fehler 1004 ... aber warum?
28.01.2016 18:53:39
gode
ich habe unten einen kleinen, beispielhaften Code aufgeführt:
Sub Blatt_TEST()
Dim wb As Workbook
Dim ws1 As Worksheet
Dim ws2 As Worksheet
Set wb = ActiveWorkbook
Set ws1 = Worksheets("2016-01-28")
Set ws2 = Worksheets("2016-01-26")
letzteZeile = ws1.Cells(1048576, 2).End(xlUp).Row
letzteSpalte = ws1.Cells(1, 256).End(xlToLeft).Column
With ws1.Range(Cells(2, 2), Cells(letzteZeile, letzteSpalte))
.Rows.AutoFit
End With
*** With ws2.Range(Cells(2, 2), Cells(letzteZeile, letzteSpalte))
.Rows.AutoFit
End With
Aber warum?
Für ws1 klappts doch auch?
Ich kann das ganze natürlich umgehen, indem ich das betr. Blatt selektiere ... aber das wollte ich ja durch den o.a. Weg vermeiden!
Vielen Dank im Voraus!
Gode
Anzeige