Live-Forum - Die aktuellen Beiträge
Datum
Titel
27.04.2024 20:04:34
Excel in Formen z.b Rechteck, eine Tabelle einfügen?
27.04.2024 19:23:05
Passwortabfrage für verschiedene tabellenblätter
27.04.2024 16:48:06
Formel gibt Falsch aus und ich weiß nicht warum - VBA
27.04.2024 14:45:54
Verknüpfung Tabelleneinträge mit Datumsspalte
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
1896to1900
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
Vorheriger Thread
Vorheriger Thread
Rückwärts Blättern
1896to1900
1896to1900
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Fensterbreite und Höhe nur bis zum Ende

Fensterbreite und Höhe nur bis zum Ende
16.09.2022 12:00:06
Alex
Hallo Zusammen,
ich brauche eine Lösung für folgendes Problem:
Ich möchte bei der Veränderung der Größe des Excel-Fensters, dass die Tabelle automatisch sich der Fenstergröße anpasst.
Dafür habe ich diesen Code jetzt geschrieben der auch funktioniert:

Private Sub Workbook_WindowResize(ByVal Wn As Window)
Range("a1:n21").Select
ActiveWindow.Zoom = True
Range("a1").Select
End Sub
Jetzt möchte ich zusätzlich nachdem ich die Maus loslasse, dass die Fensterbreite und Höhe nur bis zum Ende der Tabelle a1:n21 geht, oder besser gesagt sich zurückzieht.
Besten Dank!

6
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Fensterbreite und Höhe nur bis zum Ende
16.09.2022 13:09:30
Daniel
Hi
probier mal das, braucht aber noch ein bisschen Feinabstimmung.

Private Sub Workbook_WindowResize(ByVal Wn As Window)
Dim rng1 As Range
Dim rng2 As Range
Set rng1 = Range("a1:n21")
rng1.Select
With ActiveWindow
.Zoom = True
Set rng2 = .VisibleRange
Application.EnableEvents = False
If rng2.Columns.Count > rng1.Columns.Count + 1 Then _
.Width = .Width - Range(Columns(rng1.Columns.Count + 2), Columns(rng2.Columns.Count)).Width * .Zoom / 100
If rng2.Rows.Count > rng1.Rows.Count + 1 Then _
.Height = .Height - Range(Rows(rng1.Rows.Count + 2), Rows(rng2.Rows.Count)).Height * .Zoom / 100
Application.EnableEvents = True
End With
End Sub
Gruß Daniel
Anzeige
AW: Fensterbreite und Höhe nur bis zum Ende
16.09.2022 14:01:57
Alex
Wow, vielen herzlichen Dank für Deine Mühe!
Es funktioniert bestens.
Einziges Problem noch:
Wenn ich in den Vollbildmodus wechsle kommt eine Fehlermeldung, dass die With-Eigenschaft nicht festgelegt werden kann.
Gibt es auch dafür eine Lösung? Das er zb. den Code nicht ausführt wenn man auf Vollbild klickt.
Besten Dank!
AW: Fensterbreite und Höhe nur bis zum Ende
16.09.2022 14:10:28
Daniel
naja, im Vollbildmodus kann man die Breite und Höhe nicht verändern, weil die ja über die Bildschirmgröße vorgegeben sind.
du kannst über ActiveWindow.WindowState ermitteln, ob du im Vollbildmodus oder im normalen Modus bist und darüber dann steuern, ob die Anpassung ausgeführt werden soll oder nicht.
Oder du schaltest den Vollbildmodus im Marko aus, damit du selbst anpassen kannst.
Gruß Daniel
Anzeige
AW: Fensterbreite und Höhe nur bis zum Ende
16.09.2022 15:07:51
Alex
Jawoll, jetzt passt alles! Vielen Dank!
Hier der funktionierende Code:

Private Sub Workbook_WindowResize(ByVal Wn As Window)
Dim rng1 As Range
Dim rng2 As Range
If Application.WindowState  xlMaximized Then
Set rng1 = Range("a1:n21")
rng1.Select
With ActiveWindow
.Zoom = True
Set rng2 = .VisibleRange
Application.EnableEvents = False
If rng2.Columns.Count > rng1.Columns.Count + 1 Then _
.Width = .Width - Range(Columns(rng1.Columns.Count + 2), Columns(rng2.Columns.Count)).Width * .Zoom / 100
If rng2.Rows.Count > rng1.Rows.Count + 1 Then _
.Height = .Height - Range(Rows(rng1.Rows.Count + 2), Rows(rng2.Rows.Count)).Height * .Zoom / 100
Application.EnableEvents = True
Range("a1").Select
End With
Else
Range("a1:n21").Select
ActiveWindow.Zoom = True
Range("a1").Select
End If
End Sub

Anzeige
AW: Fensterbreite und Höhe nur bis zum Ende
16.09.2022 15:17:01
Daniel
nur so als Tip:
wenn du mal die IF-Abfrage richtig platzierst, dann sparst du dir die Doppelprogrammierung von 

Range("a1:n21").Select
ActiveWindow.Zoom = True
Range("a1").Select
denn die muss ja immer ausgeführt werden.
Gruß Daniel
AW: Fensterbreite und Höhe nur bis zum Ende
16.09.2022 15:34:19
Alex
Danke für die Korrektur!
Beste Grüße,
Alex
Hier der Code:

Private Sub Workbook_WindowResize(ByVal Wn As Window)
Dim rng1 As Range
Dim rng2 As Range
Set rng1 = Range("a1:n21")
rng1.Select
With ActiveWindow
.Zoom = True
If Application.WindowState  xlMaximized Then
Set rng2 = .VisibleRange
Application.EnableEvents = False
If rng2.Columns.Count > rng1.Columns.Count + 1 Then _
.Width = .Width - Range(Columns(rng1.Columns.Count + 2), Columns(rng2.Columns.Count)).Width * .Zoom / 100
If rng2.Rows.Count > rng1.Rows.Count + 1 Then _
.Height = .Height - Range(Rows(rng1.Rows.Count + 2), Rows(rng2.Rows.Count)).Height * .Zoom / 100
Application.EnableEvents = True
End If
Range("a1").Select
End With
End Sub

Anzeige

305 Forumthreads zu ähnlichen Themen

Excel markiert mehrere Zellen
Udo

Hallo zusammen,
seit kurzem hab ich das Problem, dass Excel immer 4 Zellen senkrecht auf einmal markiert. Ich bekomme es nicht weg. Jemand ne Idee ?
Vielen Dank
28.11.2008 23:27:00
Thread-ID: 1028803
3 Beiträge
Anzeige
Information von Zelle wird nicht erkannt
Zelle

https://www.herber.de/bbs/user/60476.xls
Hey Leute
eigentlich habe ich hier ein gutes program aber in Ausgang gibt es ein problem ich denke es ist ganz klein.
jedoch für mich risig da ich es nicht lösen kann, siehe beispiel.
vielleicht kann mir jemand helfen, bin aber kein prof...
19.03.2009 18:25:55
Thread-ID: 1061948
9 Beiträge
Zelle wird nicht berechnet
Günter

Hallo Zusammen,
ich habe in Sub Worksheet_SelectionChange(ByVal Target As Range)
folgenden Befehl stehen
If (Cells(z, R16).Value) > 0 Then Cells(z, R18).Value = Cells(z, R16).Value + zd Else Cells(z, R18).Value = Cells(z, R14).Value + zd End If
Die entsprechend...
25.04.2009 19:36:04
Thread-ID: 1071147
6 Beiträge
Anzeige
Ab von Tabelle8 bis Ende mache
Tabelle8

Hallo,
Ich würde gerne einen Kopiervorgang automatisieren.
Und zwar habe ich viele Tabellenblätter in einer Mappe, und es soll ab dem 8 Tabellenblatt bis zum letzen jeweils die gleiche Sub aufgerufen werden.
Ich kriege die Schleife mit dem hochzählen der Blätter nicht hin.
Wer k...
30.01.2010 13:56:48
Thread-ID: 1134370
10 Beiträge
Zellen markieren aber nicht überschreiben
onkelbobby

Hallo,
ich such nach einer Lösung eine Zelle zwar auszuwählen (markieren) aber nicht zu überschreiben.
Mit dem bisherigen Blattschutz kann ich die Zellen ja erst gar nicht auswählen.
Hintergrund: Es ist ein Button vorhanden, der die aktuell markierte Zeile in ein Word-Formular überg...
23.04.2010 11:13:17
Thread-ID: 1153450
3 Beiträge
Über mehrere Zellen zentrieren (nicht markiert)
Peter

Guten Tag
Ich will in einer Tabelle über A1:H1 eine Überschrift zentrieren. Wenn der Bereich selektiert ist, funktioniert das wie folgt:
Range("A1:H1").Select
With Selection
.HorizontalAlignment = xlCenterAcrossSelection
End with
Gibt eine Möglichkeit, die Zentrierung üb...
24.01.2011 15:49:36
Thread-ID: 1197065
4 Beiträge
A1 bis letzte verwendete Zelle markieren
Marten

Hallo,
bin mal wieder auf der Suche im Internet nicht fündig geworden. Ich würde gerne in meiner Excel-Datei einen bestimmten (variablen) Bereich markieren. Anfangspunkt hierfür ist immer "A1". Nun soll Excel mir den Bereich von A1 bis zur letzten verwendeten Zelle in Zeile 1 markieren. Das...
03.08.2011 10:38:39
Thread-ID: 1224691
4 Beiträge
zellen lassen sich nicht mehr formatieren
michael

Hallo
ich habe eine excel tabelle mit der version 2003 erstellt. dort sind einige zellen frei andere geperrt und ein blattschutz mit kennwort.
wenn die daten eingetragen sind, wird ein macro gestartet dass den blattschutz aufhebt die zellen formatiert und rahmen einträgt danach wird wie...
08.02.2012 20:32:20
Thread-ID: 1249846
7 Beiträge

Beliebteste Forumthreads (12 Monate)

Anzeige
Jetzt das Excel-Portal bewerten: Deine Stimme zählt!

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige
Archiv - Verwandte Themen
Forumthread
Beiträge
2
3
8
5
1
9
2
3
3
6
2
2
2
10
2
9
2
10
2
2
1
2
16
5
5