Live-Forum - Die aktuellen Beiträge
Datum
Titel
25.04.2024 00:42:03
Listbox mit gefilterten Daten füllen
24.04.2024 20:38:58
Summe mit Bedingung, nur letzte Ergebnisse anzeigen
24.04.2024 19:29:30
Formel filter
24.04.2024 18:49:56
merge & select
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
868to872
Aktuelles Verzeichnis
Verzeichnis Index
Übersicht Verzeichnisse
Vorheriger Thread
Rückwärts Blättern
Nächster Thread
Vorwärts blättern
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Vorheriger Thread
Vorheriger Thread
Rückwärts Blättern
868to872
868to872
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Großer Bildschirm

Großer Bildschirm
14.05.2007 10:05:05
Toni
Hallo Excelfreunde,
Ist es über eine VBA-Lösung möglich, dass ich in einer Excel-Mappe alle Tabellenblätter (ca.20 Stück) ohne
Zeilen,-und Spaltenüberschriften, Gliederungssymbole und ohne Blattregisterkarten beim Öffnen segen kann. Gibt es eine Möglichkeit, dass sich die komplette Mappe, auch nach dem Öffnen an den jeweiligen Bildschirmen, mit seiner Auflösung anpaßt.
mfg. und ein Danke im voraus
Toni

1
Beitrag zum Forumthread
Beitrag zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Großer Bildschirm
15.05.2007 01:39:14
fcs
Hallo Toni,
folgende Makro bewerkstelligen die entsprechende Umstellung der Ansicht. FÜr jedes Register der Arbeitsmappe wird ein eigenes Fenster erstellt und die Optionen werden gesetzt.
Diese beiden Makros kopierst du in ein Modul deiner Datei.
Damit diese Ansicht der Einzelregister als Kachedarstellung beim Öffnen der Datei automatisch erfolgt muss du das 3. Makro im VBA-Editor unter "DieseArbeitsmappe" einfügen.
Gruß
Franz

Sub FensterproBlattEin()
'Stellt jedes Blatt der aktiven Arbeitsmappe in einem eigenen Fenster dar _
in Kacheldarstellung
Dim wb As Workbook, Nr%
Application.WindowState = xlMaximized
Set wb = ActiveWorkbook
bofirst = False
For Nr = 1 To wb.Sheets.Count
If wb.Sheets(Nr).Visible = xlSheetVisible Then
If bofirst = False Then
wb.Sheets(Nr).Select
bofirst = True
Else
ActiveWindow.NewWindow
wb.Sheets(Nr).Select
End If
With ActiveWindow
If wb.Sheets(Nr).Type = xlWorksheet Then
.DisplayHeadings = False
.DisplayOutline = False
.ScrollColumn = 1
.ScrollRow = 1
End If
.DisplayWorkbookTabs = False
End With
End If
Next
Windows.Arrange xlArrangeStyleTiled
End Sub
Sub FensterproBlattAus()
'Schließt alle Fenster der  aktiven Arbeitsmappe bis auf eines _
und setzt die Optionen zurück
Dim wb As Workbook, Nr%
Set wb = ActiveWorkbook
If wb.Windows.Count > 1 Then
For Nr = wb.Windows.Count To 2 Step -1
wb.Windows(Nr).Close
Next
With ActiveWindow
If ActiveSheet.Type = xlWorksheet Then
.DisplayHeadings = True
.DisplayOutline = Tue
End If
.DisplayWorkbookTabs = True
End With
End If
wb.Windows.Arrange
ActiveWindow.WindowState = xlMaximized
End Sub
Private Sub Workbook_Open()
If ThisWorkbook.Windows.Count > 1 Then
Call FensterproBlattAus
End If
Call FensterproBlattEin
End Sub


Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Jetzt das Excel-Portal bewerten: Deine Stimme zählt!

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige