Live-Forum - Die aktuellen Beiträge
Anzeige
Archiv - Navigation
228to232
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
228to232
228to232
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Inhaltsverzeichnis

Zellbezüge entfernen

Zellbezüge entfernen
13.03.2003 21:07:13
Manfred
Hallo,
hier meine Anfrage:
Ich muss einmal in der Woche bei ca. 20-50 Excel-Tabellen (ein kompletter Ordner) die Formeln entfernen (kopieren, Werte einfügen). Gibt es eine Möglichkeit, dass ich nicht alle Dateien einzeln öffnen und jedes Mal dasselbe tun muss (komplett markieren, kopieren, Inhalte einfügen, Werte).
Freue mich auf Antwort.
Manfred


3
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
Re: Zellbezüge entfernen
13.03.2003 21:13:41
Oliver

50 Tabellen oder 50 Dateien mit zig Tabellen??

Re: Zellbezüge entfernen
13.03.2003 21:25:57
Manfred

Bis zu 50 Dateien (Mappen) mit jeweils einer belegten Tabelle.


Re: Zellbezüge entfernen
14.03.2003 13:06:48
Udo R.

Hallo,
als Ansatz und ungetestet:

Set DateiSuche = Application.FileSearch
With DateiSuche
.LookIn = "c:\testordner\"
.FileName = "*.xls"

If .Execute > 0 Then
For i = 1 To .FoundFiles.Count
DateiName = .FoundFiles(i)

Workbooks.Open FileName:=DateiName
sheets(1).cells.copy
sheets(1).cells.pastespecial Paste:=xlvalues
activeworkbook.save
activeworkbook.close
next i

Gruss aus'm Pott
Udo


Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige