Live-Forum - Die aktuellen Beiträge
Datum
Titel
17.10.2025 17:57:35
Zellen-Name aus A1 nach H1 übertragen mit Prä- + Suffix
17.10.2025 11:36:58
verschachteltes Dropdown-Menü
17.10.2025 10:28:49
Call Anweisung
16.10.2025 18:38:17
Zusammenfassung nach Personalnummer
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
1272to1276
1272to1276
Aktuelles Verzeichnis
Verzeichnis Übersicht
Verzeichnis Übersicht
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

xlFenster zentrieren

Forumthread: xlFenster zentrieren

xlFenster zentrieren
Jörg-HH
Hallo zusammen
wie ist die vba-Vokabel, wenn ein Fenster zentriert erscheinen soll? (also sowohl Top als auch Left in der Mittte)
Gruß Jörg
Anzeige

7
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Benutzer
Anzeige
AW: xlFenster zentrieren
31.07.2012 21:32:09
Nepumuk
Hallo,
welches Fenster?
Gruß
Nepumuk
...das aktive... oT
31.07.2012 21:37:40
Jörg-HH
PS
31.07.2012 21:39:06
Jörg-HH
...sorry, Nepumuk - unklare Ausdrucksweise: ich meine das Dateifenster - nicht das Anwendungsfenster...
Anzeige
AW: PS
31.07.2012 23:11:27
Nepumuk
Hallo,
immer noch nicht klar. Beschreib am besten mal wie du an diese Fenster kommst.
Gruß
Nepumuk
so:
31.07.2012 23:14:08
Jörg-HH
Sub a0_EingabebereichRufen(ByRef target As Range, ByRef wsConfig As Worksheet, ByRef ws As Worksheet, _
ByRef strSpalte As String, ByRef rngEingabe As Range, ByRef strProdTeil As String)
...
ActiveWindow.WindowState = xlMinimized
ActiveWindow.NewWindow
Application.Goto Worksheets("Formular").Range(wsConfig.Range("BL138").Value), Scroll:=True
ActiveWindow.WindowState = xlNormal
With ActiveWindow
.Top = 10
.Left = 10
...
Anzeige
AW: so?
31.07.2012 23:58:00
Nepumuk
Hallo,
so?
Option Explicit

Private Declare Function IsThemeActive Lib "UxTheme.dll" () As Long

Public Sub Test()
    Dim sngWidth As Single, sngHeight As Single
    With ActiveWindow
        .WindowState = xlMaximized
        sngWidth = .Width
        sngHeight = .Height
        .WindowState = xlNormal
        .Top = sngHeight / 2 - .Height / 2 - IIf(Cbool(IsThemeActive), 11.25, 9)
        .Left = sngWidth / 2 - .Width / 2
    End With
End Sub

Gruß
Nepumuk
Anzeige
uff...
01.08.2012 00:25:28
Jörg-HH
...drüber muß ich erstmal nachdenken. Hätte nicht gedacht, daß das so kompliziert ist, sondern eher einen Kürzel wie xlCenter oder so erwartet.
Danke erstmal, Nepumuk. Melde mich, wenn ich damit nicht klarkomme...
Jörg
;

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