Live-Forum - Die aktuellen Beiträge
Datum
Titel
26.04.2024 21:51:33
Idee für Grafik
26.04.2024 21:29:07
PQ zufällige Reihenfolge
26.04.2024 17:18:47
Große Datenmenge in komplexes Diagramm verpacken
26.04.2024 16:22:47
Aktualisierung Verknüpfung bei geschlossener Quelldatei
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
372to376
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
Vorheriger Thread
Vorheriger Thread
Rückwärts Blättern
372to376
372to376
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Blatt Copy zu Mappe

Blatt Copy zu Mappe
31.01.2004 08:51:50
helena
Guten Morgen
habe ein kleines Problem (für Euch sicher) habe QUELLMAPPE
mit 2 Sheets, SHEETNAME ändert laufend, möchte jetzt mit Makro
das aktive Sheet in ander Datei kopieren und wieder in QUELLMAPPE
Aktive SHEET zurückkehren

Sub copy()
Workbooks.Open Filename:="D:\DATEN\\Ziel.xls"
Windows("Arbeit.xls").Activate
***    aktive.Sheet.copy After:=Workbooks("Archiv.xls").Sheets(1)  ***
ActiveWorkbook.Save
ActiveWorkbook.Close
Windows("Arbeit.xls").Activate
Range("A2").Select
End Sub

*** hier habe ich denke das Problem
DANKE für Hilfe
gruss helena

4
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Blatt Copy zu Mappe
31.01.2004 09:01:17
Ramses
Hallo
mir ist das Problem nicht ganz klar ?
Welche Fehlermeldung bringt EXCEL denn ?
Hier noch ein paar Inputs:
Das kann nicht gehen
Workbooks.Open Filename:="D:\DATEN\\Ziel.xls"
Weil die Pfadangabe falsche ist ( zwei Backslash hintereinander )

Woher kommt die Datei "Archiv.xls" in die kopiert werden soll?
aktive.Sheet.copy After:=Workbooks("Archiv.xls").Sheets(1)

Gruss Rainer
AW: Blatt Copy zu Mappe
31.01.2004 09:02:45
Nepumuk
Hallo Helena,
du darfst copy (eine Schlüsselwort in VBA) nicht als Namen einer Sub verwenden. Das ist tödlich. Ansonsten würde ich es so lösen:

Option Explicit
Sub kopieren()
Dim mySheet As Worksheet
Set mySheet = ActiveSheet
Workbooks.Open Filename:="D:\DATEN\\Ziel.xls"
mySheet.Copy After:=Workbooks("Archiv.xls").Sheets(1)
ActiveWorkbook.Close SaveChanges:=True
Range("A2").Select
Set mySheet = Nothing
End Sub

Code eingefügt mit: Excel Code Jeanie
Gruß
Nepumuk
Anzeige
AW: Blatt Copy zu Mappe
31.01.2004 09:03:14
Hajo_Zi
Hallo Helena
Einzelnes Register speichern

Sub Blattspeichern()
ActiveSheet.Copy
ActiveWorkbook.SaveAs Filename:="D:\Eigene Dateien\Hajo\" & ActiveSheet.Name & ".xls"
ActiveWorkbook.Close
End Sub


Bitte keine Mail, Probleme sollten im Forum gelöst werden.
Microsoft MVP für Excel
Das Forum lebt auch von den Rückmeldungen.
Betriebssystem XP Pro und Excel Version XP Pro


vielen Dank Euch drei;Lös. Nepomuk genommen (o.T)
31.01.2004 09:09:46
helena
.

Beliebteste Forumthreads (12 Monate)

Anzeige
Jetzt das Excel-Portal bewerten: Deine Stimme zählt!

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige