Range Mittig setzten
09.07.2016 18:13:52
Tobi
ich habe ein CoverSheet erstellt. Ich möchte, dass die Spalte A und die Reihe 1 immer so dimensioniert werden, dass der Range mittig gesetzt wird.
Klar geht es mit einen UserForm leichter, aber mein Chef wünscht sich, dass es so gelöst wird.
Mein Lösungsansatz:
Sub mittig()
Dim h As Integer, w As Integer
' h = height For Row 1
' w = width For Column 1
Dim i As Integer
' i = Counter
w = 0
For i = 1 To 15 ' Add Column B To Column P
w = w + Columns(i + 1).Width
Next i
h = 0
For i = 1 To 32 ' Add Row 2 To Row 33
h = h + Rows(i + 1).Height
Next i
w = (ActiveWindow.Width - w) / 2
h = (ActiveWindow.Height - h) / 2
Columns(1).ColumnWidth = w
Rows(1).RowHeight = h
End Sub
Problem ist wohl in den letzten 2 CommandZeilen, da irgendwas mit den Einheiten nicht stimmt? Habe schon fleißig gegoogelt, doch zu viele verschiedenen Antworten gefunden, die auch nicht mein Problem lösen.
Hier die Datei:
https://www.herber.de/bbs/user/106886.zip
Liebe Gruß
Tobi