Live-Forum - Die aktuellen Beiträge
Datum
Titel
17.10.2025 10:28:49
16.10.2025 17:40:39
Anzeige
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender

Forumthread: Tabelle(n) ohne Formeln kopieren

Tabelle(n) ohne Formeln kopieren
28.07.2004 17:09:50
Simon
Hallo Gurus !
Ist es machbar eine bestehende Tabelle (oder Tabellen),
ohne Formeln (nur Werte, Formatierung ....) in eine neue XLS Datei zu kopieren ?
mfg Simon
Anzeige

6
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Tabelle(n) ohne Formeln kopieren
Ulf
Formel in Werte umwandeln.
Ulf
AW: Tabelle(n) ohne Formeln kopieren
28.07.2004 17:12:28
Simon
Hallo Ulf
Meine natürlich per VBA, nicht Click,Click,Click :-)
mfg
AW: Tabelle(n) ohne Formeln kopieren
Ulf
Mach klick, klick, klick und zeichne dabei ein Makro auf.
Ulf
Anzeige
AW: Tabelle(n) ohne Formeln kopieren
TommyMB
Kannst schlicht den Bereich kopieren, ins neue Tabellenblatt gehen und dann mit rechter Maus "Inhalte Einfügen" auswählen. Hier kannst Du dann entscheiden was Du einfügen willst, z. B. nur Formate oder nur Werte, geht übrigens auch hintereinander, fallst Du das Layout auch haben magst. Lieben Gruß
Anzeige
AW: Tabelle(n) ohne Formeln kopieren
28.07.2004 17:35:40
Simon
Hallo
Ja Danke erstmal, aber ...
Das ist genau der Vorgang den ich kenne,
und bei über 30 Tabellen nicht gangbar ist.
Meinte eher sowas :
SC = Workbooks(Destination + ".xls").Sheets.Count
Workbooks(Quell_datei).Activate
ActiveWorkbook.Sheets.Copy After:=Workbooks(Destination + ".xls").Sheets(SC)
Workbooks(Destination + ".xls").Close SaveChanges:=True
----
Die Frage ist kann man hier bei dem Code das mitkopieren der Formeln unterbinden ?
Oder gibts eine andere (schlechtere, bessere) hauptsache funktionierende Alternative ?
mfg
Anzeige
AW: Tabelle(n) ohne Formeln kopieren
28.07.2004 17:56:56
Nepumuk
Hallo Simon,
so geht's:


    Dim myworksheet As Worksheet
    ActiveWorkbook.Sheets.Copy After:=Workbooks(Destination + ".xls").Sheets(SC)
    For Each myworksheet In Workbooks(Destination + ".xls").Worksheets
        myworksheet.UsedRange = myworksheet.UsedRange.Value
    Next
    Set myworksheet = Nothing
    Workbooks(Destination + ".xls").Close SaveChanges:=True


Gruß
Nepumuk
Anzeige
;

Forumthreads zu verwandten Themen

Anzeige
Anzeige
Entdecke relevante Threads

Schau dir verwandte Threads basierend auf dem aktuellen Thema an

Alle relevanten Threads mit Inhaltsvorschau entdecken
Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Entdecke mehr
Finde genau, was du suchst

Die erweiterte Suchfunktion hilft dir, gezielt die besten Antworten zu finden

Suche nach den besten Antworten
Unsere beliebtesten Threads

Entdecke unsere meistgeklickten Beiträge in der Google Suche

Top 100 Threads jetzt ansehen
Anzeige