VBA-Programmierung in Microsoft Excel

Tutorial: Excel-Beispiele

Startansicht wiederherstellen

Gruppe

Allgemein

Bereich

Ansicht

Thema

Startansicht wiederherstellen

Problem

Wie kann ich die vor dem Ablauf eines VBA-Programms angezeigte Startansicht am Ende des Programms wiederherstellen?

Lösung

Geben Sie den nachfolgenden Code in ein Standardmodul ein und weisen Sie ihn einer Schaltfläche zu.




StandardModule: basMain

Sub ZurAnsichtZurueck()
   ActiveWorkbook.CustomViews.Add _
      ViewName:="Test", _
      PrintSettings:=False, _
      RowColSettings:=True
   Columns("B:C").Hidden = True
   Rows("3:12").Hidden = True
   Range("E14").Select
   MsgBox "Weiter?"
   With ActiveWorkbook.CustomViews("Test")
      .Show
      .Delete
   End With
End Sub

    


Beiträge aus dem Excel-Forum zu den Themen Allgemein und Ansicht