Hallo,
folgendes Problem möchte ich lösen.
Bei der Funktion Spalten und Zeilen in cm möchte ich anstatt der Eingabe von Werten diese aus einer bzw. 2 Zellen übernehmen.
Wie geht das?
Hier die Funktion:
'Zeigt Spaltenbreite und Zeilehhöhe in cm an
'Die gewünschte Spaltenbreite und Zeilenhöhe kann über
'Inputbox eingegeben werden. Alle markierten Spalten werden geändert.
'L. Meister 6.1.02
Sub Format_Spalten_ZeilenCM()
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 = "Faktor Modulbreite: " & _
Format(sAktuell, "###0.00") & Chr(13) _
& "Gib den Wert aus der Zelle BREITE 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 = "Faktor Modulhöhe: " & _
Format(ZAktuell, "###0.00") & Chr(13) _
& "Gib den Wert aus der Zelle HÖHE 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