tut mir leid das ich euch nochmal auf die nerven gehen muß
ich habe ein makro geschrieben was excel fast komplett ausbledet bis auf die horizontale und vertikale scrollbar (is absicht)
bei 2007 funktionierts wunderbar
bei 2003 schiebt er mir aber leider die scrollbar unter die taskleiste von windows.
wie kann ich das ändern?
code:
Sub Ausblenden()
Dim i As Integer 'variable i, integer kann ganze zahlen speichern
Dim blattname As String 'string ist in der lage texte zu speichern (zeichen kette)
blattname = ActiveSheet.Name
On Error Resume Next 'bei einem fehler nächste zeile weitermachen
Application.ScreenUpdating = False 'bildschirmaktualisierung ausschlaten
Application.DisplayFullScreen = True 'setzt die Multifunktionsleiste außerkraft
Application.DisplayFormulaBar = False
For i = 1 To Sheets.Count 'Zählt die tabellen automatisch
Sheets(i).Select
With ActiveWindow
.DisplayHorizontalScrollBar = True
.DisplayVerticalScrollBar = True
.DisplayWorkbookTabs = True
.DisplayGridlines = False
.DisplayHeadings = False
End With
Next i
Sheets(blattname).Select
Application.ScreenUpdating = True 'bildschirmaktualisierung ausschlaten
End Sub