Meine zeilen ergänzen

Forumthread: Meine zeilen ergänzen
1 Beitrag zu diesem Forumthread
Anzeige

Forumthread: Meine zeilen ergänzen

22.02.2025 15:16:02

Albert

Guten Tag,
ich habe folgende Zeilen, die funtionieren.

Columns("A:A").Select

        Selection.ColumnWidth = 255

        Columns("B:B").Select

        Selection.ColumnWidth = 100

    

       ' ActiveSheet.Rows("47:65534").EntireRow.Hidden = False   '= einblenden

         ActiveSheet.Rows("47:65534").EntireRow.Hidden = True  '= ausblenden

         ActiveSheet.Range("A15").Select

       '  ActiveWindow.FreezePanes = False   'rausnehmen

         ActiveWindow.FreezePanes = True     'reinnehmen

ergänzen würde ich gern das der Bereich der zu sehen ist jetzt "fest" verankert wird, so das
man den Bereich 1 bis Zeile 47 sehen kann.

mfg albert