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 sBreite As Single
Dim sAktuell As Single
Dim strText As String
Dim strAntwort As String
sAktuell = (Selection.ColumnWidth + 0.71) / 5.1425
strText = "Aktuelle Spaltenbreite: " & _
Format(sAktuell, "###0.00 cm") & Chr(13) _
& "Geben Sie die gewünschte Spaltenbreite für die " & _
"aktuelle Spalte oder Markierung in cm ein:"
strAntwort = InputBox(strText, "Neue Spaltenbreite festlegen", _
Format(sAktuell, "###0.00"))
If strAntwort <> "" Then
sBreite = CSng(strAntwort)
Selection.ColumnWidth = -0.71 + 5.1425 * sBreite
End If
End Sub
Um Excel Zellen quadratisch zu formatieren, befolge diese Schritte:
50 Pixel.50 Pixel.Eine weitere Möglichkeit, quadratische Zellen in Excel zu erstellen, ist die Verwendung von Makros. Hier sind zwei nützliche Makros, die dir helfen können:
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 SubSub SpaltenBreite()
Dim sBreite As Single
Dim sAktuell As Single
Dim strText As String
Dim strAntwort As String
sAktuell = (Selection.ColumnWidth + 0.71) / 5.1425
strText = "Aktuelle Spaltenbreite: " & _
Format(sAktuell, "###0.00 cm") & Chr(13) _
& "Geben Sie die gewünschte Spaltenbreite für die aktuelle Spalte oder Markierung in cm ein:"
strAntwort = InputBox(strText, "Neue Spaltenbreite festlegen", _
Format(sAktuell, "###0.00"))
If strAntwort <> "" Then
sBreite = CSng(strAntwort)
Selection.ColumnWidth = -0.71 + 5.1425 * sBreite
End If
End SubWenn du eine Excel Tabelle mit quadratischen Zellen erstellen möchtest, kannst du das Layout und die Maße individuell anpassen. Du könntest beispielsweise eine Tabelle für eine Umfrage oder zur Datenerhebung erstellen, indem du sicherstellst, dass alle Excel Felder quadratisch sind.
1. Wie stelle ich sicher, dass meine Zellen quadratisch bleiben? Um sicherzustellen, dass deine Zellen quadratisch bleiben, stelle sowohl die Zeilenhöhe als auch die Spaltenbreite auf denselben Wert ein.
2. Welche Maße sollte ich für quadratische Zellen verwenden?
Eine gängige Wahl ist 50 Pixel für sowohl die Zeilenhöhe als auch die Spaltenbreite, aber du kannst auch andere Maße ausprobieren, je nach Bedarf.
3. Kann ich auch mit anderen Versionen von Excel quadratische Zellen erstellen? Ja, die Schritte sind ähnlich in neueren Versionen von Excel, jedoch können die Menüs leicht variieren.