automatische Spaltenbreite bei Inhalt per Formel

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

Ja, diesen Code habe ich vorher entfernt.
Hier noch mal mehr Details zur Datei:
Es ist eine recht umfangreiche Datei zur Berechnung von Material Ein und -Ausgängen.
In einem Tabellenblatt (Material) werden in den Spalten A-D das Material und Artikelnummern eingetragen.
Das geschieht in den Zeilen 10 bis 800.
Dann gibt es ein zweites Tabellenblatt, in dem die Menge der einzelnen Materialien zu einzelnen Baugruppen zugeordnet wird. Die Baugruppen stehen in der Spalte C.
In den Spalten E4 bis ADO4 stehen folgende Formeln:
=INDEX(Material!$A:$A;SPALTE(J8)) bis =INDEX(Material!$A:$A;SPALTE(ADT8))
Mit diesen Formeln erreiche ich, dass die Materialen aus dem ersten Tabellenblatt aus Spalte A in diesem Blatt in Zeile 4 dargestellt werden
Es gibt noch 2 weitere Tabellenblätter für Berechnungs- und Informationszwecke in denen der Aufbau ähnlich ist und auch diese Formeln verwendet werden.
Das Problem ist nun, dass die Spaltenbreite nach Möglichkeit in allen Blättern automatisch angepasst werden soll.
Mit Deinem Code

Private Sub Worksheet_Calculate()
Columns.AutoFit
End Sub

funktioniert es im Prinzip auch wunderbar, aber nur solange ich ihn nur in einem Blatt verwende.
Bei Anwendung in mehreren Blättern dauert die Berechnung sehr lange!

Hallo Thorsten,
Hier der Link zu meiner Datei in vollem Umfang:
https://www.dropbox.com/s/8wrfdo3oy0s0fvm/Beispieldatei.xlsm?dl=0
Und hier noch einmal wie bereits vorher schon einmal geschrieben kurze Infos zur Datei:
Im Blatt "Material" werden in den Spalten A und B die Materialien eingetragen.
Diese werden in den Blättern "Liste" und "Info" ab Spalte BT und im Blatt "Schränke" ab Spalte E per Formel
=INDEX( Material!$A:$A;SPALTE(J8))
in den Zeilen 4 und 5 wiedergegeben.
Im Blatt "Schränke" wird nur die Anzahl der benötigten Materialien für die einzelnen Baugruppen eingetragen.
Die Blätter "Liste" und "Info" sind im Grunde identisch. Die eine ist nur für Informationszwecke vorgesehen, in der Anderen findet die eigentliche Berechnung statt.
Ziel ist: Wenn ich im Blatt "Material" in den Spalten A und B Einträge mache, soll die Spaltenbreite in den anderen Blättern an entsprechender Stelle angepasst werden.
Das Problem: Alle getesteten Codes funktioniern im Blatt "Schränke" reibungslos. In den anderen beiden Blättern dauert es ca. 1-2 Minuten bis der Code durchgelaufen ist.
Die gleiche Zeit wird übrigens auch benötigt, wenn ich alle Spalten manuell auswähle und die Spaltenbreite anpasse.
Der Unterschied zwischen den Blättern besteht darin, dass im Blatt "Schränke" in den Spalten nur Zahlen stehen. In den anderen beiden Blättern stehen dort Formeln.
Diese habe ich mal gelöscht. Danach ging die Anpassung der Spaltenbreite wie gewohnt schnell!
Vielleicht findest Du oder jemand anderes eine Lösung dafür!
Gruß
Matthias

Beliebteste Forumthreads (12 Monate)

automatische Spaltenbreite bei Inhalt per Formel

15
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

318 Forumthreads zu ähnlichen Themen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

automatische Spaltenbreite bei Inhalt per Formel

15 Beiträge zum Forumthread Beiträge zu diesem Forumthread

318 Forumthreads zu ähnlichen Themen

VBA Beispiele zu verwandten Themen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

15
Beiträge zum Forumthread

Beiträge zu diesem Forumthread