Supportnet Computer
Planet of Tech

Supportnet / Forum / Tabellenkalkulation

Tabelle in neuer Datei speichern





Frage

Hallo Crackz, ich habe folgendes Excel-Problem: ich habe in einer Datei ein Tabellenblatt, welches sowohl mit normalen Einträgen, als auch per Verknüpfung ausgefüllt wird. Einige Zellen sind gruppiert. Nun muss ich die Werte der Datei in einer neuen Mappe speichern. Per Hand funktionert dies ja wie folgt: - markieren und kopieren - neue Mappe aufmachen und Formate einfügen - Werte und Zahlenformate einfügen - Bei Extras – Optionen – Ansicht das Häkchen bei Nullwerten entfernen (wegen der Verknüpfungen) Kann man (IHR) hierfür ein Makro schreiben? Und wenn ja, wie sieht das denn aus? Ich zähl auf Euch. Gruß m-o-m

Antwort 1 von Saarbauer

Hallo,

warum zeichnest du dir dein Makro nicht auf?

Anschliessend vielleicht, wenn erforderlich entsprechend manuell ergänzen

Gruß

Helmut

Antwort 2 von m-o-m

Moin Helmut,

hab ich probiert.

Makro erstellen, alles einmal der Reihenfolge (s.o.) gemacht und speichern, nur leider bleibt das makro leer.

Und ich hab keine Ahnung wieso. Vielleicht liegt es an der neuen Datei?

Wie gesagt, keine Ahnung wieso das so nicht funktioniert.

Mir würd es ja (wahrscheinlich) schon helfen, wenn ich wüsste, wie man das in eine neue Datei speichert, so dass ich ein Makro in meiner Datei aufzeichne und dann nur im Makro das neue Tabellenblatt mit der neuen Datei ersetze.

Gruß

m-o-m

Antwort 3 von JoeKe

Hallo m-o-m,

versuch es mal so:

Sub Makro1()
Cells.Copy
Workbooks.Add
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Application.CutCopyMode = False
End Sub


Der Code kopiert das aktive Tabellenblatt, öffnet eine neue Mappe und fügt dort die Werte ein.

MfG

JöKe

Antwort 4 von m-o-m

Hallo JöKe,

vielen Dank für die rasche Antwort.

Leider funzt das nicht.

Er öffnet zwar eine neue Datei, dann kommt aber die Fehlermeldung:

Laufzeitfehler ´1004´:
Die PasteSpecial-Methode des Range-Objektes konnte nicht ausgeführt werden.

Was immer das auch heißen mag.

Gruß m-o-m

Antwort 5 von JoeKe

Hallo m-o-m,

kann ich leider nicht nach vollziehen. Bei mir läuft obenstehendes Makro problemlos.

Aber versuchs dann mal so:

Sub Makro1()
Cells.Copy
Workbooks.Add
Sheets("Tabelle1").Range("A1").PasteSpecial Paste:=xlPasteValues, _ Operation:=xlNone, _
SkipBlanks:=False, Transpose:=False
Application.CutCopyMode = False
End Sub


MfG

JöKe

Antwort 6 von Saarbauer

Hallo,

dein Fehler war, Makro erstellen.

Arbeite mal mit Makro aufzeichnen und dann wie oben und zum Schluß Aufzeichnung beenden

Gruß

Helmut

Antwort 7 von m-o-m

Hallo,

funzt nicht.

liegt es vielleicht daran, dass unter anderem a1:b1 verbunden sind?

Gruß

m-o-m

Antwort 8 von JoeKe

Hallo,

nein das dürfte kein Prblem machen.
Ist es dir vielleicht möglich mir die Datei mal zuschicken?
Meine Adresse ist in deinem Pager.

MfG

JöKe

Antwort 9 von m-o-m

Ich hab´s vergessen,

Vielen Dank an Helmut und JöKe.

Es funzt wunderbar.

Gruß

m-o-m

Ich möchte kostenlos eine Frage an die Mitglieder stellen:


Ähnliche Themen:


Suche in allen vorhandenen Beiträgen: