Hallo liebe Community,
ich habe schon versucht etwas über die Suche zu finden, aber da kam nichts brauchbares heraus. Ich bin sehr unerfahren was VBA angeht und komme einfach nicht weiter.
Ich benutze täglich eine Arbeitsmappe (Eingangsmaske), diese möchte ich ohne Interface und mit bestimmter Fenstergröße angezeigt bekommen. Das klappt auch sehr gut, nur werden mir leider alle Excelmappen so jetzt angezeigt.
Code (Modul):
Sub BenutzerModus()
Application.ExecuteExcel4Macro "Show.Toolbar(""Ribbon"",False)"
Application.DisplayFormulaBar = False
Application.DisplayFullScreen = False
ActiveWindow.DisplayHorizontalScrollBar = False
ActiveWindow.DisplayVerticalScrollBar = False
ActiveWindow.DisplayWorkbookTabs = True
End Sub
Sub EntwicklerModus()
Application.DisplayFullScreen = False
Application.ExecuteExcel4Macro "Show.Toolbar(""Ribbon"",False)"
Application.DisplayFormulaBar = True
ActiveWindow.DisplayHorizontalScrollBar = False
ActiveWindow.DisplayVerticalScrollBar = False
ActiveWindow.DisplayWorkbookTabs = True
End Sub
Code (DieseArbeitsmappe)
Private Sub Workbook_Open()
Call BenutzerModus
Tabelle1.ScrollArea = "A1:AC38"
Tabelle2.ScrollArea = "A1:AC37"
Tabelle3.ScrollArea = "A1:AC37"
Tabelle4.ScrollArea = "A1:AC38"
ActiveWindow.WindowState = xlNormal
With ActiveWindow
.Top = 0
.Left = 0
.Width = 1420
.Height = 650
End With
End Sub
Meine Vermutung ist, das ich nicht richtig referenziert habe und er es deshalb auf alle Excelmappen anwendet, anstatt nur auf die eine.
Für euren Support wäre ich sehr dankbar.
VG Anton
|