Excelfenster an Zellbereich anpassen
26.10.2018 13:32:41
Felix
ich bin auf der Suche nach einer VBA-Funktion, welche mir das Excelfenster so zusammenzieht, dass nur noch der gewünschte Bereich sichtbar ist. Weiterhin soll die komplette Excelumgebung ausgeblendet werden.
Im Anhang seht ihr meinen aktuellen Stand. https://www.herber.de/bbs/user/124926.xlsm
Der Code in "dieser Arbeitsmappe" lautet wie folgt:
Private Sub Workbook_Activate()
Call SubUmgebungausblenden
End Sub
Private Sub Workbook_BeforeClose(Cancel As Boolean)
Call SubUmgebungeinblenden
End Sub
Private Sub Workbook_Deactivate()
Call SubUmgebungeinblenden
End Sub
Private Sub Workbook_Open()
Dim wSheetName As Worksheet
Dim hoch As Integer
Dim breit As Integer
Application.ScreenUpdating = False
For Each wSheetName In Worksheets
wSheetName.Protect Password:="test", UserInterFaceOnly:=True
Next wSheetName
With Sheets("Maske")
.Range("D3").Select
.ScrollArea = "A1:Q23"
End With
Application.WindowState = xlMaximized
hoch = CInt(Application.UsableHeight)
breit = CInt(Application.UsableWidth)
With Application.ActiveWindow
.WindowState = xlNormal
.Top = (hoch / 2) - 169
.Left = (breit / 2) - 422
.Width = 809
.Height = 329
End With
Application.ScreenUpdating = True
Call SubUmgebungausblenden
End Sub
Sub SubUmgebungeinblenden()
With Application
.ScreenUpdating = False
.ExecuteExcel4Macro "Show.Toolbar(""Ribbon"", True)"
.DisplayFormulaBar = True
.DisplayStatusBar = True
End With
With Application.ActiveWindow
.DisplayHorizontalScrollBar = True
.DisplayVerticalScrollBar = True
.DisplayHeadings = True
.DisplayWorkbookTabs = True
End With
Application.ScreenUpdating = True
End Sub
Sub SubUmgebungausblenden()
With Application
.ScreenUpdating = False
.ExecuteExcel4Macro "Show.Toolbar(""Ribbon"", False)"
.DisplayFormulaBar = False
.DisplayStatusBar = False
End With
With Application.ActiveWindow
.DisplayHorizontalScrollBar = False
.DisplayVerticalScrollBar = False
.DisplayHeadings = False
.DisplayWorkbookTabs = False
End With
Application.ScreenUpdating = True
End Sub
Ich sehe nun auf meinem Rechner mit meinen Einstellungen das Fenster so wie ich es mir vorstelle. (Alles außerhalb von A1:Q23 ist nicht sichtbar)
Das Problem: Auf anderen Rechnern gibt es leichte Abweichungen. Ich habe mir bereits zu helfen versucht, indem ich die Höhe und Breite des Bildschirmes per Excel ausmesse und es daran anpasse, jedoch gibt es da irgendwie Probleme.
Die ideale Lösung für mich wäre es also den Bereich anhand der Zellen A1:Q23 einzuschränken unabhängig von Bildschirm und Auflösung.
Hier noch so wie es aussehen soll:
https://www.herber.de/bbs/user/124927.gif
Viele Grüße
Felix
Anzeige