Makro Spalten formatieren und beschreiben

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

Hallo Franz,
vielen Dank für Deine Mühe
das Makro funktioniert wunderbar.
Habe aber noch zwei Bitten und eine Frage
1. Bitte
Weil die Namen unterschiedlich lang sind, werden die Spalten in der Gesamtliste unnötig breit
die Eintragung mit den zugehörigen Prüftexten sind viel kürzer.
Deshalb ist es sinnvoll die Namen in Zeile 9 ab Spalte E um 90° zu drehen.
2. Bitte
in der Gesamtliste bekommt man einen Überblick der Detaileintragungen aus den einzelnen Listen
Ich werde die Gesamtliste auch noch zusätzlich mit einem Passwort versehen (vorerst "Gesamtliste"), welches bei Aktivierung vom Makro aufgehoben, und zum Ende wieder gesetzt wird.
Aber die Person, welche die Gesamtliste bearbeiten kann, darf auch hier Änderungen durchführen.
Hierfür ist es notwendig ein weiteres Makro zu aktivieren, welches die Änderungen in den Zellen ab E11
wieder zurück in die Tabellen schreibt.
Der Tabellenname steht ja in ab Spalte E / Zeile 9
Könntest Du mir hierfür ebenfalls ein Makro schreiben?
Frage:
Die Datei wird durch die hohe Anzahl der erzeugten Tabellenblätter sehr groß.
Das Blatt Muster hat viele Berechnungen und SVERWEISE.
Gibt es eine Möglichkeit die Größe der gesamten Tabelle klein zu halten?
Evtl sollen 500 Blätter erzeugt werden.
Eine Datenbank wäre im nachhinein besser gewesen.
Vielen vielen Dank
mit freundlichen Grüßen
Uwe

Hallo Uwe,
das formatieren der Zeile mit den Namen in der Gesamtliste ist kein Problem.
Dazu in folgendem Abschnitt des Makros eine Zeile einfügen:

  With wksGesamt
'Namenzeile mit Rahmen versehen und Spaltenbreite optimieren
lngSpalte = lngSpalte - 1
If lngSpalte >= cSpalte1 Then
With .Range(.Cells(cZeileName, cSpalte1), .Cells(cZeileName, lngSpalte))
.BorderAround LineStyle:=xlContinuous
.Borders(xlInsideVertical).LineStyle = xlContinuous
.Orientation = 90 'Text vertikal ausrichten               'neu 2013-02-03
.EntireColumn.AutoFit
End With
End If
End With

Die Daten aus der Gesamtliste nach Änderungen in die Einzelblätter zu übertragen ist auch kein sehr großes Problem. Allerdings muss für das Ändern der Daten in der Gesamtliste als auch die Übertragung der Daten in die Einzelblätter eine Berechtigung via Kennwort eingebaut werden. Das wird dann entsprechend komplizierter.
Wenn du ca. 500 Tabellenblätter/namen verwalten willst/musst, dann bekommst nicht nur ein Problem mit der Dateigröße und der Anzahl der Formeln/Berechnungen, sondern auch mit zwei Grenzen in Excel 2003. Hier ist die Anzahl der Tabellenblätter begrenzt auf ca. 255., die max. mögliche Anzahl der Spalten ist 255, du kannst beim aktuellen Aufbau der "Gesamtliste" also nur ca. 250 Namen erfassen. Bei so vielen Tabellenblättern daurt dann ggf. auch die Neuberechnung der Datei entsprechend lange.
Die Grenzen bei Blattzahl und Spaltenanzahl bestehen ab Excel 2007 nicht mehr, aber das ändert nur bedingt etwas an den Rechenzeiten. Die Dateigröße schrumpft wahrscheinlich, da die Dateien beim Speichern in einem komprimierten Format gespeichert werden.
Ein Ausweg aus diesem Dilemma:
1. Die Daten werden nur in der Gesamtliste gespeichert.
2. In der Gesamtliste werden die Spalten und Zeilen vertauscht (Transponiert)
Dadurch können die Daten problems zu einer großen Anzahl Namen verwaltet werden mit bis zu 250 Prüfkriterien.
3. Das Musterblatt wird zu einer Eingabe-Maske umfunktioniert.
Wird im Blatt "Liste" ein Name selektiert, dann werden die zugehörigen Daten aus der Gesamtliste in die Eingabemaske eingetragen und die Formeln neu berechnet. Ein neuer Name wird ggf. in der Gesamtliste ergänzt.
Nach der Eingabe in die Maske werden die Daten in die Gesamtliste zurückgeschrieben.
Alternativ könnte man auch die Daten zu jedem Namen in einer eigenen Datei speichern und für die Gesamtliste dann die Daten aus den einzelnen Dateien einlesen.
Ein Problem wären dann ggf. die Daten der "Schläfer" (Tabellenblätter zu Namen, die in dem Blatt "Liste" nicht aufgeführt sind). Diese müsste man dann in den Listen entsprechend in einer Zusatzspalte kennzeichnen.
Du siehst:
Für die Anpassung an viele Namen muss du dir jetzt erst einmal deinen Lösungsweg überlegen.
Danach kann man dann über ggf. erforderliche Makros nachdenken.
Gruß
Franz

With wksName .Range(.Cells(cZeile_1, cSpalte_Copy), .Cells(cZeile_L, cSpalte_Copy)).Copy wksGesamt.Cells(cZeileName + 1, lngSpalte).PasteSpecial Paste:=xlPasteValues, _ Operation:=xlNone, SkipBlanks:=False, Transpose:=False

Beliebteste Forumthreads (12 Monate)

Makro Spalten formatieren und beschreiben

5
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

305 Forumthreads zu ähnlichen Themen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

Makro Spalten formatieren und beschreiben

5 Beiträge zum Forumthread Beiträge zu diesem Forumthread

305 Forumthreads zu ähnlichen Themen

VBA Beispiele zu verwandten Themen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

5
Beiträge zum Forumthread

Beiträge zu diesem Forumthread