Live-Forum - Die aktuellen Beiträge
Anzeige
Archiv - Navigation
756to760
Aktuelles Verzeichnis
Verzeichnis Index
Übersicht Verzeichnisse
Vorheriger Thread
Rückwärts Blättern
Nächster Thread
Vorwärts blättern
Anzeige
HERBERS
Excel-Forum
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
756to760
756to760
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Inhaltsverzeichnis

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
Anzeige
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
Anzeige
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
Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige