Eines der (vielen) frustrierenden Dinge an Excel ist, dass es verschiedene Maßeinheiten verwendet, um die Höhe von Zeilen und die Breite von Spalten anzugeben.

Die Zeilenhöhe ist ziemlich einfach – sie wird in Punkten gemessen. Die Spaltenbreite wird jedoch in Zeichenbreiten gemessen. Wenn Ihr Standardstil auf Courier 10 eingestellt ist, bedeutet eine Spaltenbreite von 12, dass Sie genau zwölf Zeichen in eine bestimmte Spalte einfügen können. Bei proportionalen Schriftarten wird das Zeichen 0 verwendet, um die Zeichen zu zählen. (Ja, es ist absurd.)

Dies führt zu Problemen, wenn Höhe und Breite einer bestimmten Zelle übereinstimmen sollen, wodurch ein Quadrat entsteht. Glücklicherweise können Sie mit ein wenig Makro-Zauberei diese Kuriosität von Excel umgehen und die gewünschten Ergebnisse erzielen. Betrachten Sie das MakeSquare-Makro:

Sub MakeSquare()

Dim WPChar As Double     Dim DInch As Double     Dim Temp As String          Temp = InputBox("Height and width in inches?")

DInch = Val(Temp)

If DInch > 0 And DInch < 2.5 Then         For Each c In ActiveWindow.RangeSelection.Columns             WPChar = c.Width / c.ColumnWidth             c.ColumnWidth = ((DInch * 72) / WPChar)

Next c         For Each r In ActiveWindow.RangeSelection.Rows             r.RowHeight = (DInch * 72)

Next r     End If End Sub

Dieses Makro fordert Sie zur Eingabe der Dimension des Quadrats auf, das Sie erstellen möchten, und berechnet dann genau, wie breit und hoch die einzelnen Zellen festgelegt werden sollen.

Sie können das Makro mit einer einzelnen ausgewählten Zelle ausführen oder einen größeren Auswahlsatz vornehmen.

Die „mathematische Magie“ erfolgt bei der Berechnung der WPChar-Variablen. Dies wird auf einen Wert festgelegt, der durch Teilen der Breite der Spalte in Punkten (zurückgegeben von der Width-Eigenschaft) durch die Breite der Spalte in Zeichen (zurückgegeben von der ColumnWidth-Eigenschaft) abgeleitet wird. Dieser Wert, dh die Anzahl der Punkte in einem Zeichen bei den aktuellen Einstellungen, wird dann verwendet, um zu berechnen, wie viele Zeichen zum Festlegen der Breite in der nächsten Programmzeile verwendet werden sollen.

_Hinweis: _

Wenn Sie wissen möchten, wie die auf dieser Seite (oder auf einer anderen Seite der ExcelTips-Websites) beschriebenen Makros verwendet werden, habe ich eine spezielle Seite vorbereitet, die hilfreiche Informationen enthält.

Klicken Sie hier, um diese spezielle Seite in einem neuen Browser-Tab zu öffnen.

ExcelTips ist Ihre Quelle für kostengünstige Microsoft Excel-Schulungen.

Dieser Tipp (1943) gilt für Microsoft Excel 97, 2000, 2002 und 2003.