Live-Forum - Die aktuellen Beiträge
Datum
Titel
25.04.2024 10:38:52
Bedingte Formatierung per VBA / MaxPoint
25.04.2024 10:30:04
Suche mit MINWENNS und Rückgabe mehrerer Werte
25.04.2024 09:47:49
Daten aus mehreren Dateien untereinander importieren
25.04.2024 09:31:31
Bild "In Zelle platzieren"
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
1100to1104
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
1100to1104
1100to1104
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Tabellenblatt kopieren, verschieben und speichern

Tabellenblatt kopieren, verschieben und speichern
Harald
Hallo zusammen,
ich habe eine Datei mit vielen Tabellenblättern. Hiervon muss ich stunden- oder tageweise einzelne Blätter per E-Mail versenden. Dafür soll eine Kopie des aktiven Tabellenblattes als eigene Datei abgespeichert werden um es später an eine E- Mail hängen zu können.
Der Code soll folgendes tun
- das aktive Tabellenblatt kopieren, und in eine neue Datei schieben
- der Dateiname soll wie folgt lauten: "Zusatztext" & Tabellenblattname & xls.
- der Pfad zum speichern soll analog dem Ursprungspfad der Hauptdatei sein
Weiß jemand die Lösung? Wäre eine riesige Arbeitserleichterung für mich!
Vielen Dank im voraus.
Gruß, Harald G.

7
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Benutzer
Anzeige
AW: Tabellenblatt kopieren, verschieben und speichern
16.09.2009 13:49:30
JogyB
Hi.
Sub kopierenUndSpeichern()
Dim myPath As String
Application.ScreenUpdating = False
myPath = ActiveSheet.Parent.Path
ActiveSheet.Copy
' activesheet ist nun die Kopie in der neuen Arbeitsmappe
ActiveSheet.Parent.Close True, myPath & "\Zusatztext" & ActiveSheet.Name
Application.ScreenUpdating = True
End Sub
Gruss, Jogy
AW: Tabellenblatt kopieren, verschieben und speichern
16.09.2009 17:46:06
Harald
Hallo Jogy,
vielen, vielen Dank - es funktioniert.
Eine ergänzende Frage habe ich doch noch:
Wenn die Datei bereits besteht und ich das Makro nochmal laufen lasse, kommt die Frage "Soll die vorhandene Datei ersetzt werden?"
Wie muss muss der Code ergänzt werden, damit die vorhandene Daei immer ersetzt wird und nicht gefragt wird.
Gruß, Harald.
Anzeige
Tabellenblatt speichern
16.09.2009 18:55:41
Erich
Hi Harald,
probier mal das hier: 

Sub KopierenUndSpeichern2()
Dim strPfad As String, strFil As String
With ActiveWorkbook
strPfad = IIf(Right$(.Path, 1) = "\", .Path, .Path & "\")
strFil = strPfad & "Zusatztext" & ActiveSheet.Name & _
Right$(.Name, Len(.Name) - InStrRev(.Name, ".") + 1)
End With
Application.ScreenUpdating = False
ActiveSheet.Copy
' activesheet ist nun die Kopie in der neuen Arbeitsmappe
If Dir(strFil) > "" Then Kill strFil
ActiveWorkbook.Close True, strFil
Application.ScreenUpdating = True
End Sub
Rückmeldung wäre nett! - Grüße von Erich aus Kamp-Lintfort
Anzeige
Versionsinfo wichtig
17.09.2009 08:00:43
Tino
Hallo,
in den anderen Beispielen wurde ohne Dateiformat gearbeitet, solltest Du mal auf xl2007 oder höher wechseln, kann es zu diesem Fehler kommen wenn Du ohne Dateiformatangabe speichern möchtest.
Userbild
Hier die geänderte Version ohne Meldung wenn Datei schon vorhanden.
Sub Beispiel()
Dim strPfad As String, FileEx As String

With ThisWorkbook
    FileEx = Right$(.Name, Len(.Name) - InStrRev(.Name, ".") + 1)
    strPfad = IIf(Right$(.Path, 1) = "\", .Path, .Path & "\")
    
    .ActiveSheet.Copy
    
    With ActiveWorkbook
      Application.DisplayAlerts = False
        .SaveAs Filename:=strPfad & "Zusatztext" & ActiveSheet.Name & FileEx, FileFormat:=ThisWorkbook.FileFormat
        .Close False
      Application.DisplayAlerts = True
    End With
End With
End Sub

Gruß Tino
Anzeige
sollte nicht an Erich, sollte zu Harald G. oT.
17.09.2009 08:09:25
Tino
sorry
AW: Tabellenblatt kopieren, verschieben und speichern
16.09.2009 14:00:51
Tino
Hallo,
so müsste es gehen.
Sub Beispiel()
Dim strPfad As String, FileEx As String

With ThisWorkbook
    FileEx = Right$(.Name, Len(.Name) - InStrRev(.Name, ".") + 1)
    strPfad = IIf(Right$(.Path, 1) = "\", .Path, .Path & "\")
    
    .ActiveSheet.Copy
    
    With ActiveWorkbook
     .SaveAs Filename:=strPfad & "Zusatztext" & ActiveSheet.Name & FileEx, FileFormat:=ThisWorkbook.FileFormat
     .Close False
    End With
End With
End Sub
Gruß Tino
Anzeige
Bei Codes funktionieren!
17.09.2009 01:35:50
Harald
Vielen Dank auch an Erich und Tino!!!!!!!
Gruß aus Köln, Harald G.

304 Forumthreads zu ähnlichen Themen

ans Tabellenende mit Leerzeilen kopieren
Robert-M

Grüß´ Euch im Forum,
in einer Tabelle „MASTER“ will ich die Daten anderer Arbeitsmappen „DETAIL 1, -2, -3“ untereinander auflisten.
Der Vorgang ist simpel:
per Makro
kopiere ich nacheinander jeweils den Inhalt von „DETAIL 1 ...“,
gehe in die Tabelle MASTER,
suche hier di...
08.09.2008 21:49:00
Thread-ID: 1008257
10 Beiträge
Anzeige
Zelle in andere Tabelle mit Button kopieren
Benny

Hallo Zusammen!
Kann mir jemand weiterhelfen? Wie kann ich die unten stehende Formel entsprechend anpassen?
Private Sub CommandButton2_Click() Dim wks As Worksheet Set wks = Worksheets("Änderungsanträge") wks.Range("C3") = wks.Range("D3") End Sub
Danke im Voraus!
Benny
07.10.2008 10:06:48
Thread-ID: 1014629
4 Beiträge
Tabelle mit eingebetteten Makro kopieren
köhler

Hallo!
Wenn ich in der Tabelle ein Makro eingebettet habe, dann wird beim Kopieren zu einer neuen Datei das Makro nicht mehr mit dem Button angesteuert. Das Makro wurde mitkopiert aber der Button hat dann ein Bezug auf die "alte" Datei, von der ich das Tabellenblatt kopiert habe.
Wie k...
08.01.2009 12:33:58
Thread-ID: 1037865
6 Beiträge
Anzeige
Arbeitsblatt kopieren ohne Quellcode
Oliver

Hallo zusammen,
ich habe gerade in mühsamer Arbeit folgenden Code zum Ablegen von Sheets in Workbooks zusammengeschustert:
Dim strDatei As String
strDatei = "Ablage.xls"
Set wksMappeZ = Workbooks.Open(strDatei)
Set wksMappeQ = ThisWorkbook
wksMappeQ.Sheets("Kalkulation")...
24.02.2009 14:58:21
Thread-ID: 1053533
4 Beiträge
Blatt kopieren mit VBA
Torsten

Hallo beisammen,
wie muß der Code vervollständigt werden, wenn ich das gerade aktive Blatt kopieren und immer an die letzte Position einfügen möchte?
Vielen Dank für Eure Tipps.
Gruß
Torsten
06.03.2009 16:36:27
Thread-ID: 1057377
5 Beiträge
Tabelle mit var. Inhalt kopieren
Robbie

Hallo zusammen, ich mal wieder ein Problemchen.
Ich habe ein Makro laufen das mit Excel 2003 erstellt wurde. Der Tabelleninhalt sol kopiert werden, der aber unterschiedlich lang ist. Nun hatte ich dies immer mit dem folgenden Code markiert:
Range("A2", Range("p65536").End(xlUp)).Select<...
20.03.2009 10:06:08
Thread-ID: 1062062
5 Beiträge
Tabellenblatt Kopieren, mit anderem Name speichern
Mandy

Hi,
Hoffe mal wieder auf Eure Hilfe: Wie kann ich denn per Makro in meiner XLS das Sheet "Ablage" kopieren und im gleichen sheet unter dem Name "Data" wieder einfügen ?
Danke
mandy
24.03.2009 14:35:27
Thread-ID: 1063343
3 Beiträge
Blatt Kopieren ohne Shapes
ptonka

Hallo zusammen,
ich kopiere den Inhalt eines gesamten Blattes (Tabelle1) auf ein 2. Blatt (Tabelle2) um die Daten dort weiter zu verarbeiten. Nun habe ich auf Tabelle1 mehrere Schaltflächen, um Makros zu starten.
Diese werden beim kopieren (per VBA) auch mit auf das 2. Blatt kopiert.
22.07.2009 10:53:00
Thread-ID: 1090452
16 Beiträge
Anzeige

Beliebteste Forumthreads (12 Monate)

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

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige
Archiv - Verwandte Themen
Forumthread
Beiträge
9
4
3
5
7
3
4
4
2
15
5
3
5
4
2
5
2
4
6
2
1
6
2
7
1