Option Explicit Sub Fixieren() Dim LoI As Long For LoI = 2 To 3 Worksheets("Tabelle" & LoI).Select With ActiveWindow If .FreezePanes = False Then .Split = False .SplitRow = 4 .FreezePanes = True Else .SplitRow = 0 .SplitColumn = 0 .FreezePanes = False End If End With Next LoI End Sub
58.4k Fragen
249k Antworten
7k Nutzer