Office: Ansicht an jeweilige Bildschirmauslösung anpassen

Liebe MOF'er,

zu Beginn der neuen Woche möchte ich nun ein kleines neues VBA Projekt in Angriff nehmen. Fraglich ist, ob ich mir nun die einzelnen Schritte zusammensuchen werden, oder ob jemand von Euch vielleicht schon einen guten Ausgangspunkt oder sogar eine Lösung für mein Problem bieten kann.

Ein Excel-Sheet von mir soll bald in die ganze Welt verbreitet werden *wink.gif* . Dazu möchte ich gerne, dass sich die Ansciht an die jeweilige Bildschrimauflösung anpasst, jeder Nutzer plattformunabhängig das gleiche sieht.

Kennt jemand einen Code, ein Codefragment, was mir dieses Problem löst?

Danke und Grüsse von

Masel

:)

 

Hi Du,

vielleicht hilft dir dieser Code weiter

Code:

 

Hi Karin,

herzlichen Dank, ich denke, dass ich genau was ich suche!

Ähm, allerdings *rolleyes.gif* hab ich da noch ein kleines Problem:

Den ganzen Code kopiere ich in die Sub Workbook_Open hinein. Wo muss ich den den Teil Private Declare Function hinschreiben, damit Excel diese Funktion auch kennt?

 

Hallo masel,

also ich verwende ein anderes Verfahren. Probiere es mal aus:

Code:

 

\@Masel,

der gesamte Code in einem allgemeinen Modul und setzoom wird im Workbook_Open Ereignis aufgerufen

 

He Woody,

das funktioniert 1A!

Ich bin begeistert, zwei Zeilen einfachster Code! Perfekt!

Herzlichen Dank, mein Problem ist gelöst und ich mache Feierabend!

 

Hi Beverly,

danke auch für Deinen Hinweis, ich habe es nochmal kurz ausprobiert, allerdings hat Excel dann bei der Variabele user32 gemäckert, und da Woody´s Lösung so easi funktioniert, werde ich es soweit auch dabei belassen.

Trotzdem auch Dir natürlich herzlichen Dank für Deine Unterstützung!

 

Hallo zusammen,

kann mir jemand helfen, bei mir funktuniert der Code nicht.

Er führt es immer nur im ersten Tabellenblatt aus und was hier auch noch ärgerlich ist das der die Zeller von A1 - AH1 markiert.

Kann mir jemand helfen?

Besten Dank vorab.

Gruss
Steve

 

Du musst nur die Zeile:

'Range("A1").Select 'bei Bedarf setzen
ändern in
Range("A1").Select
du kannst auch jede andere Zelle anstatt A1 verwenden.

 

Hallo,

an der aktuelle Code den ein einsetze.

Private Sub Workbook_Open()
'Automatische Bildschirmanpassung

'Code unter DieseArbeitsmappe kopieren
'Hinweis: zuvor einen Bereich "zoom" festlegen,
'der die gewünschte Breite hat (z.B. A1:H1 markieren)
Range("A1").Select
ActiveWindow.Zoom = True
'Range("A1:H1").Select 'bei Bedarf setzen
End Sub

Wenn ich das File öffne ist die Zelle A1 markiert un hocgzoomt jedoch NUR das
Tabellenblatt!! die restlichen bleiben unberührt.

Danke für die Hilfe.

Gruss
Steve

 

Hallo Steve
test den Code mal im Workbook_SheetActivate ereigniss.
Code:

gruss hary

 

Hallo Harry,

so langsam kommen wir der Sache näher :-)

Es funkuniert jedoch werden die Tabellenblätter nicht sofort nach bzw. beim öffner angepasst sondern nachdem ich jedes Tabellenblatt einmal angeklickt habe.

Zudem markiert er mir imm deine ganze Zeile in dem Fall "A". wie bringe ich hier den Fokus weg?

Danke für die Info.

Gruss
Steve

 

Hi
dann versuch mal so.
Code:

gruss hary