Startansicht wiederherstellen

Thema: Allgemein - Gruppe Ansicht

Arbeitsmappe

064899    002097

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