Live-Forum - Die aktuellen Beiträge
Datum
Titel
28.03.2024 21:12:36
28.03.2024 18:31:49
Anzeige
Archiv - Navigation
360to364
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
360to364
360to364
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Inhaltsverzeichnis

Zeilen und Spalten in mm/cm

Zeilen und Spalten in mm/cm
08.01.2004 16:17:53
Michael
Hallo,
ist es möglich, Zeilen- oder Spaltenbreiten in mm oder cm anzugeben ?
Vielen Dank schon mal im Voraus.
Michael

3
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Zeilen und Spalten in mm/cm
08.01.2004 16:35:56
DieterB
Hallo Michael,
über Extras, Makro den VBE aufmachen, Modul einfügen und diesen Code reinschreiben.
Ggf noch anpassen und gut.
Gruß
DieterB

'Zeigt Spaltenbreite und Zeilehhöhe in mm an
'Die gewünschte Spaltenbreite und Zeilenhöhe kann über Inputbox eingegeben werden.
'Alle markierten Spalten werden geändert.

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

Anzeige
AW: Zeilen und Spalten in mm/cm
09.01.2004 12:59:12
Michael
Wunderbar, vielen Dank !
Gern geschehen o.T.
09.01.2004 14:40:34
DieterB
.

319 Forumthreads zu ähnlichen Themen

Anzeige
Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige