Artikel Datenbank Foren-Übersicht Artikel Datenbank
Computer - Internet - Multimedia
 
 FAQFAQ   SuchenSuchen   MitgliederlisteMitgliederliste   BenutzergruppenBenutzergruppen   RegistrierenRegistrieren 
 ProfilProfil   Einloggen, um private Nachrichten zu lesenEinloggen, um private Nachrichten zu lesen   LoginLogin 

Excel, Spaltenbreite und Zeilenhöhe in Zentimetern angeben

 
Neues Thema eröffnen   Neue Antwort erstellen    Artikel Datenbank Foren-Übersicht -> MS Office
Vorheriges Thema anzeigen :: Nächstes Thema anzeigen  
Autor Nachricht
GrayGhost
Site Admin


Anmeldedatum: 06.06.2007
Beiträge: 148
Wohnort: Achim (bei Bremen)

BeitragVerfasst am: 12.08.2007, 19:19    Titel: Excel, Spaltenbreite und Zeilenhöhe in Zentimetern angeben Antworten mit Zitat

Spaltenbreite und Zeilenhöhe in Zentimetern angeben

Wenn du den Wunsch hast Zeilen oder Spalten eine feste Höhe bzw. Breite zuzuweisen, dann kennst du sicher das Manko, dass Excel hier nur Werte in "Punkten" akzeptiert; du möchtest aber die Spalte genau 2 Zentimeter breit haben. Wenn man weiß, dass 1 Zentimeter genau 29,5 Punkten entspricht, dann kannst du den einzugebenen Wert errechnen. Umständlich! Einfacher geht die Sache, wenn man diese Rechnerei einem Makro überlässt. Dieser Artikel enthält eine Anleitung für die Erstellung der Makros und die Implementierung der Funktion in die Bedienoberfläche.

Kopiere zunächst die Zeilen aus dem folgenden Textfeld in die Zwischenablage.

Code:
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


Nun müssen diese Zeilen in ein Makromodul eingefügt werden. Gehe folgendermaßen vor:<ol><li>Starte die Excel Application</li><li>Starte mit der Tastenkombination Alt+F8 den Dialog "Makro"</li><li>Gebe im Eingabefeld "Makroname:" z.B. "Spalten_Zeilen" ein und betätige die Taste "Erstellen".</li><li>Es öffnet sich der "Visual Basic-Editor". Im rechten Fenster, mit dem Namen Modul1 (Code) befinden sich zwei Zeilen, die du löschen musst.</li><li>Kopiere in das nun leere Fenster den Inhalt aus der Zwischenablage.</li><li>Beende den Editor über Datei-> Schließen und zurück nach Excel (geht auch mit Alt+Q)</li></ol>
Damit du die neue Funktion schnell aufrufen kannst, legst du dir nun entsprechende Schaltflächen in der Symbolleiste an und/oder fügst neue Optionen in das Menü "Format" ein. Beide Verfahren werden im Folgenden vorgestellt.<ol><li>Klicke mit der rechten Maustaste auf eine freie Stelle einer Symbolleiste und selektiere die Option "Anpassen...". Den Dialog "Anpassen..." findest du auch im Menü "Extras".</li><li>Wähle den Kartenreiter "Befehle" im Dialog "Anpassen".</li><li>Selektiere im linken Fenster (Kategorien) den Listeneintrag "Makros"</li><li>Suche in der rechten Liste mit der Bezeichnung "Befehle" den Eintrag <b>Menüelement anpassen</b></li><li>Ziehe diesen Eintrag mit der Maus in das Menü "Format", welches aufklappen sollte, wenn sich der Mauszeiger nähert, und lege die Schaltfläche dort unterhalb der Option "Zeile" ab.</li><li>Klicke diesen neuen Eintrag mit der rechten Maustaste an und gebe ihm im Datenfeld "Name:" eine sinnvolle Bezeichnung, z.B. "Zeile in Zentimetern". Bestätige die Eingabe mit [Enter].</li><li>Klicke den Eintrag nochmals mit der rechten Maustaste an und selektiere die Option "Makro zuweisen...".</li><li>Es öffnet sich der Dialog "Zuweisen". Wähle hier das zutreffende Makro aus und bestätige die Auswahl mit [OK] und scliesse das Fenster "Anpassen".</li></ol>
Möchtest du diese Funktionen lieber über spezielle Schaltflächen in einer der Symbolleisten aufrufen, oder diese Schaltflächen zusätzlich anlegen, so gehe folgendermaßen vor:<ol><li>Klicke mit der rechten Maustaste auf eine freie Stelle einer Symbolleiste und selektiere die Option "Anpassen...". Den Dialog "Anpassen..." findest du auch im Menü "Extras".</li><li>Wähle den Kartenreiter "Symbolleisten" im Dialog "Anpassen" und betätige die Taste "Neu...".</li><li>Gebe der Symbolleiste einen aussagekräftigen Namen und bestätige die Eingabe mit [OK].</li><li>Ziehe die neue Symbolleiste an eine beliebige Position im Symbolleitenbereich.</li><li>Öffne nun wiederum den Dialog "Anpassen..." und wähle den Kartenreiter "Befehle".</li><li>Selektiere im linken Fenster (Kategorien) den Listeneintrag "Makros"</li><li>Suche in der rechten Liste mit der Bezeichnung "Befehle" den Eintrag <b>Schaltelement anpassen</b></li><li>Ziehe diesen Eintrag auf die neu erstellte Symbolleiste.</li><li>Klicke das Symbol mit der rechten Maustaste an. Im sich öffnenden Dialog hast du nun die Möglichkeit das Symbol zu ändern, oder über das "Schaltflächensymbol bearbeiten..." ein neues zu kreiren.</li><li>Abschließend musst du, wie oben bereits beschrieben, der Schaltfläche das entsprechende Makro zuweisen.</li></ol>
Damit dieses Makro allen Excel Mappen zur Verfügung steht, musst du folgendes beachten. Excel stellt Verküpfungen zu allen Makros her, die zu Dateien gehören, die im Standardarbeitsordner liegen. Wenn du die modifizierte Exceldatei in diesem Ordner ablegst, dann steht das Makro allen neuen Dokumenten zur Verfügung. Der Standardarbeitsordner ist unter Extras-> Optionen-> Kartenreiter "Allgemein" definiert.

MfG
Erhard Olszok aka GrayGhost
Nach oben
Benutzer-Profile anzeigen Private Nachricht senden E-Mail senden Website dieses Benutzers besuchen Yahoo Messenger
Beiträge der letzten Zeit anzeigen:   
Neues Thema eröffnen   Neue Antwort erstellen    Artikel Datenbank Foren-Übersicht -> MS Office Alle Zeiten sind GMT
Seite 1 von 1

 
Gehe zu:  
Du kannst keine Beiträge in dieses Forum schreiben.
Du kannst auf Beiträge in diesem Forum antworten.
Du kannst deine Beiträge in diesem Forum nicht bearbeiten.
Du kannst deine Beiträge in diesem Forum nicht löschen.
Du kannst an Umfragen in diesem Forum nicht mitmachen.


Powered by phpBB © 2001, 2005 phpBB Group
Deutsche Übersetzung von phpBB.de