Stalten addieren

Forumthread: Stalten addieren

Stalten addieren

09.04.2026 11:33:48

Lieske

Hallo Profis,
ich möchte Spalten addieren, meine erste Spalte ist 0,98 cm, meine zeite ist 1,98 cm breit.
Nach dieser Formel sollte mir 2,96 cm ausgegeben werden.
Es wird aber 13,43 cm ausgegeben, was habe ich verkehrt gemacht?

Sub Spaltenbreite_A_bis_B()

Dim i As Integer

Dim summe As Single

summe = 0

For i = 1 To 2

summe = summe + Columns(i).ColumnWidth

Next

MsgBox (summe)

End Sub

7
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

oder

09.04.2026 11:36:52

snb
Spalten addieren

09.04.2026 11:49:13

Lieske
ColumnWidth vs Width

09.04.2026 16:27:54

Daniel
Spaltenbreite

09.04.2026 12:30:00

{Boris}
so

09.04.2026 13:48:04

snb
Spalten addieren

09.04.2026 12:45:37

Lieske
Spaltenbreite in cm

09.04.2026 12:51:57

{Boris}

oder

09.04.2026 11:36:52

snb

Sub M_snb()

    MsgBox Columns(1).Resize(, 2).Width

    MsgBox Columns(1).Resize(, 2).ColumnWidth

End Sub

Spalten addieren

09.04.2026 11:49:13

Lieske

Stimmt auch nicht, wird einmal 84,75 und 4,29
https://www.herber.de/bbs/user/180502.xlsm

ColumnWidth vs Width

09.04.2026 16:27:54

Daniel

Hi

.Columnwidth gibt die Spaltenbreite in folgender "Einheit" an:

Wie viele Ziffern können in der Standardschriftart bei Standardschriftgröße vollständig angezeigt werden

Aus diesem Grund ist das auch immer die innere Breite, dh ohne Rahmenlinie und Randabstand.
Dh wenn du hier addierst, wirst du immer einen zu kleinen Wert erhalten.
Der nächste Punkt wäre, dass sehr komplex wäre, diesen Wert dann irgendwie in cm umrechnen zu wollen, weil zu viele Parameter da einluss haben.

Verwende auf jeden Fall .Width, das hat dann eine leichter umrechenbare Einheit, gibt die Gesamtbreite der Zelle (äußere Breite) und du kannst auch größere Zellbereiche damit am Stück abfragen, so dass du nicht addieren musst: Range("A:B").Width funktioniert.

Für die konkrete Umrechnung in CM fragst du vielleicht einfach Tante Google oder eine KI-Suchmaschine deiner Wahl.
Oder muss einfach das Ergebniss aus und berechne selbst den Umrechenfaktor.

Gruß Daniel

Spaltenbreite

09.04.2026 12:30:00

{Boris}

Hi,

Excel gibt die Spaltenbreite nicht in Zentimetern, sondern in (Standard)zeicheneinheiten an. Wenn Du die Ansicht auf Normal umstellst, kannst Du das sehen und dann stimmen die Ergebnisse auch.

VG, Boris

09.04.2026 13:48:04

snb

Sub M_snb()

    MsgBox Application.CentimetersToPoints(2.96)

    MsgBox Columns(1).Resize(, 2).Width

    MsgBox Columns(1).Resize(, 2).ColumnWidth

End Sub

Spalten addieren

09.04.2026 12:45:37

Lieske

Gibt es eine Möglichkeit das die Addition der Spalten in Zentimeter ausgegeben werden?

Spaltenbreite in cm

09.04.2026 12:51:57

{Boris}

Hi,

aus dem Archiv habe ich folgende Umrechnung gefunden - passt bei mir im Test aber nur so "ungefähr" - hier mal nur für Spalte A:

MsgBox (Range("A1").ColumnWidth + 0.71) / 5.1425

VG, Boris

Forumthread: Stalten addieren

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

Forumthreads zu verwandten Themen

7
Beiträge zum Forumthread

Beiträge zu diesem Forumthread