Hallo zusammen,
bin dabei, alte Makros zu säubern und verbessern. An einer Kleinigkeit scheitere ich (siehe unten):
Option Explicit
Dim a As Integer
For a = 8 To 10 'Werte entnehmen aus Blatt "Inhalt"
Application.ScreenUpdating = False
With ThisWorkbook.Worksheets(a)
If Worksheets(a).FilterMode Then
Worksheets(a).ShowAllData
End If
.Columns("A:A").ColumnWidth = 7
'usw
.Range("B6:B49").Font.Size = 14
.Range("F6:F49").Rows.AutoFit
.Range("$A$5:$L$49").AutoFilter Field:=6, Criteria1:="<>"
'
.Columns("N:N").Hidden = True
'========================================================
.Range("F2").Select
'Laufzeitfehler 1004: die Select-Methode des Range-Objekts konnte nicht ausgeführt werden
'========================================================
End With
Next a
Application.ScreenUpdating = True
End Sub
In allen Blättern soll später in F2 der erste Eintrag vorgenommen werden, deshalb ärgert mich das.
Wie muss das aussehen?
Danke für eure Unterstützung
Gruß, Margarete