---

Hallo ruckr,
DRAG and DROP ist ein der Lösung. (der nicht-automatische Teil)
- Bereich markieren
- Bearbeiten+kopieren
- Neue, leere Datei aufmachen
- Bearbeiten+Inhalte Einfügen   dann Werte anklicken

------------------
WolfgangB

[Diese Nachricht wurde von Wolfgang Becker am 21. Okt. 2004 editiert.]

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP

---

Wenn ich es richtig verstanden habe...

Code:

---

Sub einzelnes_Blatt_copy()
Dim blatt As Integer
Dim fName As String
blatt = InputBox("Welches Blatt soll kopiert werden?" & Chr(13) & _
"Bitte die Blattnummer eingeben (von links nach rechts)")
Sheets(blatt).Copy
Cells.Select
    Selection.Copy
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
    'Range("B15").Select

fName = InputBox("Neuer Dateiname - speichern als" & Chr(13) & _
"Bitte neuen Dateinamen eingeben")
ActiveWorkbook.SaveAs Filename:=fName

Application.DisplayAlerts = False
ActiveWindow.Close
Application.DisplayAlerts = True
End Sub

---

wahlweise lässt es sich noch erweitern, das dem neuen Tabellenblatt ein Name vergeben wird und es auch unter diesem gespeichert wird mit Datum etc...

[Diese Nachricht wurde von Thomas Harmening am 21. Okt. 2004 editiert.]

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP

---

Hi,

ich kann’s einfach nicht lassen. Wenn ich solch bauchscherzerzeugende Konstruktionen sehe:

Cells.Select
    Selection.Copy
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False

Aua! Einmal für "Select" und noch mal Aua! Für den Umweg über das Clipboard.

Geht doch so viel einfacher:

ActiveSheet.UsedRange = ActiveSheet.UsedRange.Value

------------------
Gruß
Nepumuk

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP

---

-----------
Cells.Select
    Selection.Copy
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
--------------

das war eine Makroaufnahme und zu mehr hatte ich nicht wirklich Lust - ausserdem hätte ich es auch nicht gewusst ;-)

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP

---

Speicher es als Text mit Tabs getrennt, dann werden die Formeln nicht mit hinterlegt!
Und du kannst es auch mit excel wieder öffnen!

------------------
------------

------------

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP