Artikel Datenbank
Computer - Internet - Multimedia
FAQ
Suchen
Mitgliederliste
Benutzergruppen
Registrieren
Profil
Einloggen, um private Nachrichten zu lesen
Login
Artikel Datenbank Foren-Übersicht
->
MS Office
Antwort schreiben
Benutzername
Titel
Nachrichtentext
Smilies
Weitere Smilies ansehen
Schriftfarbe:
Standard
Dunkelrot
Rot
Orange
Braun
Gelb
Grün
Oliv
Cyan
Blau
Dunkelblau
Indigo
Violett
Weiß
Schwarz
Schriftgröße:
Schriftgröße
Winzig
Klein
Normal
Groß
Riesig
Tags schließen
Optionen
HTML ist
an
BBCode
ist
an
Smilies sind
an
HTML in diesem Beitrag deaktivieren
BBCode in diesem Beitrag deaktivieren
Smilies in diesem Beitrag deaktivieren
Alle Zeiten sind GMT
Gehe zu:
Forum auswählen
Allgemeine Informationen zu dieser Webseite
----------------
Impressum
Allgemeine Informationen
Neue Themen und Änderungen
Computerthemen
----------------
Netzwerke
Windows Betriebssysteme
Daten schützen, verschlüsseln, verstecken und vernichten
Datensicherung und Systemsicherheit
Windows Spielereien
PC-Tools
PC Virtualisierung
Internet
----------------
Webpage Design
Email
Browser
Multimedia
----------------
Audio
Video
Bildbearbeitung
Media Recording
Video und Audio Streaming
Analoge und digitale Fotografie
Applikationen
----------------
MS Office
Corel Draw
Adobe Photoshop Elements
PDF Applicationen
Software & Scripts
----------------
Java Script und Flash für die Homepage
Software Empfehlungen
----------------
Freeware
Plugins
Vollversionen
Was wirklich nervt
----------------
Dumme Werbung
Böse Erfahrungen im Internet
----------------
Discounter
Thema-Überblick
Autor
Nachricht
GrayGhost
Verfasst am: 12.08.2007, 20:19
Titel: Excel, Spaltenbreite und Zeilenhöhe in Zentimetern angeben
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:
Starte die Excel Application
Starte mit der Tastenkombination Alt+F8 den Dialog "Makro"
Gebe im Eingabefeld "Makroname:" z.B. "Spalten_Zeilen" ein und betätige die Taste "Erstellen".
Es öffnet sich der "Visual Basic-Editor". Im rechten Fenster, mit dem Namen Modul1 (Code) befinden sich zwei Zeilen, die du löschen musst.
Kopiere in das nun leere Fenster den Inhalt aus der Zwischenablage.
Beende den Editor über Datei-> Schließen und zurück nach Excel (geht auch mit Alt+Q)
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.
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".
Wähle den Kartenreiter "Befehle" im Dialog "Anpassen".
Selektiere im linken Fenster (Kategorien) den Listeneintrag "Makros"
Suche in der rechten Liste mit der Bezeichnung "Befehle" den Eintrag
Menüelement anpassen
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.
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].
Klicke den Eintrag nochmals mit der rechten Maustaste an und selektiere die Option "Makro zuweisen...".
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".
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:
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".
Wähle den Kartenreiter "Symbolleisten" im Dialog "Anpassen" und betätige die Taste "Neu...".
Gebe der Symbolleiste einen aussagekräftigen Namen und bestätige die Eingabe mit [OK].
Ziehe die neue Symbolleiste an eine beliebige Position im Symbolleitenbereich.
Öffne nun wiederum den Dialog "Anpassen..." und wähle den Kartenreiter "Befehle".
Selektiere im linken Fenster (Kategorien) den Listeneintrag "Makros"
Suche in der rechten Liste mit der Bezeichnung "Befehle" den Eintrag
Schaltelement anpassen
Ziehe diesen Eintrag auf die neu erstellte Symbolleiste.
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.
Abschließend musst du, wie oben bereits beschrieben, der Schaltfläche das entsprechende Makro zuweisen.
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
Powered by
phpBB
© 2001, 2005 phpBB Group
Deutsche Übersetzung von
phpBB.de