Blatt fixieren ..scrollen nicht mglich machen??

[Mike4711]

Hallo Willwissen,

ich habe den Code in das Modul "diese Arbeitsmappe" eingefügt.
Den Blattnamen angepasst....aber er scrollt immer noch.

Gruß Mike

[Mike4711]

Hi Atilla,

sorry...soweit habe ich nicht gedacht....ich habe ausprobiert, wenn ich von Blatt zu Blatt springe, das dann der Code aktiviert wird.

ich speichere die Mappe jetzt und teste es noch einmal.

Danke.

Mike

[Mike4711]

Hi Atilla,


so.....es geht natürlich jetzt.

Ich danke dir.

Wieder einen Schritt weiter mit meiner Mappe.

Gruß Mike.

[WillWissen]

Hallo Willwissen,

danke für deine Hilfe, aber ich habe es genauso gemacht, wie du beschrieben hast....leider vergrößert er mir das Bild immer noch?

Gruß Mike

Hallo Mike,

schau dir die Datei an - ich kann weder mit XL2010 noch mit XL2013 scrollen. Die Fixierung ist auf die Zelle O49 festgelegt.


  Mike-Testmappe1-1.xlsx (Größe: 129,32 KB / Downloads: 7)

[Mike4711]

Hallo Willwissen,

tja....so sah es bei mir auch aus.

Aber Atilla hat mir einen VBA-Code gegeben, damit hat es genau den Effekt, den ich haben wollte.

Danke.

Gruß Mike

[atilla]

Hallo zusammen,

Günter, man kann den Zoom so klein wählen, dass man dann wieder im unteren Bereich scrollen kann.


Mike, hier noch ein Code, der in das gleiche Modul gehört und bei Blattwechsel arbeitet.
Was der macht siehst Du in den Kommentaren im Code.

Code:

Private Sub Workbook_SheetActivate(ByVal Sh As Object)
   Application.ScreenUpdating = False
   With ActiveWindow
      .DisplayGridlines = Not ActiveSheet.Name = "Hauptmenü"               'Gitternetzlinien ein/aus
      Application.DisplayFormulaBar = Not ActiveSheet.Name = "Hauptmenü"   'Bearbeitungszeile ein/aus
      .DisplayHeadings = Not ActiveSheet.Name = "Hauptmenü"                'Zeilen/Spalten-Überschriften ein/aus
      .DisplayHorizontalScrollBar = Not ActiveSheet.Name = "Hauptmenü"     'Horizontaler Scrollbalken ein/aus
      .DisplayVerticalScrollBar = Not ActiveSheet.Name = "Hauptmenü"       ''Verticaler Scrollbalken ein/aus
   End With
   Application.ScreenUpdating = True
End Sub