---

Hallo,

sagt mal hat einer eine Ahnung ob es bei der Angabe der Spaltenbreite bzw. der Zeilenhöhe einen Faktor gibt den man berücksichtigen muss um auf genaue Angaben z.B. in "mm" zu kommen?? Habe nämlich das Problem das ich ein Blatt mit unterschiedlichen Zeilen und Spaltenbreite generieren muss und habe dafür nur die genauen "mm" angaben.
Oder was mache ich falsch wenn ich den Code

Range("A1:A15").Select
Selection.ColumnWidth = 10

benutze um meine Breite festzulegen und dann damit Rechne, dass meine Spalte 10mm breit ist. Was sie aber leider nicht ist. Bei der Zeilenhöhe gibt es das gleiche Problem.
Vielen dank für alle hoffentlich positiven Kommentare

------------------
Viele Grüße Robert
und vielen Dank für jeden Beitrag!!!

[Diese Nachricht wurde von robert_de am 11. Nov. 2005 editiert.]

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP

---

Hallo Robert,

das ist mE im Excel eine echte Qual  .

In der Hilfe heißt es:

Zitat:

---

Die Zahl im Feld Standardspaltenbreite gibt an, wie viele der Ziffern 0-9 in der Standardschriftart durchschnittlich in eine Zelle passen.

---

Also bleibt, soweit mir bekannt, nur ausprobieren    - oder eine Wordtabelle bauen (wenn sich zB nur wenige und einfache Formeln benötigt werden....

Gruß
Heiko

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP

---

Hallo, habe in einem anderen Forum folgende Lösung für das Problem gefunden. Leider bin ich noch nicht dazu gekommen das ganze zu testen. Aber wollte euch die Antwort nicht vorenthalten. Wenn jemand damit Erfahrungen gesammelt hat und alles funktioniert kann er bzw. sie es ja mal hier posten.

Hier mal die Umrechnungsfaktoren:

Zellenhöhe in mm

Code:

Hoehe = 10
Selection.RowHeight = Hoehe / 0.35

Zellenbreite in mm

Code:

Breite = 10
Selection.ColumnWidth = Breite * 0.5052

------------------
Viele Grüße Robert
und vielen Dank für jeden Beitrag!!!

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP

---

das Ergebnis kommt nahe, trifft aber leider nicht ganz...

Höhe ganz gut getroffen: 9,8 mm
Breite naja: 11,6 mm

ob da die Standardschrift (Laufbreite) eine Rolle spielt ?

mal seh'n ob sich noch was findet...
Gruß
Heiko

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP

---

ich meine die Höhe ist jedenfalls in PICA (1/72 vom Zoll -> 0,03527777 cm).
Damit ist Deine Angabe nicht falsch und kann genauer eingegeben werden.

Aber die Breite 

Gruß
Heiko

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP

---

versucht dies, macht zumindest bei mir Arial 10 und meinem Drucker den richtigen Ausdruck, da aber Schriftart und Drucker mitentscheidend sind, hilft nur ausprobieren :-)

weiteres auf http://support.microsoft.com/default.aspx?scid=kb;de;504562

Code:

---

Sub Format_Spalten_ZeilenMM()

Format_SpaltenMM
Format_ZeilenMM

End Sub
Sub Format_SpaltenMM()

Dim sBreite As Single
Dim sAktuell As Single
Dim strText As String
Dim strAntwort As String

sAktuell = (Selection.ColumnWidth + 0.71) / 5.0731579 * 10
strText = "Aktuelle Spaltenbreite in mm: " & Format(sAktuell, "###0.00 mm") & Chr(13) & "Gib die gewünschte Spaltenbreite für die " & "aktuelle Markierung in mm ein:"
strAntwort = InputBox(strText, "Neue Spaltenbreite festlegen", Format(sAktuell, "###0.00"))
If strAntwort <> "" Then
sBreite = CSng(strAntwort)
Selection.ColumnWidth = -0.71 + 5.0731579 * sBreite / 10
End If
End Sub
Sub Format_ZeilenMM()

Dim strText As String
Dim strAntwort As String
Dim ZHöhe As Single
Dim ZAktuell As Single

ZAktuell = Selection.RowHeight
Faktor = 2.9
ZAktuell = Selection.RowHeight / Faktor
strText = "Aktuelle Zeilenhöhe in mm: " & Format(ZAktuell, "###0.00 mm") & Chr(13) & "Gib die gewünschte Zeilenhöhe für die " & "aktuelle Markierung in mm ein:"
strAntwort = InputBox(strText, "Neue Zeilenhöhe festlegen", Format(ZAktuell, "###0.00"))
If strAntwort <> "" Then
ZHöhe = CSng(strAntwort)
Selection.RowHeight = Faktor * ZHöhe
End If
End Sub

---

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP

---

Hallo Leute

Habe vor einiger Zeit einmal ein AddIn erhalten, dass das Problem behebt. MyCellSize

Download: http://www.tagesanzeiger.ch/dyn/digital/kummer/388117.html

Hoffe es hilft

Gruss

------------------
Tobi 

      FASHION

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP

---

Hi Tobi,

leider funktioniert nach so langer Zeit der angegebene Link nicht mehr.
Hättest du das AddIn noch anderweitig vorrätig?

Zu den o.g. Lösungswegen kann ich nur kurz hinzufügen bzw. bestätigen, dass die Spaltenbreite von der voreingestellten Standardschrift und der voreingestellten Standardschriftgröße, vom Zoomfaktor der Seiteneinrichtung und wahrscheinlich noch von mehr abhängig ist. Je nachdem, ist also der Umrechnungsfaktor verschieden.
Da ich in meinem Fall die Breite der gesamten Tabelle errechnen will, habe ich auch festgestellt, dass der Faktor sich je nach Gesamtbreite in Points auch ändert, und zwar nicht linear. Daher bin ich durchaus neugierig auf die Ergebnisse des AddIns.

Zur Zeit benutze ich folgende Umrechnungsformel (deren Ergebnisse aber noch nachbearbeitet werden müssen):

Code:

---

Breite[mm] = Breite[Pt] * Faktor * ActiveSheet.PageSetup.Zoom / 100
                  * ActiveWorkbook.Styles("Normal").Font.Size / 10

'mit Faktor = ca. 2,08

---

Die Umrechnung von Thomas habe ich noch nicht ausprobiert.

Im Gegensatz zur Spaltenbreite ist die Zeilenhöhe wesentlich einfacher zu handeln: dafür gibts Application.CentimetersToPoints bzw. Application.InchesToPoints

------------------
Gruß
SebZ

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP

---

Verwende doch mal die Google Suche nach MyCellSize  , da gibt es diverse Links.

Axel

------------------

Inoffizielle deutsche CATIA Hilfeseite

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP

---

Das Thema ist doch sehr vom Drucker abhängig. Ich würd's Wühlen im Internet lassen, ein paar Zellen auf 100 hoch und 100 breit formatieren und mit "Gitternetzlinien an" auf meinen Drucker schicken. Breite und Höhe ausmessen und schon hat man die Faktoren.

------------------
Seit Pro/E Version 1 dabei, auwei...

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP