Maßeinheit der SPaltenbreite?

krtv_stsc · 2006-07-26T10:01:44+00:00

Hi! Wollte mal nachfragen, ob mir jemand sagen kann, in welcher Maßeinheit die SPaltenbreite in Excel angegeben wird (nicht die Pixel, sondern der andere Wert). Ich bin davon ausgegangen, es seien Millimeter, das kommt mit der Seitenbreite verglichen jedoch nicht hin. THX im Vorraus.

Hallo ,
gugg mal was ich im Internet gefunden habe:
Das Einstellen der Zeilenhöhe in Zentimetern ist relativ einfach: Excel verwendet neben der Angabe in Pixeln die Masseinheit «Punkt» - gemeint ist der typografische Punkt, der 1/72 Zoll gross ist. Umgerechnet ist 1 Punkt = 0,035277778 cm. Soll die Zeile 0,5 cm hoch sein, dann muss die Höhe also auf 0,5/0,035277778 = 14,17 Punkt eingestellt werden.
Schwieriger wird es bei der Spaltenbreite. Die Excel-Angabe der Breite entspricht der Durchschnittsanzahl der Ziffern 0 bis 9 in der Standardschriftart, die in eine Zelle passen. Da diese Angabe von der gewählten Schriftart abhängt, ist sie nicht für exakte Angaben geeignet, denn je nach Drucker fällt die Breite der Schrift auf dem Bildschirm und auf unterschiedlichen Druckern ebenfalls unterschiedlich aus. Eher geeignet ist für die Spaltenbreite die Angabe in Pixeln. Ein Pixel hat zwar ebenfalls keine feste Breite, wenn man jedoch die Auflösung hinzunimmt, dann lassen sich auch Pixel in Zentimeter umrechnen. Je nach Auflösung ist ein Pixel mal grösser, mal kleiner: Betrachten Sie eine Tabelle auf einem Bildschirm mit einer Auflösung von 800*600 Pixeln, erscheint sie grösser als auf einem Bildschirm mit einer Auflösung von 1024*768 Pixeln. Analog verhält es sich beim Drucken: Je höher die Auflösung, um so kleiner wird die Tabelle. Relativ gesehen bleibt jedoch die Breite immer gleich, weil sich Inhalt und Breite gleichermassen ändern.
Excel erleichtert die Umrechnung von Pixeln in Zentimeter, weil es - unabhängig von der Auflösung des Druckers - Tabellen immer mit 96 dpi druckt. Die Umrechnung können sie mit der Excel-Funktion UMWANDELN vornehmen (sie ist Teil der Analyse-Funktionen, dieses Add-In muss also installiert sein):
=96/(UMWANDELN(1;"in";"m")*100)
Das Kürzel «in» steht für «inch», das englische Wort für Zoll. Die Einheit «cm» existiert für die Funktion UMWANDELN nicht, sondern nur «m». Deshalb muss das Resultat zum Schluss mit 100 multipliziert werden, um die Zentimeter zu berücksichtigen. Das Ergebnis sind 37,8 Pixel. Da jedoch nur ganze Pixel erlaubt sind, runden Sie auf 38 Pixel auf. Die dadurch entstehende Abweichung auf 10 cm beträgt ca. 1mm, ist also tolerierbar.
LG
Susanne

Hi
Baue dir dies 2 Makros in deine persönliche Makroarbeitsmappe ein und verbinde sie mit je einem Button auf der Symbolleite, dann kannst du die Breie und die Höhe in cm ablesen
Die Angaben stimmen für HP Drucker, für andere habe ich es noch nicht probiert!
Gruss
Egres


Sub Zeilenhöhe()
Dim höhe As Single, aktuell As Single, text As String, antwort As String
'Nur für HP
'In " Extras/Optionen/Allgemein" muss Standartschriftart : "ARIAL"
'                                 und Schriftgrad : "10"
'                                                    eingestellt sein
'aktuelle Zeilenhöhe ermitteln
aktuell = Selection.RowHeight / 29.1
'Text zur Angabe vorbereiten
text = "Die aktuelle Zeilenhöhe ist " & Format(aktuell, "###0.00 cm") & Chr(13) & "Geben Sie die gewünschte Zeilenhöhe für die aktuelle Zeile oder Markierung in cm ein    (max13,85)   :"
' InputBox anzeigen
antwort = InputBox(text, "Neue Zeilenhöhe festlegen", Format(aktuell, "###0.00"))
'Antwort auswerten und die neue Zeilenhöhe setzen
If antwort <> "" Then
höhe = CSng(antwort)
Selection.RowHeight = höhe * 29.1
End If
End Sub


Sub Spaltenbreite()
Dim breite As Single, aktuell As Single, text As String, antwort As String
'Nur für HP
'In " Extras/Optionen/Allgemein" muss Standartschriftart : "ARIAL"
'                                 und Schriftgrad : "10"
'                                                    eingestellt sein
'aktuelle Spaltenbreite ermitteln
aktuell = (Selection.ColumnWidth + 0.71) / 5.1425
'Text zur Angabe vorbereiten
text = "Die aktuelle Spaltenbreite ist " & Format(aktuell, "###0.00 cm") & Chr(13) & "Geben Sie die gewünschte Spaltenbreite für die aktuelle Zeile oder Markierung in cm ein    (max 49.72)   :"
' InputBox anzeigen
antwort = InputBox(text, "Neue Spaltenbreite festlegen", Format(aktuell, "###0.00"))
'Antwort auswerten und die neue Spaltenbreite setzen
If antwort <> "" Then
breite = CSng(antwort)
Selection.ColumnWidth = -0.71 + 5.1425 * breite
End If
End Sub

Forumthread: Maßeinheit der SPaltenbreite?

5
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Forumthreads zu verwandten Themen

Infobox / Tutorial