|
Thema
|
Datum
|
Von Nutzer
|
Rating
|
Antwort
|
|
23.10.2024 09:05:26 |
Natalie |
|
|
|
25.10.2024 23:27:32 |
Gast51370 |
|
|
|
26.10.2024 10:56:40 |
volti |
|
|
|
26.10.2024 12:32:25 |
GTA |
|
|
|
28.10.2024 07:33:40 |
Natalie |
|
|
|
28.10.2024 11:16:33 |
GTA |
|
|
|
28.10.2024 12:38:34 |
Natalie |
|
|
 Sichtfeld automatisch skalieren (Zoom) |
28.10.2024 13:13:12 |
Gast81826 |
|
|
|
29.10.2024 07:42:17 |
Natalie |
|
|
Von:
Gast81826 |
Datum:
28.10.2024 13:13:12 |
Views:
65 |
Rating:
|
Antwort:
|
Thema:
Sichtfeld automatisch skalieren (Zoom) |
Sub ZoomToFitRange()
Dim ws As Worksheet
Dim rng As Range
Dim cellHeight As Double
Dim cellWidth As Double
Dim zoomFactor As Double
Set ws = activesheet
Set rng = ws.Range("A1:X43")
' Bildschirmgröße und Bereichsgröße erfassen
cellWidth = rng.Width
cellHeight = rng.Height
' Zoomfaktor berechnen
zoomFactor = Application.Width / cellWidth * 100
' Wähle den kleineren Zoom, um sowohl Höhe als auch Breite zu berücksichtigen
zoomFactor = WorksheetFunction.Min(zoomFactor, Application.Height / cellHeight * 100)
' Den Zoomfaktor anwenden
ActiveWindow.Zoom = zoomFactor
End Sub
Eigentlich gibt es hier nie vollständige Lösungen. Da du aber so lieb fragst und auch Danke sagst.
Bitteschön. Ich hoffe es funktioniert wie du dir das vorstellst.
|
- 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
Bitte geben Sie ein aussagekräftiges Thema an.
Bitte geben Sie eine gültige Email Adresse ein!
- 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 |
|
|
|
25.10.2024 23:27:32 |
Gast51370 |
|
|
|
26.10.2024 10:56:40 |
volti |
|
|
|
26.10.2024 12:32:25 |
GTA |
|
|
|
28.10.2024 07:33:40 |
Natalie |
|
|
|
28.10.2024 11:16:33 |
GTA |
|
|
|
28.10.2024 12:38:34 |
Natalie |
|
|
Sichtfeld automatisch skalieren (Zoom) |
28.10.2024 13:13:12 |
Gast81826 |
|
|
|
29.10.2024 07:42:17 |
Natalie |
|
|