Hallo Willwissen,
ich habe den Code in das Modul "diese Arbeitsmappe" eingefügt.
Den Blattnamen angepasst....aber er scrollt immer noch.
Gruß Mike
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
Hi Atilla,
so.....es geht natürlich jetzt.
Ich danke dir.
Wieder einen Schritt weiter mit meiner Mappe.
Gruß Mike.
(03.01.2015, 16:34)Mike4711 schrieb: [ -> ]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.
[
attachment=1113]
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
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