spalten und Zeilenüberschriften ausblenden
18.01.2007 23:45:31
holger
habe ein kleines Problem,habe sehr viele Tabellen in einer arbeitmappe und möchte bei den kompletten tabellen die spalten und zeilenköpfe ausblenden
dies habe ich ja auch wie folgt geschaft
Sub ausblenden()
' alle Spalten- und Zeilenköpfe ausblenden
Dim I As Integer
Application.ScreenUpdating = False
For I = 1 To ActiveWorkbook.Worksheets.Count
Worksheets(I).Activate
ActiveWindow.DisplayHeadings = False
Next I
Application.ScreenUpdating = True
End Sub
jetzt habe ich aber ein neues problem, ich bekomme "IMMER" das letzte Tabellenblatt angezeigt, muß aber mit dem "Ersten" beim öffnen starten.
Vielleicht kann mir da ja jemand helfen...wäre klasse
Danke im Vorraus
Holger
Anzeige