Folgendes Problem: ich habe in 12 Tabellenblättern jeweils in den Zellen E6 und I6 eine Formel stehen, die ich in jedem Blatt bis zur Zelle E380 bzw. I380 runterziehen möchte. Beim Ausführen des Makros (mit Recorder aufgezeichnet und angepasst) kommt die Fehlermeldung: Erwartet Datenfeld. Das fett hinterlegte "Range" ist dabei markiert.
Wer weiss, wo der Hase im Pfeffer liegt?
Excel 2016
Sub Formel_einfügen()
Dim ws As Worksheet
Dim Range As String
For Each ws In ThisWorkbook.Worksheets
Select Case ws.Name
Case "Tabelle1" ' Ausnahme, keine Aktion
Case Else
ws.Activate
Range("E6").AutoFill Destination:=Range("E6:E380"), Type:=xlFillValues
Range("I6").AutoFill Destination:=Range("I6:I380"), Type:=xlFillValues
End Select
Next ws
End Sub
Danke und GrußAB