VBA-Forum - Das Forum zu Microsoft VBA

Ansicht des Beitrags:

Von: Tobi	Datum: 13.07.2016 10:23:21	Views: 983	Rating:	Antwort:
Thema: Range Mittig setzen
Hey, hier die Datei: http://www.herber.de/bbs/user/106932.xlsm Erklärung: Ich habe ein Cover-Sheet erstellt. In diesen Cover Sheet ist eine Art Deckblatt von Reihe 2-33 und Spalte B-P (=Range). Nun möchte ich, dass die Reihen 1 und 34 und die Spalten A und Q gleich groß dimensioniert werden und zwar so, dass der Range immer mittig dargestellt wird; egal welche Auflösung, Pixelauflösung oder Größe eines Monitors benutzt wird. Es greifen immerhin verschiedenen Leute auf dieses Tool zu. Code: Sub mittig() Dim h As Integer, w As Integer ' h = height For Row 1 and 33 ' w = width For Column 1(A) and 16(Q) Dim i As Integer ' i = Counter ' Auslesen der Breite des Ranges von Spalte B bis P w = 0 For i = 1 To 15 ' Add Column B To Column P w = w + Columns(i + 1).Width Next i ' Auslesen der Höhe von Reihe 2-33 h = 0 For i = 2 To 33 ' Add Row 2 To Row 33 h = h + Rows(i).Height Next i ' Bildschirmbreite - Breite des Ranges / 2 (wegen 2 Spalten (A und Q) w = (ActiveWindow.Width - w) / 2 ' Bildschirmhöhe - Höhe des Ranges / 2 (wegen 2 Zeilen (1 und 34) h = (ActiveWindow.Height - h) / 2 Columns(1).ColumnWidth = w Columns(16).ColumnWidth = w Rows(1).RowHeight = h Rows(34).RowHeight = h End Sub Ich habe das Gefühl, dass irgend etwas mit den Einheiten nicht stimmt? Gruß Tobi P.S: wo ist der Code-Button?

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