Sub ErsteZeileEinfrieren() '(2) 'friert die erste Zeile ein Worksheets(1).Activate Application.Sheets(1).Rows("2:2").Select ActiveWindow.FreezePanes = True End Sub