Thema Datum  Von Nutzer Rating
Antwort
Rot Zoom makro funktioniert nicht
 03.02.2016 09:23:10 Sofia
NotSolved
03.02.2016 10:15:57 Gast42298
Solved

Ansicht des Beitrags:
Von:
Sofia		 Datum:
03.02.2016 09:23:10		 Views:
1312		 Rating:
     
Antwort:
  Ja
Thema:
Zoom makro funktioniert nicht		 
Hallo habe ein Workbook mit 23 Sheets, leider verstellen mir die Kollegen immer die Blattansicht nun möchte ich das per Button#
wieder zurückstellen.

Sub Blatt_Zoom()
    Dim Bl As Worksheet
    
    Bl = Array("Tabelle12", "Tabelle13";"Tabelle15")
    
        For Each Bl In ThisWorkbook.Worksheets
        ActiveWindow.Zoom = 83
    Next Bl
    Range("A3").Select
End Sub

lg

Sofia

Ihre Antwort
  • Bitte beschreiben Sie Ihr Problem möglichst ausführlich. (Wichtige Info z.B.: Office Version, Betriebssystem, Wo genau kommen Sie nicht weiter)
  • Bitte helfen Sie ebenfalls wenn Ihnen geholfen werden konnte und markieren Sie Ihre Anfrage als erledigt (Klick auf Häckchen)
  • Bei Crossposting, entsprechende Links auf andere Forenbeiträge beifügen / nachtragen
  • Codeschnipsel am besten über den Code-Button im Text-Editor einfügen
  • Die Angabe der Emailadresse ist freiwillig und wird nur verwendet, um Sie bei Antworten auf Ihren Beitrag zu benachrichtigen
Thema: Name: Email:



  • Bitte beschreiben Sie Ihr Problem möglichst ausführlich. (Wichtige Info z.B.: Office Version, Betriebssystem, Wo genau kommen Sie nicht weiter)
  • Bitte helfen Sie ebenfalls wenn Ihnen geholfen werden konnte und markieren Sie Ihre Anfrage als erledigt (Klick auf Häckchen)
  • Bei Crossposting, entsprechende Links auf andere Forenbeiträge beifügen / nachtragen
  • Codeschnipsel am besten über den Code-Button im Text-Editor einfügen
  • Die Angabe der Emailadresse ist freiwillig und wird nur verwendet, um Sie bei Antworten auf Ihren Beitrag zu benachrichtigen

Thema Datum  Von Nutzer Rating
Antwort
Rot Zoom makro funktioniert nicht
 03.02.2016 09:23:10 Sofia
NotSolved
03.02.2016 10:15:57 Gast42298
Solved