Excel und VBA - Die Excel-FAQ

Startansicht wiederherstellen

Screenshots zu den Aufrufoberflächen der Excel-Materialien

Startansicht wiederherstellen

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

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