Live-Forum - Die aktuellen Beiträge
Datum
Titel
28.03.2024 21:12:36
28.03.2024 18:31:49
Anzeige
Archiv - Navigation
756to760
Aktuelles Verzeichnis
Verzeichnis Index
Übersicht Verzeichnisse
Vorheriger Thread
Rückwärts Blättern
Nächster Thread
Vorwärts blättern
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
756to760
756to760
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Inhaltsverzeichnis

Zoom per VBA über alle Tabellenblätter

Zoom per VBA über alle Tabellenblätter
27.04.2006 20:19:26
Stefan
Guten Abend zusammen,
ich erbitte mal wieder eure Hilfe. In Tabelle 1 habe ich mir per SpinButton (der mit Pfeil nach oben und nach unten) erstellt. Dieser ändert bei Betätigung den Bildschirmzoom in 10er Schritten. Nachfolgenden Code habe ich in Tabelle1 stehen:

Private Sub SpinButton1_Change()
M = [D1] * 10
neuer_Faktor = [D3] + M
ActiveWindow.Zoom = neuer_Faktor
End Sub

'in D1 ist die Zellverknüpfung vom Button
'in D3 steht der Anfangswert 50 und erhöht sich oder verringert sich bei Betätigung des Buttons
Leider funktioniert es nur in dieser Tabelle. Ich möchte, das gleich alle 4 Blätter die gleiche Zoomeinstellung bekommen. Nur weiß ich nicht wie das geht. Der Code müßte dazu wohl in -Diese Arbeitsmappe- stehen, aber ich bekomme das mit der makierung der Blätter nicht hin.
Hat jemand eine Idee die mir weiterhilft.
Vielen Dank und Gruß
Stefan

5
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Zoom per VBA über alle Tabellenblätter
27.04.2006 20:31:39
chris
Hallo du kannst den Zoom nur ändern für das aktive Blatt.
Müsstet höchstens eine schleife durchlaufen lassen die nacheinander alle deine Tabellenblätter selektiert.Wenn das ok wäre für dich und du es nicht schaffst würde ich dir gerne noch einmal helfen.
gruß Chris
AW: Zoom per VBA über alle Tabellenblätter
27.04.2006 20:45:56
Stefan
Hallo Chris,
danke für Deine schnelle Antwort. Schade dass das nicht so einfach geht.
Kann ich denn auf Dein Angebot zurückkommen ? Ich weiß nur das das irgendwie mit for i = 1 to ... count oder so geht.
Würde mich freuen wenn Du mir hilfst.
Gruß Stefan
AW: Zoom per VBA über alle Tabellenblätter
28.04.2006 09:47:06
Stefan
Hallo Chris,
hast Du noch eine einfache Idee zu meiner Zoom-Funktion über alle Tabellenblätter.
Würd mich freuen.
Gruß Stefan
Anzeige
AW: Zoom per VBA über alle Tabellenblätter
27.04.2006 20:50:06
Josef
Hallo Stefan!
Warum so kompliziert?
Angenommen der SpinButton steht in Tabelle1.
' **********************************************************************
' Modul: Tabelle1 Typ: Element der Mappe(Sheet, Workbook, ...)
' **********************************************************************

Option Explicit

Private Sub SpinButton1_Change()
intZoom = SpinButton1.Value
ActiveWindow.Zoom = intZoom
End Sub


' **********************************************************************
' Modul: DieseArbeitsmappe Typ: Element der Mappe(Sheet, Workbook, ...)
' **********************************************************************

Option Explicit

Private Sub Workbook_Activate()
intZoom = ActiveWindow.Zoom
With Sheets("Tabelle1").SpinButton1
  .Min = 10
  .Max = 200
  .SmallChange = 10
  .Value = intZoom
End With
End Sub


Private Sub Workbook_SheetActivate(ByVal Sh As Object)
ActiveWindow.Zoom = intZoom
End Sub


' **********************************************************************
' Modul: Modul1 Typ: Allgemeines Modul
' **********************************************************************

Option Explicit

Public intZoom

'******************************
'* Gruß Sepp
'*
'* Rückmeldung wäre nett!
'******************************

Anzeige
AW: Zoom per VBA über alle Tabellenblätter
27.04.2006 21:08:10
Stefan
Hallo Sepp,
Danke für Deine Idee. Als Laie würde ich sagen, mein Code ist wesentlich unkomplizierter, nur funktioniert er nicht wie gewünscht. Ich habe Deinen Code einfach mal eingebaut und siehe da: funktioniert prima.
Also, herzlichen Dank dafür und schönen Abend.
Gruß Stefan

24 Forumthreads zu ähnlichen Themen

Anzeige
Anzeige

Links zu Excel-Dialogen

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige