CopterDoctor
Mitglied
Thread Starter
- Dabei seit
- 22.04.2007
- Beiträge
- 75
- Reaktionspunkte
- 0
Servus,
bin grad etwas am verzweifeln.
Suchen eine Möglichkeit, mit Hilfe eines Makros ein Privat Sub Worksheet auf alle Tabellenblätter innerhalb einer Mappe anzuwenden.
Vielleicht ein kurzer Ausriss zur Vorgeschichte:
Es gibt unter Excel ja die Möglichkeit, die Zellenbreite automatisch anpassen zu lassen, nur funktioniert dies halt nicht aktiv. Also haben wir ein Worksheet geschrieben:
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Selection.Columns.AutoFit
ActiveSheet.UsedRange.Columns.AutoFit
End Sub
Damit wird dann die aktuelle Zelle automatisch an die Textbreite angepasst.
Problem hierbei, das funktioniert nur im aktuellen Tabellenblatt! Mache ich jetzt ein neues Blatt auf, so müsste ich diesen Code erneut einsetzen, was widerrum ziemlich kontraproduktiv wäre...
Hat jemand von den hier ansässigen EXCEL-Jüngern eine Ahnung, wie man diesen Code in ein Makro einbauen könnte, so dass beim öffnen eines neuen Blattes automatisch dieser Code übernommen wird?
Vielen Dank schon mal im voraus
bin grad etwas am verzweifeln.
Suchen eine Möglichkeit, mit Hilfe eines Makros ein Privat Sub Worksheet auf alle Tabellenblätter innerhalb einer Mappe anzuwenden.
Vielleicht ein kurzer Ausriss zur Vorgeschichte:
Es gibt unter Excel ja die Möglichkeit, die Zellenbreite automatisch anpassen zu lassen, nur funktioniert dies halt nicht aktiv. Also haben wir ein Worksheet geschrieben:
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Selection.Columns.AutoFit
ActiveSheet.UsedRange.Columns.AutoFit
End Sub
Damit wird dann die aktuelle Zelle automatisch an die Textbreite angepasst.
Problem hierbei, das funktioniert nur im aktuellen Tabellenblatt! Mache ich jetzt ein neues Blatt auf, so müsste ich diesen Code erneut einsetzen, was widerrum ziemlich kontraproduktiv wäre...
Hat jemand von den hier ansässigen EXCEL-Jüngern eine Ahnung, wie man diesen Code in ein Makro einbauen könnte, so dass beim öffnen eines neuen Blattes automatisch dieser Code übernommen wird?
Vielen Dank schon mal im voraus