Live-Forum - Die aktuellen Beiträge
Datum
Titel
28.03.2024 21:12:36
28.03.2024 18:31:49
Anzeige
Archiv - Navigation
372to376
Aktuelles Verzeichnis
Verzeichnis Index
Übersicht Verzeichnisse
Vorheriger Thread
Rückwärts Blättern
Nächster Thread
Vorwärts blättern
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
372to376
372to376
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Inhaltsverzeichnis

Spaltenbreite in cm

Spaltenbreite in cm
03.02.2004 16:56:18
Andrea K.
Ich möchte gerne in Excel bestimmte Spaltenbreiten in cm einstellen. Wie muß ich denn die Angaben, die ich bekomme (pixel bzw. Zahl)umrechnen.
Danke

2
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Spaltenbreite in cm
03.02.2004 17:38:26
DieterB
Hallo Andrea,
hier der VBA-Code


Sub Format_Spalten_ZeilenMM()
Dim sBreite As Single
Dim sAktuell As Single
Dim strText As String
Dim strAntwort As String
Dim ZHöhe As Single
Dim ZAktuell As Single
On Error GoTo Fehler
Spalte = Selection.ColumnWidth
sAktuell = (Selection.ColumnWidth + 0.71) / 5.1425 * 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 = Val(strAntwort)
'sBreite = CSng(strAntwort)
Selection.ColumnWidth = -0.71 + 5.1425 * sBreite / 10
End If
ZAktuell = Selection.RowHeight
Faktor = 2.999999
ZAktuell = ZAktuell / Faktor '(Selection.RowHeight)
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
Range("A1").Select
Exit Sub
Fehler:
Range("A1").Select
End Sub

Gruß
DieterB
Anzeige

301 Forumthreads zu ähnlichen Themen

Anzeige
Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige