Thema Datum  Von Nutzer Rating
Antwort
23.10.2024 09:05:26 Natalie
NotSolved
25.10.2024 23:27:32 Gast51370
NotSolved
26.10.2024 10:56:40 volti
NotSolved
26.10.2024 12:32:25 GTA
NotSolved
Rot Sichtfeld automatisch skalieren (Zoom)
28.10.2024 07:33:40 Natalie
NotSolved
28.10.2024 11:16:33 GTA
NotSolved
28.10.2024 12:38:34 Natalie
NotSolved
28.10.2024 13:13:12 Gast81826
Solved
29.10.2024 07:42:17 Natalie
NotSolved

Ansicht des Beitrags:
Von:
Natalie
Datum:
28.10.2024 07:33:40
Views:
45
Rating: Antwort:
  Ja
Thema:
Sichtfeld automatisch skalieren (Zoom)

Guten Morgen und vielen Dank für die Hilfestellung an euch!

Ich habe das jetzt mal so versucht:

 

Private Sub Workbook_Open()

'Scrollbereich der Startseite einschränken
Tabelle5.ScrollArea = "A1:T36"

'UserForm Login aufrufen
UfLogin.Show

' Zoomfaktor berechnen
 
Set rng = ws.Range("A1:X43")
    cellWidth = rng.Width
    cellHeight = rng.Height
    zoomFactor = Application.Width / cellWidth * 100
    zoomFactor = WorksheetFunction.Min(zoomFactor, Application.Height / cellHeight * 100)

End Sub

 

Hier kommt:

"Fehler beim Kompilieren. Variable ws. nicht definiert."


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
23.10.2024 09:05:26 Natalie
NotSolved
25.10.2024 23:27:32 Gast51370
NotSolved
26.10.2024 10:56:40 volti
NotSolved
26.10.2024 12:32:25 GTA
NotSolved
Rot Sichtfeld automatisch skalieren (Zoom)
28.10.2024 07:33:40 Natalie
NotSolved
28.10.2024 11:16:33 GTA
NotSolved
28.10.2024 12:38:34 Natalie
NotSolved
28.10.2024 13:13:12 Gast81826
Solved
29.10.2024 07:42:17 Natalie
NotSolved