Dieser Beitrag ist ein Teil der VBA Grundlagen Serie. In diesem How To zeige ich Ihnen wie Sie über VBA die Höhe der Zeilen festlegen können. Wie Sie in der unteren Tabelle sehen können, sehen Sie nur die Hälfte der Zeile. 111 VBA Makros die Ihr Leben leichter machen. Egal ob Sie Einsteiger oder fortgeschrittener Anwender sind – in diesem Buch finden Sie Lösungen für Ihre alltäglichen Aufgaben. Keine Vorkenntnisse notwendig. Standardmäßig ist die Zeilenhöhe von 12, 75 Punkten vorgesehen. Wir wollen mit unserem Makro die Zeilenhöhe auf 30 Punkte erhöhen. Als erstes legen wir eine variable vom Typ Range an. Excel vba spaltenbreite festlegen перевод. Danach bestimmen wir den Bereich. Es ist der gesamte verwendete Bereich der Tabelle1. Sub ZeilenHoehe() Dim Bereich As Range Set Bereich = edRange End Sub 111 VBA Makros die Ihr Leben leichter machen Wollen Sie Ihre langweiligen Routineaufgaben loswerden? Möchten Sie Excel an Ihre Bedürfnisse anpassen, Berechnungen automatisieren, eigene Dialogfelder erstellen und vieles mehr? Dieses Buch zeigt Ihnen, wie Sie Ihre Aufgaben schnell und einfach mit VBA erledigen.
Der Bildschirm bekommt dadurch ein etwas anderes Aussehen, die Funktionalität bei der Berechnung und den meisten anderen Punkten ändert sich aber nicht. Nun haben Sie -wie sollte es anders sein- mehrere Möglichkeiten, die Zeilenhöhe oder Spaltenbreite in Zentimetern anzupassen. Sind Sie gut im Handling mit der Maus, dann klicken Sie auf den Zeilentrenner unterhalb der gewünschten Zeile bzw. den Spaltentrenner rechts der zu optimierenden Spalte. Sofort wird in einem kleinen Hinweisfenster (Tooltip) die aktuelle Spaltenbreite bzw. Zeilenhöhe in cm angezeigt. Aber so ganz korrekt ist diese Aussage nicht, denn es sind nur dann Zentimeter, wenn die Landeseinstellungen des Windows auf (unverändert) Deutschland bzw. Excel vba spaltenbreite festlegen. einem anderen Land mit metrischen Maßen eingestellt sind und in Excel selbst die Standards nicht verstellt sind. Dazu weiter unten mehr. Jede Veränderung der Höhe oder Breite wird nun in cm angezeigt, zumindest solange das Seitenlayout die aktive Ansicht ist. Wenn Sie kein Freund der "Feinmotorik" sind, bietet sich Ihnen noch eine andere Möglichkeit.
Normalerweise können Sie die Breite einer Spalte in Excel nicht in Zentimeter sondern nur in der Anzahl von Zeichen oder Pixel angeben. Das gilt für alle Versionen bis (einschließlich) Excel 2003. Alle Versionen Wollen Sie (in VBA) eine Spaltenbreite dennoch in cm festlegen, dann geht das so: Option Explicit Public Sub SpaltenBreiteInZentimeter(vntSpalte as Variant, dblZentimeter As Double) Dim dblBreite As Double Dim intSpalte As Integer If IsNumeric(vntSpalte) Then intSpalte = Int(vntSpalte) Else intSpalte = Columns(vntSpalte) End If dblBreite = Application. CentimetersToPoints(dblZentimeter) Columns(intSpalte). ColumnWidth = _ Columns(intSpalte). ColumnWidth / Columns(intSpalte) * dblBreite End Sub Speichern Sie den Code in einem Modul oder importieren Sie ihn direkt in Ihr Workbook. Sie finden die Datei hier als gepackte *. zip, diese muss vor dem Import entpackt werden. VBA - Spaltenbreite auslesen - MS-Office-Forum. Hinweise zum Import einer beliebigen *. bas – Datei finden Sie hier. Der Aufruf dieser Prozedur kann vom gesamten Projekt aus erfolgen.
Zeilenhöhe automatisch anpassen Sie können auch Zeilenhöhen mit einer ähnlichen Methode automatisch anpassen: Rows("1:2"). Autofit Zellenbreite festlegen Sie können die Spaltenbreiten auch anpassen, indem Sie auf eine Zelle verweisen: Range("a1")lumnWidth = 20 Zellenhöhe festlegen Oder passen Sie die Zeilenhöhen an, indem Sie auf eine Zelle verweisen: Range("a1")wHeight = 10 Spaltenbreite ermitteln So ermitteln Sie die Spaltenbreite einer Spalte: dim iSpaltenbreite as long iSpaltenbreite = columns("a"). Excel VBA Opentext Spaltenbreite definieren - Entwickler-Forum. ColumnWidth Hinweis: Dies gibt Null zurück, wenn nicht alle Spalten im Bereich die gleiche Breite haben. Zeilenhöhe ermitteln Auf ähnliche Weise können Sie die Zeilenhöhe ermitteln: dim iZeilenhoehe as long iZeilenhoehe = rows("1"). RowHeight VBA-Programmierung leicht gemacht Suchen Sie nicht länger online nach VBA-Code. Erfahren Sie mehr über AutoMacro – einen VBA Code Builder, der es Anfängern ermöglicht, Prozeduren von Grund auf mit minimalen Programmierkenntnissen und mit vielen zeitsparenden Funktionen für alle Benutzer zu programmieren!
Dieses Buch zeigt Ihnen, wie Sie Ihre Aufgaben schnell und einfach mit VBA erledigen. Sie könnten natürlich auch hier die For Each Next Schleife benutzen. toFit Die Beispiel Excel Datei mit dem sofort einsetzbaren Makro und 111+ andere Makros, die Ihr Leben leichter machen, finden Sie hier. Beeindrucke deinen Chef mit coolen Excel Tricks! Lasse dich von deinen Kollegen nicht abhängen! Spare Zeit und nutze diese für angenehmere Dinge Steigere deine Produktivität und Effizienz Es ist leicht - In meinem Newsletter gebe ich Schritt für Schritt Anleitungen die jeder versteht Bei der Anmeldung zu meinem Newsletter erhälst du das Buch "Excel Tricks die deinen Chef beeindrucken" als Willkommensgeschenk. Quellen und weiterführende Literatur: Bernd Held – VBA mit Excel: Das umfassende Handbuch Falls Ihnen dieser Beitrag weitergeholfen hat, wäre es eine sehr nette Anerkennung meiner Arbeit wenn Sie z. B. Ihre Bücher über Amazon bestellen würden. Wenn Sie ein Produkt kaufen, erhalte ich dafür eine Provision.
Könnte man das Makro auch so schreiben, dass 1. das Makro nur in den aktuell eingeblendeten Spalten läuft (d. h. dass die Zellen in ausgeblendeten Spalten leer bleiben) 2. man irgendwo im Excel den Buchstaben der ersten und den der letzten Spalte einträgt und das Makro dann genau in dem Bereich angewendet wird? Dankeschön im voraus! 07. 2012, 18:28 # 5 MOF Guru Registrierung: 17. 05. 2008 zu 1 prüfe die Spaltenbreit, 0 ist ausgeblendet. Signatur in jedem Beitrag Bitte Version angeben. Bei keiner Angabe gehe ich von meinen Angaben aus. Betriebssystem: Windows 10 - 64 Bit, Office 2021 - 32 Bit. Fragen werden im Forum beantwortet, nicht per PN. 07. 2012, 18:45 # 6 zu 2 Option Explicit For SP = Range(Range("A5") & 5) To Range(Range("A6") & 5) If Columns(SP). ColumnWidth > 0 Then Cells(3, SP) = Columns(SP). ColumnWidth End If Gruß Hajo 08. 2012, 09:07 # 7 SUPER Hajo, ganz großen Dank! Funktioniert genau so, wie ich es mir vorgestellt habe.