Gruppe
Allgemein
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