Zellenhöhe automatisch anpassen

Bild

Betrifft: Zellenhöhe automatisch anpassen von: Michael
Geschrieben am: 04.02.2005 16:22:37

Hallo, ich bin Anfänger und man hat mir gesagt, das mit
einem Excel-Verweis auf eine Zelle selbst, die Höhe nicht automatisch angepasst werden kann.
Gibt es da vielleicht ein VBA-Script, das sagt, wenn sich die und die
Zelle ändert, dann kopier die Werte da raus und dorthin und passe die
Zellenhöhe automatisch an ?

Danke schön.

Bild


Betrifft: AW: Zellenhöhe automatisch anpassen von: Andi
Geschrieben am: 04.02.2005 16:38:03

Hi Michael,

kopiere folgendes in das Modul des entprechenden Tabellenblattes:


Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Row <> 1 And Target.Column <> 1 Then Exit Sub
Rows("1:1").RowHeight = Target.Value
End Sub


Wenn in A1 ne Zahl schreibst, wird die Zeilenhöhe von Zeile 1 ensprechend geändert.

Das is jetz natürlich die Minimal-Lösung, wenn Du in A1 was anderes als ne Zahl eingibst, dann läuft das makro auf nen Fehler. Das könnte man aber abfangen.

Schönen Gruß,
Andi


 Bild

Beiträge aus den Excel-Beispielen zum Thema "Zellenhöhe automatisch anpassen"