Live-Forum - Die aktuellen Beiträge
Datum
Titel
23.10.2025 06:53:43
Zeilen löschen oder ausblenden wenn Zeile darüber höher wird
22.10.2025 19:40:18
Prüfen ob Datei offen
22.10.2025 19:07:50
Bedingtes kopieren in andere A.-Blätter u. VBA Anpassungen
22.10.2025 16:04:18
Auswahl der Datenüberprüfung auf Folgezellen übertragen
Keine passende Antwort im Forumarchiv gefunden?
Stelle deine Frage im Live-Forum
Anzeige
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Vorheriger Thread
Vorheriger Thread
Rückwärts Blättern
1740to1744
1740to1744
Aktuelles Verzeichnis
Verzeichnis Übersicht
Verzeichnis Übersicht
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

VBA, neue Datei erstellen Inhalt kopiere

Forumthread: VBA, neue Datei erstellen Inhalt kopiere

VBA, neue Datei erstellen Inhalt kopiere
03.03.2020 10:09:10
Gehard
Guten Morgen zusammen,
meine VBA-Kenntnisse sind sehr beschränkt und ich komme alleine einfach nicht weiter.
Simpel gesagt, möchte ich ein Makro erstellen, dass aus der Datei in der ich bin eine neue Excel-Datei erstellt und Inhalte der aktuellen Datei in die neue kopiert. Es geht hier nur darum, die nötigsten Informationen aus der Ausgangsdatei in dem richtigen Format und an der richtigen Stelle in der neuen Datei darzustellen.
Weder die Datei, aus der die Daten kopiert werden, noch die Datei in die die Daten kopiert werden, werden gespeichert.
Die Datei (Exceldatei) in der das Makro ausgeführt wird, wird aus einer anderen Software erstellt und der Name variiert (Der Name setzt sich wie folgt zusammen: "export"JJJJMMTThhmmss").
Also wenn ich diese eine Datei aus der Software am 02.03.2020 um 09:53:31 erstellen würde, wäre der Dateiname "export20200302095331".
Mein Problem sind vor allen die Dateinamen. Da ich dem Makro angeben muss aus welcher Datei Informationen geholt und in welcher Datei Informationen kopiert werden sollen.
Um zu sehen ob das Makro, dass macht was es soll, wäre es toll, wenn es z.B. den Inhalt der Zelle A1 aus der Ursprungsdatei auch gleich in die Zelle A1 der Zieldatei kopieren würde.
Ich hoffe ich habe das alles nicht zu kompliziert geschrieben und würde über Hilfe bei meinem Problem freuen.
Vielen Dank.
Anzeige

5
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: VBA, neue Datei erstellen Inhalt kopiere
03.03.2020 10:23:59
Werner
Hallo,
der Name der Datei in dem das Makro ist, ist egal. Du kannst diese Datei über ThisWorkbook ansprechen. 
Public Sub aaa()
Dim wbNeu As Workbook, wsNeu As Worksheet
Application.ScreenUpdating = False
Set wbNeu = Workbooks.Add
Set wsNeu = wbNeu.Worksheets("Tabelle1")
With ThisWorkbook.Worksheets("Tabelle1")
.Range("A1").Copy wsNeu.Range("A1")
End With
Set wbNeu = Nothing: Set wsNeu = Nothing
End Sub
Gruß Werner
Anzeige
AW: VBA, neue Datei erstellen Inhalt kopiere
03.03.2020 11:00:07
Gehard
Hallo Werner,
vielen Dank.
Ich habe noch folgendes Problem. In der Ursprungsdatei heißt die Tabelle1 nicht Tabelle1 sondern genau wie die Datei ("export"JJJJMMTThhmmss").
Wenn ich folgende passage aus deinem Makro ändere:
With ThisWorkbook.Worksheets("Tabelle1")
und aus Tabelle1 den entsprechenden Dateinamen mache funktioniert es.
Jetzt müsste ich nur noch wissen wie ich dem Makro sage, der Tabellennamen der aktuellen Tabelle ist gleich dem variierenden Dateinamen.
Danke nochmals.
Anzeige
AW: VBA, neue Datei erstellen Inhalt kopiere
03.03.2020 11:15:00
Werner
Hallo,
so: 
Public Sub aaa()
Dim wbNeu As Workbook, wsNeu As Worksheet
Dim strBlatt As String
Application.ScreenUpdating = False
strBlatt = Replace(ThisWorkbook.Name, ".xlsm", "")
Set wbNeu = Workbooks.Add
Set wsNeu = wbNeu.Worksheets("Tabelle1")
With ThisWorkbook.Worksheets(strBlatt)
.Range("A1").Copy wsNeu.Range("A1")
End With
Set wbNeu = Nothing: Set wsNeu = Nothing
End Sub
Gruß Werner
Anzeige
AW: VBA, neue Datei erstellen Inhalt kopiere
04.03.2020 11:24:14
Gehard
Hallo Werner,
vielen Dank.
Funktioniert so wie es soll und ich habe wieder etwas dazu gelernt.
Gerne u. Danke für die Rückmeldung. o.w.T.
04.03.2020 13:43:57
Werner
;

Forumthreads zu verwandten Themen

VBA Ausgabe in neue Datei
MarkusL

Hallo,
ich habe folgendes Problem:
In einer Datei befinden sich nachfolgende Datensätze
Jahr Monat Feld_1 Feld_2 Feld_3 Feld_4 Feld_5 usw.
es sollen nun per VBA nach Abfrage von Jahr und Monat ein neuer Datensatz in einer neuen Datei erzeugt werden, der allerdings nur noch die F...
08.08.2008 17:42:00
Thread-ID: 1000377
3 Beiträge
Neue Arbeitsmappe aus AddIn erstellen
wernernico

Hallo,
ich hab da mal wieder ein kleines Problem...
Ich habe ein AddIn, das neben Code auch mehrere Tabellenobjekte enthält. Nun möchte ich ein neues WorkBook erstellen, das die Tabellen aus dem AddIn enthält. Ich habe es bisher auf folgende Weise probiert:
Set Tempbook = DieseArbei...
06.10.2008 09:55:00
Thread-ID: 1014338
3 Beiträge
neue Datei erstellen und beschreiben
Toby


Hmm, wahrscheinlich für euch ein kleines Problem
habe aber im archiv nichts gefunden!
ich erstelle ein neues file und möchte dann die neue Datei mit Daten beschreiben.
aber leider schreibt er mir immer ins file in dem ich das makro starte!
ich hatte schon mol so ein Proble...
29.10.2008 13:07:00
Thread-ID: 1020251
9 Beiträge
Makro in neuer Datei erstellen
Kurt

Guten Morgen Allerseits,
ich hoffe mir kann jemand weiterhelfen.
Problem:
Ich erstellt eine TXT Datei per Makro, nun möchte ich das
zusätzlich ein Commandbutton erstellt wird, mit folgendem Inhalt:
Private Sub CommandButton1_Click() Dim z As Long z = Range("a6").End(xlDo...
13.11.2008 10:47:23
Thread-ID: 1024104
7 Beiträge
per VBA prn-Datei erstellen
Ron

hallo,
weiß jemand von euch wenn ich per makro eine Exceltabelle als prn-Datei ausdrucken will wie ich diese automatisch mit einem vorher ermittelten Namen abspeichern kann?
Danke
Gruß Ron
19.11.2008 17:22:00
Thread-ID: 1026126
5 Beiträge
Anzeige
Makro per VBA in Datei erstellen
Marko

Hallo zusammen,
folgendes Problem:
ich habe eine Datei mir mehreren Tabellenblätter die Formeln enthalten.
Per VBA exportiere ich die Datei und enferne dabei die vorhandenen Makros sowie ersetzte die Formeln durch Werte.
Nun würde ich abschließend in den Export ein neues Makro i...
01.07.2009 17:22:37
Thread-ID: 1085801
3 Beiträge
Tabellenblätter autom. erstellen und ausfüllen
Robert

Hallo Leute
ich habe hier eine Mappe in der ich eine Vorlage für die Prüfung von Maschinen hab.
Ich brauch pro Maschine ein Tabellenblatt und daher würde ich diese gerne automatisch erstellen wenn in der Geräteliste ein Gerät eingetragen wird.
Des Weiteren soll in den automatisch er...
07.07.2009 20:30:38
Thread-ID: 1086950
7 Beiträge
Neue Datei erstellen
Stefanglander

Hallo Forum,
ich habe eine Datei in der auf Blatt 1 im Bereich C2:C27 Namen stehen.
Ich möchte nun mit einem Makro ausgelößt durch einen CMB das für Zelle im Bereich C2:C27 die nicht leer ist eine neue Datei mit dem Namen der jeweiligen Zelle angelegt wird.
Als Vorlage soll das Bla...
02.08.2009 19:37:22
Thread-ID: 1093084
3 Beiträge
VBA beim anlegen neuer Datei mit kopieren
Stefanglander

Mal wieder ich,
Hallo Leute
ich habe ein Code von Hajo in meiner Datei eingebaut.
Es geht um den Kalender der sich beim betreten der Zelle einblendet ( ein super Teil, kann ich nur empfehlen).
Nun lege ich mittels folgendem Code eine neue Mappe an:
Sub Tab2() Dim strFile As...
16.08.2009 19:31:38
Thread-ID: 1096268
4 Beiträge
Anzeige
neue Exceldatei incl. Makro automatisch erstellen
skaddy

Hallo zusammen
Ich erstelle mit einen Makro aus dem Excel heraus ein Wordfile, welches ich wiederum mit Teilinhalte aus Excel beschreibe. Nun möchte ich dem neu erstellten Wordfile noch gerne ein Makro (also im .doc) mitgeben mit welchem ich dann im Word mit einem Hotkey noch ein WordMakro...
17.09.2009 23:02:47
Thread-ID: 1103727
11 Beiträge
VBA:einzelnes Blatt in neuer Datei speichern +mehr
habneFrage

Hallo liebes Forum! Ich habe mich hier heute mal angemeldet, da ich schon seit längerer Zeit an einem Problem arbeite aber keine Lösung gefunden habe. Ich habe mit VBA nicht besonders viel am Hut, dafür kann ich mit anderen Dingen in Excel schon besser umgehen. Nun aber zu meinen Fragen:
Ic...
30.10.2009 08:03:49
Thread-ID: 1113145
14 Beiträge
Anzeige
Userform erstellen und Tabelle füllen
Benjamin

Hallo allerseits,
ich will eine Userform erstellen, in der ich aus Spalte A die Monate auswählen kann (z.B. Januar bis Dezember) und mir dann automatisch der bisherige Inhalt der zugehörigen Zelle in Spalte B/C/D etc. angezeigt wird und ich ihn editieren kann.
Kann mir da jemand weiterh...
18.08.2011 17:23:50
Thread-ID: 1226647
5 Beiträge
Entdecke relevante Threads

Schau dir verwandte Threads basierend auf dem aktuellen Thema an

Alle relevanten Threads mit Inhaltsvorschau entdecken
Anzeige
Anzeige

Infobox / Tutorial

Inhalte aus einer Excel-Datei in eine neue Datei kopieren mit VBA

Schritt-für-Schritt-Anleitung

Um eine neue Excel-Datei zu erstellen und Inhalte aus der aktuellen Datei zu kopieren, kannst du das folgende VBA-Makro verwenden. Dieses Skript erstellt eine neue Arbeitsmappe und kopiert den Inhalt der Zelle A1 der aktuellen Datei in die neue Datei.

  1. Öffne Excel und drücke ALT + F11, um den VBA-Editor zu öffnen.

  2. Gehe zu Einfügen > Modul, um ein neues Modul zu erstellen.

  3. Füge den folgenden Code in das Modul ein:

    Public Sub aaa()
   Dim wbNeu As Workbook, wsNeu As Worksheet
   Dim strBlatt As String
   Application.ScreenUpdating = False

   ' Aktuellen Blattnamen ermitteln
   strBlatt = Replace(ThisWorkbook.Name, ".xlsm", "")

   ' Neue Arbeitsmappe erstellen
   Set wbNeu = Workbooks.Add
   Set wsNeu = wbNeu.Worksheets("Tabelle1")

   ' Inhalte kopieren
   With ThisWorkbook.Worksheets(strBlatt)
       .Range("A1").Copy wsNeu.Range("A1")
   End With

   Set wbNeu = Nothing
   Set wsNeu = Nothing
End Sub

  4. Schließe den VBA-Editor und führe das Makro aus, indem du ALT + F8 drückst und das Makro auswählst.

Häufige Fehler und Lösungen

  • Fehler: "Laufzeitfehler 9: Index außerhalb des gültigen Bereichs."

    • Lösung: Überprüfe den Namen deines Arbeitsblatts. Stelle sicher, dass das Arbeitsblatt existiert und die Bezeichnung korrekt ist.

  • Fehler: Inhalte werden nicht kopiert.

    • Lösung: Stelle sicher, dass die Quellzelle (z.B. A1) nicht leer ist und das Makro in der richtigen Datei ausgeführt wird.

Alternative Methoden

Eine Alternative zur Verwendung von VBA ist die Nutzung von Excel-Funktionen. Du kannst die Daten manuell kopieren oder die Funktion =A1 in die Zielzelle eingeben, um den Wert zu übernehmen. Dies ist jedoch nur für statische Daten geeignet.

Praktische Beispiele

Hier ist ein einfaches Beispiel, wie du das Makro anpassen kannst, um mehrere Zellen zu kopieren:

Public Sub copyMultipleCells()
    Dim wbNeu As Workbook, wsNeu As Worksheet
    Dim strBlatt As String
    Application.ScreenUpdating = False

    strBlatt = Replace(ThisWorkbook.Name, ".xlsm", "")
    Set wbNeu = Workbooks.Add
    Set wsNeu = wbNeu.Worksheets("Tabelle1")

    With ThisWorkbook.Worksheets(strBlatt)
        .Range("A1:B10").Copy wsNeu.Range("A1")
    End With

    Set wbNeu = Nothing
    Set wsNeu = Nothing
End Sub

Tipps für Profis

  • Dateinamen dynamisch generieren: Du kannst den Namen der neuen Datei basierend auf dem aktuellen Datum und Uhrzeit erstellen. Dies hilft, Duplikate zu vermeiden.

    Dim dateiName As String
dateiName = "export_" & Format(Now, "YYYYMMDD_HHMMSS") & ".xlsx"
wbNeu.SaveAs Filename:=dateiName

  • Automatisierte Speicherung: Wenn du die neue Datei speichern möchtest, kannst du die SaveAs-Methode verwenden, um einen spezifischen Speicherort und Dateinamen festzulegen.

FAQ: Häufige Fragen

1. Wie kann ich das Makro anpassen, um mehr Zellen zu kopieren?
Du kannst die .Range-Methode im Makro anpassen, um mehrere Zellen oder Bereiche zu kopieren. Zum Beispiel: .Range("A1:B2").

2. Welche Excel-Version wird benötigt?
Das gezeigte VBA-Skript funktioniert in den meisten modernen Excel-Versionen, einschließlich Excel 2013, 2016, 2019 und Microsoft 365.

Beliebteste Forumthreads (12 Monate)

Jetzt das Excel-Portal bewerten: Deine Stimme zählt!
Anzeige
Anzeige
Entdecke mehr
Finde genau, was du suchst

Die erweiterte Suchfunktion hilft dir, gezielt die besten Antworten zu finden

Suche nach den besten Antworten
Unsere beliebtesten Threads

Entdecke unsere meistgeklickten Beiträge in der Google Suche

Top 100 Threads jetzt ansehen
Anzeige