SrollArea

Forumthread: SrollArea

SrollArea

30.04.2006 12:24:58

Rico

Hallo Leute
habe hier einen Code (Von Hajo`s Homepage) wo man Symbolleisten entfernen kann.
Ich habe noch für eine Tabelle eine SrollArea hinzugefügt. Ich müßte aber noch für 2-3 Tabellen ScrollArea dazufügen. Kann mir jemand helfen den Code zu ändern.
Gruß Rico
Hier der Code!!!
Option Explicit
'**************************************************
'* H. Ziplies *
'* 07.03.04 *
'* erstellt von Hajo.Ziplies@web.de *
'* http://home.media-n.de/ziplies/ *
'**************************************************


Private Sub Workbook_Activate()
If Application.CommandBars("Worksheet Menu Bar").Enabled = True Then
Application.DisplayFullScreen = Not Application.DisplayFullScreen
Application.CommandBars("Full Screen").Enabled = Not Application.CommandBars("Full Screen").Enabled
Application.CommandBars("Worksheet Menu Bar").Enabled = Not Application.CommandBars("Worksheet Menu Bar").Enabled
ActiveWindow.DisplayHeadings = False
Worksheets("Tabelle1").ScrollArea = "a1:k35"
End If
End Sub


Private Sub Workbook_Deactivate()
If Application.CommandBars("Worksheet Menu Bar").Enabled = False Then
Application.DisplayFullScreen = Not Application.DisplayFullScreen
Application.CommandBars("Full Screen").Enabled = Not Application.CommandBars("Full Screen").Enabled
Application.CommandBars("Worksheet Menu Bar").Enabled = Not Application.CommandBars("Worksheet Menu Bar").Enabled
ActiveWindow.DisplayHeadings = True
End If
End Sub


Private Sub Workbook_SheetActivate(ByVal Sh As Object)
ActiveWindow.DisplayHeadings = False        ' Zeilen- und Spaltenüberschriften ausblenden
ActiveWindow.DisplayWorkbookTabs = False    ' Tabreiter unten (tabelle1;tabelle2;...)
End Sub

3
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

AW: SrollArea

30.04.2006 12:36:50

Peter
AW: SrollArea

30.04.2006 12:45:49

Rico
AW: SrollArea

30.04.2006 12:58:43

Glen

AW: SrollArea

30.04.2006 12:36:50

Peter

Servus,
in etwa so.

Private Sub Workbook_SheetActivate(ByVal Sh As Object)
ActiveWindow.DisplayHeadings = False        ' Zeilen- und Spaltenüberschriften ausblenden
ActiveWindow.DisplayWorkbookTabs = False    ' Tabreiter unten (tabelle1;tabelle2;...)
If Sh.Name = "Tabelle1" Or Sh.Name = "Tabelle2" Then 'Anpassen
If Application.CommandBars("Worksheet Menu Bar").Enabled = True Then
Application.DisplayFullScreen = Not Application.DisplayFullScreen
Application.CommandBars("Full Screen").Enabled = Not Application.CommandBars("Full Screen").Enabled
Application.CommandBars("Worksheet Menu Bar").Enabled = Not Application.CommandBars("Worksheet Menu Bar").Enabled
ActiveWindow.DisplayHeadings = False
Worksheets("Tabelle1").ScrollArea = "a1:k35"
End If
End If
End Sub
Private Sub Workbook_SheetDeactivate(ByVal Sh As Object)
If Sh.Name = "Tabelle1" Or Sh.Name = "Tabelle2" Then 'Anpassen
If Application.CommandBars("Worksheet Menu Bar").Enabled = False Then
Application.DisplayFullScreen = Not Application.DisplayFullScreen
Application.CommandBars("Full Screen").Enabled = Not Application.CommandBars("Full Screen").Enabled
Application.CommandBars("Worksheet Menu Bar").Enabled = Not Application.CommandBars("Worksheet Menu Bar").Enabled
ActiveWindow.DisplayHeadings = True
End If
End If
End Sub

MfG Peter

AW: SrollArea

30.04.2006 12:45:49

Rico

Hallo Peter
der Code den ich geschickt habe hat ja geklappt auch mit der einen ScrollArea für Tabelle 1. Ich brauche nur nur noch ScrollArea für Tabelle 2 & 3. Ich weis nicht wie ich die unterbringen soll.
Gruß Rico

AW: SrollArea

30.04.2006 12:58:43

Glen


Private Sub Workbook_Activate()
If Application.CommandBars("Worksheet Menu Bar").Enabled = True Then
Application.DisplayFullScreen = Not Application.DisplayFullScreen
Application.CommandBars("Full Screen").Enabled = Not Application.CommandBars("Full Screen").Enabled
Application.CommandBars("Worksheet Menu Bar").Enabled = Not Application.CommandBars("Worksheet Menu Bar").Enabled
ActiveWindow.DisplayHeadings = False
sheets("Tabelle1").ScrollArea = "a1:k35"
sheets("Tabelle2").ScrollArea = "b1:k35"
sheets("Tabelle3").ScrollArea = "c1:k35"
End If
End Sub

mfg Glen

Beliebteste Forumthreads (12 Monate)

Forumthread: SrollArea

3 Beiträge zum Forumthread Beiträge zu diesem Forumthread

Beliebteste Forumthreads (12 Monate)

3
Beiträge zum Forumthread

Beiträge zu diesem Forumthread