Meine Version: Microsoft Office Excel 2003 SP3
Ich habe das Makro:
Sub Makro1()
Range(„A1:H24“).Select
ActiveWindows.Zoom = True
End Sub
in VBA angelegt.
Wird jetzt automatisch angepasst, oder muss ich hierfür einen Makrobutton einrichten, wo ich jedes mal die Funktion einschalte?
Und wie erreiche ich, dass es für alle (evtl. unterschiedliche Größen) Blätter gilt?
Für entsprechende Hilfen bedanke ich mich im Voraus.
hjsp
Hallo hjsp,
Sub Makro1()
Range(„A1:H24“).Select
ActiveWindows.Zoom = True
End Sub
Bitte sei das nächste Mal so lieb und kopiere deinen exakten Code aus deinem Excel hier rein. Ich glaube, du hast ihn von Hand hier reingetippt und dabei heben sich Tippfehler eingeschlichen: Falsche Anführungszeichen und „ActiveWindows“ statt „ActiveWindow“ ohne s. Man muss deinen Code so erst korrigieren, bevor man ihn testen kann.
Wird jetzt automatisch angepasst, oder muss ich hierfür einen
Makrobutton einrichten, wo ich jedes mal die Funktion
einschalte?
Nein es wird nicht automatisch angepasst. Du müsstest den Code von Hand starten, etwa über einen Button, wie du vorschlägst.
Und wie erreiche ich, dass es für alle (evtl. unterschiedliche
Größen) Blätter gilt?
Ich habe deinen Code mal etwas geändert:
Private Sub Workbook\_SheetActivate(ByVal Sh As Object)
Sh.UsedRange.Select
ActiveWindow.Zoom = True
End Sub
Wenn du das in den Codebereich von „DieseArbeitsmappe“ kopierst, dann klappt es automatisch, und zwar immer dann, wenn du auf ein anderes Blatt wechselst. Es wird dann der gesamte beutzte Tabellenbereich selektiert und gezoomt. Somit funktioniert es dann also auch für unterschiedlich große Bereiche.
Für entsprechende Hilfen bedanke ich mich im Voraus.
hjsp
Gruß, Andreas
Hallo Andreas,
Du hast recht, ich sollte den Cod kopieren, damit keine Fehler unterlaufen.
Ansonste habe ich alles gelöst.
Vilen Dank für Deine Hilfe.
Gruß
hjsp