Makro abändern
02.03.2003 13:09:47
Tobias
ich hatte heute hier schon eine Anfrage und "Rainer" konnte mir auch helfen. Ich suchte ein Makro, mit dem man eine Datei komplett kopieren kann, mit allen Formaten, aber ohne Formeln...nur die Werte. Weiter unten das Ergebnis.
Jetzt bräuchte ich eine kleine Änderung und zwar soll das Makro
in der ursprünglichen Datei nicht mitkopiert werden. Wie muss
man das untere Makro abändern?
Gruß
Tobias
Sub Copy_And_Save_Tablevalue()
Dim i As Integer
For i = 1 To Worksheets.Count
Worksheets(i).Activate
Cells.Select
Selection.Copy
Selection.PasteSpecial Paste:=xlPasteValues
Next i
ActiveWorkbook.SaveCopyAs ThisWorkbook.Path & "\Kopie_von" & ThisWorkbook.Name
MsgBox "Reine Datentabelle gespeichert als: " & ThisWorkbook.Path & "\Kopie_von" & ThisWorkbook.Name
End Sub