Lineal in Excel ?

• Lineal in Excel ? von @lex vom 15.04.2002 - 11:35:02
• Re: Lineal in Excel ? von Kl@us-M. vom 15.04.2002 - 11:37:31 (0)
  • Die Recherche bringt's an den Tag! von sam vom 15.04.2002 - 11:42:21 (0)
    • Re: Die Recherche bringt's an den Tag! von @lex vom 15.04.2002 - 11:44:59 (0)
      • Re: Die Recherche bringt's an den Tag! von sam vom 15.04.2002 - 11:50:55 (0)
  • Sehr gut! Danke! (n/t) von @lex vom 15.04.2002 - 11:42:17 (0)

Re: Lineal in Excel ?

von: Kl@us-M.
Geschrieben am: 15.04.2002 - 11:37:31

Versuch´s mit folgenden Codes:

Sub zeilenhoehe()
Dim hoehe As Single, aktuell As Single, text As String, antwort As String
aktuell = Selection.RowHeight / 29.5
text = "Aktuelle Zeilenhöhe: " & Format(aktuell, "###0.00 cm") & Chr(13) & "Geben Sie die gewünschte Zeilenhöhe für die aktuelle Zeile oder Markierung in cm ein:"
antwort = InputBox(text, "Neue Zeilenhöhe festlegen", Format(aktuell, "###0.00"))
If antwort <> "" Then
    hoehe = CSng(antwort)
    Selection.RowHeight = hoehe * 29.5
End If
End Sub

Sub spaltenbreite()
Dim breite As Single, aktuell As Single, text As String, antwort As String
aktuell = (Selection.ColumnWidth + 0.71) / 5.1425
text = "Aktuelle Spaltenbreite: " & Format(aktuell, "###0.00 cm") & Chr(13) & "Geben Sie die gewünschte Spaltenbreite für die aktuelle Spalte oder Markierung in cm ein:"
antwort = InputBox(text, "Neue Spaltenbreite festlegen", Format(aktuell, "###0.00"))
If antwort <> "" Then
    breite = CSng(antwort)
    Selection.ColumnWidth = -0.71 + 5.1425 * breite
End If
End Sub

Gruss
Klaus-Martin

Sehr gut! Danke! (n/t)

von: @lex
Geschrieben am: 15.04.2002 - 11:42:17

-

Die Recherche bringt's an den Tag!

von: sam
Geschrieben am: 15.04.2002 - 11:42:21

Hi Alex,

den Code von Alex findest du in der Recherche unter
https://www.herber.de/forum/archiv/36to40/t36161.htm und wurde von Guenter am 27.03.2001 - 19:27:21 zur Verfügung gestellt.

ein kurzer Blick in die Recherche erspart anderen die Arbeit ;-)
Sam

Re: Die Recherche bringt's an den Tag!

von: @lex
Geschrieben am: 15.04.2002 - 11:44:59

Hi Sam !
Diesen Code habe ich durchaus gefunden. :-)
Sinn und Zweck meines Postings war aber ein Add-In zu finden, welches das Lineal auch grafisch darstellt.

Alex

Re: Die Recherche bringt's an den Tag!

von: sam
Geschrieben am: 15.04.2002 - 11:50:55

reHi,

alles klar...nein, grafisch gibt es soetwas leider nicht :-(
Sam