habe hier einen Tip bekommen und weis aber nicht wie ich diese Formel in die untenstehende Funktion einbauen muss damit die Abfrageboxen nicht mehr erscheinen und der Wert aus den abgefragten Zellen automatisch übernommen wird.
Danke für eure Unterstützung.
Paul
------------------------------------
um Werte aus einer Zelle zu lesen, brauchst du nur folgenden Code eingeben.
ActiveSheet.Range("A1").Value
Gruß Ralf
-------------------------------------------
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