Office: (Office 2010) Tabelle in einer Datei auf mehrere Dateien aufteilen per Makro

Hi,

folgendes du hast Sonderzeichen in Spalte A die sind beim Speichern nicht gerade geeignet.(und auch nicht als Tabellenname). Ich habe diese mal ersetzen lassen und mit _ ausgegeben und die Kostenstelle jetzt verwendet und nicht den Kostenträgerverantortlichen, da diese jetzt nicht vorhanden waren. ggf. wieder ändern dazu hast du ja den alten Code.
Statt A:B wieder auf A:C ändern und Spalte 3 statt Spalte 2 einsetzen
Arr(L, 2) -> Arr(L, 3)

Du brauchst nur mehr das Makro teile aufrufen
Es kommt die Abfrage wohin gespeichert werden sollte -> danach sollte alles automatisch ablaufen.

 

Guten Morgen Chris,

ich habe das Makro mal probehalber in der Test-Datei laufen lassen. Es werden zwar über 600 Dateien erzeugt, die sind aber leider alle 220 kb groß und beinhalten in der ersten Lasche den kompletten Datenbestand und in einer zweiten Lasche nur die Kopfzeile.

Könntest Du noch einmal zaubern und die Ausgabe in der neuen Datei auch nur mit einer Lasche machen?

Super wäre auch, wenn die neuen Dateien als xlsx-Dateien erzeugt und nicht wieder das Makro beinhalten würden. Ich denke da an manche Kollegen, die dann eventuell über das Smartphone Probleme bekommen.

Tausend Dank vorab
Fargol

 

Hi,

.... tja, das kommt davon wenn der Code nicht getestet wird.
Hatte gestern keine Zeit dafür, da gehört natürlich was umgestellt.

Anbei mit einer kleinen Version, die ich getestet habe.

 

Hehe, dann ist es ja halb so wild ;-)

Ich habe wieder getestet und die Datei auch wieder erweitert, das sieht sehr gut aus!
Zwei kleinere Dinge sind mir noch aufgefallen: die Formatierung vom Datum ist jetzt plötzlich Standard und die vom Betrag ist Datum *wink.gif*

Ansonsten wäre es nur noch schön, wenn in den neuen Dateien der Cursor in der Zelle A2 stehen könnte, dann ist man auf jeden Fall im sichtbaren Bereich der Tabelle.

Viele Grüße
Fargol

 

Hi,

das mit der Formatierung kann ich nicht nachvollziehen...(ändert sich bei mir nicht)

Und deaktiviere Fenster fixieren und Filter und lasse das Makro mal mit markierter Zelle A2 laufen.

 

Hallo Fargol,

da sich der Beitrag schon länger hinzieht, sieh dir doch mal meine Anwendung Listenseparator an. Eventuell hilft dir das weiter.

 

Ja, ich war glaube ich zu blöd - habe die größere Tabelle mit Werte einfügen reinkopiert und dann nicht noch mal die Zellenformatierung geprüft. Dateien aus den oberen Zeilen haben die richtigen Formate - sorry!

Der andere Fehler kam daher, dass die Tabelle auch wirklich als Tabelle formatiert war. Das macht das Makro scheinbar nicht mit leider..

Es läuft jetzt aber super, daher danke ich dir vielmals, Chris!


@Klaus-Dieter: danke für den Tipp, aber das hat sich jetzt wohl erledigt ;-)


Viele Grüße
Fargol

 

Ich möchte nach der Spalte A (=Kriterium) die Tabelle auf mehrere Datenblätter aufteilen und unter den Namen Spalte A speichern inklusive Layout. Würde mich wirklich sehr über ein Makro freuen!!!!!!
Ich habe mir schon die anderen angeschaut, aber diese entsprechen nicht ganz meinen Anforderungen.

 

Aber es funktioniert auch: Tabelle_trennen_klein.xlsm (35,1 KB, 5x aufgerufen) sehr gut.
Danke!