Live-Forum - Die aktuellen Beiträge
Datum
Titel
26.09.2025 10:29:46
Wert aus einer Zelle bei jeder Eingabe in neue Zelle
26.09.2025 08:51:00
Teilinhalt einer Zelle vergleichen
25.09.2025 23:04:12
Einen von drei möglichen Einträgen in einer Zeile suchen
25.09.2025 19:59:48
Lebenserleichternde Datei, im Bezug auf die Essensauswahl
Keine passende Antwort im Forumarchiv gefunden?
Stelle deine Frage im Live-Forum
Anzeige
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 Übersicht
Verzeichnis Übersicht
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Fensterbreite und Höhe nur bis zum Ende

Forumthread: 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!
Anzeige

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!
Anzeige
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
;

Forumthreads zu verwandten Themen

Zelleninhalt wird bei Wenn-Abfrage nicht erkannt
CheHerbers

Hey,
ich habe eine Wenn-Abfrage, die prüfen soll, ob A1kleinerA2.
In A1 und A2 stehen jeweils Datum mit Uhrzeit.
A1 = 17.02.2009 10:42:35
A2 = 17.02.2009 10:43:57
A1 fülle ich über ein Makro.
Code:
Sheets("Daten").Range("A1") = ComboBox1.Value & " " &...
18.02.2009 10:35:00
Thread-ID: 1051714
4 Beiträge
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
VBA Datumsspalte bis zum aktuellen Tag markieren
Michael

Hallo, ich habe einiges ausprobiert aber nichts hat annährend funktioniert daher suche ich nun hier Hilfe.
Ich habe eine Tabelle wo in der Spalte A immer ein Datum steht.
In Zelle E:3 befindet sich das aktuelle Datum.
Nun möchte ich gern das in Spalte A alle Werte bis zum Tag vor de...
10.06.2009 09:13:18
Thread-ID: 1080342
2 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
Ü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
Anzeige
Spalten bis zum Schluss ausblenden
Matthias

Hallo miteinander,
wie ich per VBA einzelne oder auch mehrere Spalten ausblenden kann ist für mich klar.
Ich möchte jedoch, dass sämtliche Spalten bspw. ab Spalte AC aufwärts ausgeblendet werden und damit im Normalfall auch nicht mehr erreichbar sind. Wie bekommt man das hin?
Grupp...
20.08.2012 10:25:45
Thread-ID: 1275682
3 Beiträge
Automatisch markieren, bis folgende Zelle leer
Hermann

Hallo,fuer folgendes Problem suche ich einen VBA - Code:Ich moechte gerne ab einer bestimmten Zeile Zellen solange markieren (z.B. ab A6), bis eine leere Zelle kommt. Mit den markierten Zellen moechte ich dann naemlich ein Diagramm erstellen. Es kann auch sein, dass ich mehrer Reihen markiern m...
20.06.2002 22:52:01
Thread-ID: 130328
3 Beiträge
Daten bis zum "Ende der Spalte" auswerten
luna

Hallo,
ich habe eine Tabelle bei der in unregelmäßigen Abständen immer wieder eine neue Zeile dazu kommt. Ich möchte auf einem anderen Tabellenblatt die Daten auswerten. Da ich keinen festen Bereich, wie z.B. (K2:K200) angeben kann, würde ich gerne ein Kriterium in der Art: "von K2 bis Kx, a...
15.07.2002 13:38:32
Thread-ID: 136636
3 Beiträge
Makro markiert nicht gewünschte Zellen
conny

Ich habe ein Problem mit meiner Sub-methode.
Also ich will einen Bereich feststellen in dem die Zellen mit Inhalt gefüllt sind und diesen anschließend markieren.
Dazu habe ich folgenden Quellcode:Sub Spalte() Dim aktz As Object, cell1 As Object, cell2 As Object
Dim zeil As Integ...
22.07.2002 14:06:00
Thread-ID: 139033
11 Beiträge
Kopierte Zellen einfügen / Summe wird nicht aktual
Marcus

Moin,
ich habe Excel 2013 in Betrieb und stehe vor einem kleinen Problem. Vielleicht kennt das jemand und weiß Rat?
Ich schildere das kurz:
A1 = Überschrift
A2-A5 = Werte
A6 = Summe A2-A5
Wenn ich jetzt in A6 "kopierte Zellen einfüge" mit einem Wert, wird die Summe in A6...
30.07.2014 14:48:46
Thread-ID: 1373172
3 Beiträge
VBA: Zellen verbinden funktioniert nicht. Warum?
David

Hallo zusammen,
eigentlich war ich der Meinung, mittlerweile schon ein ganz ordentliches VBA-Repertoire erworben zu haben. Momentan zweifle ich aber daran.
Wenn ich mehrere Zellen untereinander markiere, sollen diese verbunden werden und eine bestimmte Formatierung bekommen. Das geht so...
20.05.2015 09:02:06
Thread-ID: 1426838
10 Beiträge
Entdecke relevante Threads

Schau dir verwandte Threads basierend auf dem aktuellen Thema an

Alle relevanten Threads mit Inhaltsvorschau entdecken

Beliebteste Forumthreads (12 Monate)

Jetzt das Excel-Portal bewerten: Deine Stimme zählt!
Anzeige
Anzeige
Entdecke mehr
Finde genau, was du suchst

Die erweiterte Suchfunktion hilft dir, gezielt die besten Antworten zu finden

Suche nach den besten Antworten
Unsere beliebtesten Threads

Entdecke unsere meistgeklickten Beiträge in der Google Suche

Top 100 Threads jetzt ansehen
Anzeige