Live-Forum - Die aktuellen Beiträge
Datum
Titel
28.03.2024 21:12:36
28.03.2024 18:31:49
Anzeige
Archiv - Navigation
460to464
Aktuelles Verzeichnis
Verzeichnis Index
Übersicht Verzeichnisse
Vorheriger Thread
Rückwärts Blättern
Nächster Thread
Vorwärts blättern
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
460to464
460to464
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Inhaltsverzeichnis

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

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
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ß
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

308 Forumthreads zu ähnlichen Themen

Anzeige
Anzeige
Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige