Excell 2007, dynamische Spaltenbreitenanpassung

Moin,

ich bin um Hilfe gebeten worden und habe jetzt das Problem, dass ich „nur“ mit OpenOffice.calc arbeite, d.h. kein Excell 2007 habe.

Folgende Frage, die ich aber auch für OO.calc noch nicht gelöst habe:

es gibt ja die Möglichkeit, die Spaltenbreite an den längsten Zelleneintrag anzupassen. Z.B. durch Doppelklick auf den „Trennstrich“ oder - bei OO - über Format [optimale Spaltenbreite].

Gibt es eine Möglichkeit, dies zu automatisieren? Also wann immer eine Zelle mit einem breiteren Inhalt gefüllt wurde, dass dann automatisch die Spaltenbreite angepasst wird. Entsprechend auch, wenn der „breiteste“ Eintrag wieder gelöscht wird, dass dann auch wieder die Breite auf die max. notwendige Breite reduziert wird.

Wichtig ist es, dass es in Excell 2007 funktioniert!

Ganz herzlichen Dank für eure Tipps, ich bin noch etwas hilflos.

Gruß Volker

Hallo Volker,

Folgende Frage, die ich aber auch für OO.calc noch nicht
gelöst habe:

OO weiß ich jetzt nicht, muß ich mal schauen, OO ist da eigen.
Du brauchst das für dich in OO? Okay.
Heute nicht mehr aber ich schau mal die nächsten Tage.
Wenn ich mich nicht melde, naja, dann hab ichs vergessen :smile:
Aber kein Akt, dann mail mich über w-w-w an und erinnere mich.
Ob ich es „hinkriege“ kann ich nicht versprechen. Manches habe ich in OO schon „geschafft“, manches halt auch nicht, eso es.

es gibt ja die Möglichkeit, die Spaltenbreite an den längsten
Zelleneintrag anzupassen. Z.B. durch Doppelklick auf den
„Trennstrich“ oder - bei OO - über Format [optimale
Spaltenbreite].

Gibt es eine Möglichkeit, dies zu automatisieren?

Alt+F11, Doppelklick auf „DieseArbeitsmappe“, Code reinkopieren, Editor schließen.

Private Sub Workbook_SheetChange(ByVal Sh As Object, ByVal Target As Range)
Sh.UsedRange.Columns.AutoFit
End Sub

Gruß
Reinhard

Hallo Reinhard,

erstmal herzlichen Dank für Deine superschnelle Antwort und das Angebot zu helfen.

Du brauchst das für dich in OO? Okay.

Nicht ganz, die Lösung wird für Excell 2007 gesucht. Da ich dieses Paket nicht habe, habe ich mal bei OO.calc geguckt, ob ich die Lösung finde. Meist lassen sich ja die Wege übertragen.

Wenn eine Lösung für OO „abfällt“ ist das natürlich toll.

Alt+F11, Doppelklick auf „DieseArbeitsmappe“, Code
reinkopieren, Editor schließen.

Private Sub Workbook_SheetChange(ByVal Sh As Object, ByVal
Target As Range)
Sh.UsedRange.Columns.AutoFit
End Sub

Also wird eine Makro-Programmierung notwendig werden, hm, habe ich noch nie genutzt.

Mal schauen, auf jeden Fall habe ich schon mal einen Anhaltspunkt.

Gruß Volker