Discussion:
Spaltenbreite automatisch via VBA an Inhalt anpassen
(zu alt für eine Antwort)
S***@StephanBerg.de
2005-05-08 14:51:52 UTC
Permalink
Hallo,

ich möchte gerne das eine Tabelle, wenn sie aktiviert, ihre Spaltenbreite
automatisch dem Inhalt anpast. Jemand ne Idee wie ich das anstelle?

1000 Dank
Alexander Wolff
2005-05-08 15:17:48 UTC
Permalink
Post by S***@StephanBerg.de
ich möchte gerne das eine Tabelle, wenn sie aktiviert, ihre
Spaltenbreite automatisch dem Inhalt anpast. Jemand ne Idee wie ich
das anstelle?
Arbeitsblatt im VBA (Project) anwählen, dann als Code:

Private Sub Worksheet_Activate()
Columns.AutoFit
End Sub
--
Gruss Alexander (WinXP Home SP1 - Office 2000 SP3) ---5----6----5----7-2
MS Outlook-Nutzer fahren gut mit http://jump.to/outlook-quotefix |
OutlookExpress: http://home.in.tum.de/~jain/software/oe-quotefix |
Peter Wolber
2005-05-08 16:12:51 UTC
Permalink
***@StephanBerg.de schrieb:

Hallo Stephan
Post by S***@StephanBerg.de
ich möchte gerne das eine Tabelle, wenn sie aktiviert, ihre Spaltenbreite
automatisch dem Inhalt anpast. Jemand ne Idee wie ich das anstelle?
Hilft dir das weiter:

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Selection.Columns.AutoFit
ActiveSheet.UsedRange.Columns.AutoFit
End Sub


Gruss
Peter
--
"Man sollte nie so viel zu tun haben, dass man zum Nachdenken keine Zeit mehr hat."
(Georg Christoph Lichtenberg)
Loading...