Zeilenhöhe und Spaltenbreite in Zellen einfügen
Schritt-für-Schritt-Anleitung
Um die aktuelle Zeilenhöhe in eine Zelle zu schreiben, kannst Du ein einfaches VBA-Makro verwenden. Folge diesen Schritten:
- Öffne Excel und drücke
ALT + F11, um den VBA-Editor zu öffnen.
- Klicke mit der rechten Maustaste auf
VBAProject (DeinWorkbookName) und wähle Einfügen > Modul.
- Füge den folgenden Code in das Modul ein:
Sub ZeilenhöheUndSpaltenbreite()
Dim LetzteZeile As Long, LetzteSpalte As Integer
Dim iZeile As Long, iSpalte As Integer
With ActiveSheet
LetzteZeile = .Range("B33") ' Zeile aus B33
LetzteSpalte = .Range("B32").Column ' Spalte aus B32
For iZeile = 1 To LetzteZeile
Cells(iZeile, LetzteSpalte) = Rows(iZeile).RowHeight
Next iZeile
For iSpalte = 1 To LetzteSpalte
Cells(LetzteZeile, iSpalte) = Columns(iSpalte).ColumnWidth
Next iSpalte
End With
End Sub
- Schließe den VBA-Editor und gehe zurück zu Excel.
- Drücke
ALT + F8, wähle ZeilenhöheUndSpaltenbreite aus und klicke auf Ausführen.
Jetzt werden die Zeilenhöhen und die Spaltenbreiten in die gewünschten Zellen geschrieben. Stelle sicher, dass die Zelle B32 den Buchstaben der gewünschten Spalte und B33 die gewünschte Zeile enthält.
Häufige Fehler und Lösungen
Alternative Methoden
Falls Du die Zeilenhöhe oder Spaltenbreite ohne VBA ermitteln möchtest, kannst Du die folgende Excel-Funktion verwenden:
- Zellbreite: Verwende die Formel
=ZELLE("Breite";A1), um die Breite der Zelle A1 zu erhalten.
- Zellhöhe: Um die Höhe zu ermitteln, kannst Du eine benutzerdefinierte Funktion in VBA erstellen:
Function ZellHoehe(Target As Range)
Application.Volatile
ZellHoehe = Target.Cells.Height
End Function
Beachte, dass die benutzerdefinierte Funktion nicht automatisch aktualisiert wird, wenn sich die Zeilenhöhe ändert.
Praktische Beispiele
-
Zeilenhöhe in P1:P60 schreiben:
- Setze den Code so an, dass die Zeilenhöhe in den Zellen P1 bis P60 geschrieben wird, indem Du
Cells(iZeile, 16) anstelle von Cells(iZeile, LetzteSpalte) verwendest.
-
Summe aller Zeilenhöhen:
- Du kannst das Makro anpassen, um die Summe aller Zeilenhöhen in eine bestimmte Zelle zu schreiben:
Dim SummeHoehen As Double
SummeHoehen = 0
For iZeile = 1 To LetzteZeile
SummeHoehen = SummeHoehen + Rows(iZeile).RowHeight
Next iZeile
Cells(LetzteZeile + 1, LetzteSpalte) = SummeHoehen
Tipps für Profis
- Automatisches Aktualisieren: Verwende
Application.Volatile, um sicherzustellen, dass Funktionen bei jeder Neuberechnung aktualisiert werden.
- Fehlerbehandlung: Implementiere Fehlerbehandlungsroutinen in Deinem Makro, um unerwartete Fehler elegant zu handhaben.
- Verwende benannte Bereiche: Um die Lesbarkeit und Wartbarkeit Deines Codes zu verbessern, kannst Du benannte Bereiche für die Zellen B32 und B33 verwenden.
FAQ: Häufige Fragen
1. Wie kann ich das Makro regelmäßig ausführen lassen?
Du kannst das Makro an ein Arbeitsblatt- oder Arbeitsmappenereignis binden, z.B. bei Änderungen in bestimmten Zellen.
2. Was ist, wenn ich die Werte in einem anderen Arbeitsblatt speichern möchte?
Du kannst einfach das Ziel der Cells-Anweisung anpassen, indem Du den Arbeitsblattnamen angibst, z.B. Sheets("MeinAnderesBlatt").Cells(...).