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
Beim mit "***" gekennzeichneten Statement bekomme ich den Fehler 1004 "die methode range für das objekt _worksheet ist fehlgeschlagen"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