Office: VBA Skript Hilfe: Zeilenhöhe

Hallo liebe Forumsmitglieder,

ich bräuchte dringend Hilfe bei einem kurzen (wahrscheinlich) recht einfachen VBA Skript.

Folgender Sachverhalt:

Wenn Zeile 330=1, dann soll die Zeile 89 86 Pixel hoch sein, ist 330=0, dann soll Zeile 89 21 Pixel hoch sein.

Dieses "Spielchen" soll auch für andere Zeilen gemacht werden. Aber wenn ich diese Grundlage mal habe, werde ich die restlichen Zeilen und Pixel wohl selbst hinbekommen.

Vielen Dank für Eure Hilfe im Voraus.

 

Hallo!

Mir ist nicht ganz klar, was du hiermit meinst:

Wenn du damit einen bestimmten Zellwert meinst, dann geht es so:

Code:

If Range("A330") = 0 Then Rows(89).RowHeight = 21 Else Rows(89).RowHeight = 86

Allerdings handelt es sich hier um die Zeilenhöhe in Punkt, nicht in Pixel. Diese dürfte abhängig sein, von deiner Bildschrimauflösung.

 

Vielen Dank, Schatzi.

Du gehst richtig der Annahme, dass es sich um "Zeile 330=1" um einen bestimmten Zellwert handelt. Gibt es eine auch eine Möglichkeit, die Zeilenhöhe unabhängig von der Bildschirmauflösung so zu bestimmen, dass immer der gesamte Text angezeigt wird?

Entscheidend ist, dass der Text in der Zelle C89 unterschiedlich lang sein kann je nach Ergebnis einer zugrundeliegenden Formel und die Funktion "Auto fit row height" hier nicht funktioniert.

 

Da bin ich momentan überfragt...
Hilft es, wenn du vorher einen Zeilenumbruch definierst?
z.B.
Range("A89").WrapText