Office: AutoFit, aber nur für eingeblendete Spalten!

Guten Morgen zusammen,


ich komme hier nicht weiter und hoffe, dass mir vielleicht jemand von Euch einen Tipp hierzu geben kann.

Ich möchte mit VBA automatisch Zeilenhöhen anpassen (mittels AutoFit).
Allerdings soll sich das NUR auf die EINGEBLENDETEN SPALTEN beziehen.

Bei mir passiert nämlich immer folgendes:
Ich kriege riesige Zeilenhöhen, weil in irgendwelchen ausgeblendeten Zellen Unmengen Text steht. Da die für den User aber nicht sichtbar sind, sieht das ziemlich blöde aus...

Ich habe von jemand diesen Tipp bekommen:
SpecialCells(xlCellTypeVisible).Rows.AutoFit

und habe sowas versucht:
Rows("3:13").Select
Selection.SpecialCells(xlCellTypeVisible).Rows.AutoFit

Aber das funktioniert leider nicht...



Hat jemand von Euch VBA-Brains eine Idee?!

Bin sehr dankbar für Hilfe,
# Stef

:)

 

Hi Stef,
also bei mir (Excel XP) funktioniert das tadellos. Habe Zeilen 9-11 ausgeblendet, das Makro gestartet - und erhalte die optimierten Zeilenhöhen nur für die sichtbaren Zellen. Und wenn ich dann die 9-11 wieder einblende, ist deren Höhe nach wie vor auf dem zuletzt eingestellen Maß.

 

Hallo Matthias,

mein Problem ist nicht die Zeile - das tut wunderbar...
Mein Problem sind die SPALTEN.

Wenn ich in ausgeblendeter Spalte B einen Roman stehen habe, dann wird mit AutoFit die Zeile an der benötigten Höhe von Spalte B festgelegt.
Da diese Spalte aber nicht sichtbar ist, sieht der Anwender eine riesenhohe Zeile in der aber der sichtbare Text (also was in den sichtbaren Spalten steht) diese Höhe gar nicht benötigt...

Dieses Problem versuche ich irgendwie in den Griff zu bekommen, bisher leider nicht sehr erfolgreich...


# Stef

 

Moin,
schalte den Zeilenumbruch für die Zelle, in der der Roman steht, ab.
Das sollte reichen.
Gruß
Raller

 

Moin, Arller,

hast Du es vor dem Posten selbst mal ausprobiert?

 

Hallo Jinx,

das habe ich. Ich hatte nämlich das gleiche Problem, nach der Deaktivierung vom Zeilenumbruch klappt es aber, weil Excel dann (jedenfalls bei mir) den Text immer nach rechts "laufen" läßt.
Gruß
Raller