Markierte Spalten in Summe auf bestimmte Breite

Franz · 2013-08-21T09:11:14+00:00

Hallo! Suche verzweifelt nach einer Möglichkeit (Makro) um mehrere markierte Spalten IN SUMME auf eine bestimmte cm-Breite zu bringen. Also: Ich markiere zb. Spalten C, D, E und gebe zb. in Zelle A1 den Wert 7 ein. Dann möchte ich ein Makro, dass mir die drei Spalten automatisch in Summe auf 7cm bringt. Dh. C,D,E haben jeweils 2,33cm Breite. Ich kann leider nur VBA mit dem Macrorecorder und da komm ich da nicht hin... Bitte um Hilfe! Danke! lg Franz

Hi Franz,
die cm habe ich total überlesen und nicht berücksichtigt. Habs bei Hary dann gesehen... :-)
Hier noch einmal die Codes:


Option Explicit
Sub SpaltenBreiteGesamt()
Dim rngA As Range, lngC As Long
For Each rngA In Selection.Areas
lngC = lngC + rngA.Columns.Count
Next rngA
Selection.EntireColumn.ColumnWidth = -0.71 + 5.1425 * Cells(1, 1) / lngC
End Sub
Sub SpaltenBreiteKurz()
Selection.EntireColumn.ColumnWidth = _
-0.71 + 5.1425 * Cells(1, 1) / Selection.Columns.Count
' oder
With Selection
.EntireColumn.ColumnWidth = -0.71 + 5.1425 * Cells(1, 1) / .Columns.Count
End With
End Sub

@Hary: Bei
Selection.ColumnWidth = (-0.71 + 5.1425) * (Cells(1, 1) / Selection.Columns.Count)
sind vorn die Klammern falsch, es muss heißen
Selection.ColumnWidth = -0.71 + 5.1425 * (Cells(1, 1) / Selection.Columns.Count)
Die "-0,71" ist nicht mit zu multiplizieren.
Kürzer noch:
Selection.ColumnWidth = -0.71 + 5.1425 * Cells(1, 1) / Selection.Columns.Count
Rückmeldung wäre nett! - Grüße aus Kamp-Lintfort von Erich

Hallo!
Hurra, ich hab's!!

Sub Test()
With Range(Selection.Columns.Address)
.ColumnWidth = (28.346456692913 * Cells(1, 18) / .Width) * .ColumnWidth
.ColumnWidth = (28.346456692913 * Cells(1, 18) / .Width) * .ColumnWidth
.ColumnWidth = (28.346456692913 * Cells(1, 18) / .Width) * .ColumnWidth
.ColumnWidth = (28.346456692913 * Cells(1, 18) / .Width) * .ColumnWidth
.ColumnWidth = (28.346456692913 * Cells(1, 18) / .Width) * .ColumnWidth
.ColumnWidth = (28.346456692913 * Cells(1, 18) / .Width) * .ColumnWidth
.ColumnWidth = (28.346456692913 * Cells(1, 18) / .Width) * .ColumnWidth
.ColumnWidth = (28.346456692913 * Cells(1, 18) / .Width) * .ColumnWidth
.ColumnWidth = (28.346456692913 * Cells(1, 18) / .Width) * .ColumnWidth
End With
End Sub

Hiermit komm ich dynamisch auf die markierten Spalten und über die vielen Iterationen komm ich auch ziemlich genau auf die cm Spaltenbreite die in Zelle R1 eingeben wird. Je mehr Spalten man markiert, desto mehr Iterationen sollte man einbauen damit es halbwegs genau wird...
Danke für die Hilfe und die Denkansätze!!!
lg
Franz

Markierte Spalten in Summe auf bestimmte Breite

Forumthread: Markierte Spalten in Summe auf bestimmte Breite

12
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Forumthreads zu verwandten Themen

Beliebteste Forumthreads (12 Monate)

Markierte Spalten in Summe auf bestimmte Breite

Forumthread: Markierte Spalten in Summe auf bestimmte Breite

12 Beiträge zum Forumthread Beiträge zu diesem Forumthread

Forumthreads zu verwandten Themen

VBA Beispiele zu diesem und ähnlichen Themen

Beliebteste Forumthreads (12 Monate)

12
Beiträge zum Forumthread

Beiträge zu diesem Forumthread