|
Die Excel/VBA-Beispiele (incl. aller Arbeitsmappen: http://www.herber.de/samples/inhalt.html)
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 |