Microsoft Excel

Excel und VBA: Formeln, Programmierung, Lösungen

Die Excel/VBA-Beispiele

Thema

Startansicht wiederherstellen

Gruppe

Ansicht

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