Live-Forum - Die aktuellen Beiträge
Datum
Titel
20.10.2025 19:34:56
Eine Zelle in 3 Spalten teilen
20.10.2025 19:24:08
Excel Form befüllen
20.10.2025 19:03:51
wenn istleer funktioniert nicht wegen formel
20.10.2025 13:56:55
Wenn Funktion mit Xverweis oder ähnlich
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
1372to1376
1372to1376
Aktuelles Verzeichnis
Verzeichnis Übersicht
Verzeichnis Übersicht
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Per VBA Werte in andere Datei kopieren

Forumthread: Per VBA Werte in andere Datei kopieren

Per VBA Werte in andere Datei kopieren
30.07.2014 09:40:29
Bastian
Hallo zusammen,
ich bin neu hier und hoffe auf eure Hilfe.
Mit EXCEL kenne ich mich ein wenig aus, jedoch leider nur schlecht mit VBA.
Ich möchte gerne Daten, die teils per Dropdown erfasst werden, per Button in eine andere Arbeitsmappe wegschreiben.
Mein Code sieht wie folgt aus:

Private Sub Daten_Übertragen_Click()
Dim byWert As Byte
byWert = MsgBox("Sollen die eingegeben Daten übertragen werden?", 1, "Info")
If byWert = 2 Then
MsgBox "Übertragung wurde abgebrochen!"
ElseIf byWert = 1 Then
Application.ScreenUpdating = False
Workbooks.Open "M:\2014\Auswertungen\RFQ\RFQ Data.xlsx"
Worksheets("Data").Rows("2:2").Insert Shift:=xlDown
Range("c2").Copy Worksheets("Data").Range("A2")
Range("c3").Copy Worksheets("Data").Range("b2")
Range("c4").Copy Worksheets("Data").Range("c2")
Range("c5").Copy Worksheets("Data").Range("d2")
Range("c9").Copy Worksheets("Data").Range("e2")
Range("c10").Copy Worksheets("Data").Range("f2")
Range("c11").Copy Worksheets("Data").Range("g2")
Range("c12").Copy Worksheets("Data").Range("h2")
Range("c13").Copy Worksheets("Data").Range("i2")
Range("c14").Copy Worksheets("Data").Range("j2")
Range("c20").Copy Worksheets("Data").Range("k2")
Range("c21").Copy Worksheets("Data").Range("l2")
Range("c22").Copy Worksheets("Data").Range("m2")
Range("c23").Copy Worksheets("Data").Range("n2")
Range("c24").Copy Worksheets("Data").Range("o2")
Range("c25").Copy Worksheets("Data").Range("p2")
Range("c26").Copy Worksheets("Data").Range("q2")
Range("c16").Copy Worksheets("Data").Range("r2")
Range("c28").Copy Worksheets("Data").Range("s2")
Range("c31").Copy Worksheets("Data").Range("t2")
Workbooks("RFQ Data.xlsx").Close savechanges = yes
Application.ScreenUpdating = True
Dim strText As String
strText = " Daten erfolgreich übertragen!!"
MsgBox strText
End If
End Sub

Das habe ich mir soweit zusammen gegooelt allerdings habe ich jetzt noch ein Problem.
Die Daten werden mit Formaten, Bezügen, Namen usw. übertragen. Ich möchte aber nur die Werte übertragen. Kann ich hier einen "Special paste" einfügen oder was muss ich tun?
Vielen Dank vorab für eure Hilfe.
Gruß
Bastian

Anzeige

2
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Per VBA Werte in andere Datei kopieren
30.07.2014 09:56:20
Rudi
Hallo,
z.B. 
Range("c2").Copy
Worksheets("Data").Range("A2").PasteSpecial xlPasteValues
Range("c3").Copy
Worksheets("Data").Range("B2").PasteSpecial xlPasteValues
Gruß
Rudi

AW: Per VBA Werte in andere Datei kopieren
30.07.2014 11:23:14
Bastian
Hallo Rudi,
vielen Dank! So habe ich mir das vorgestellt!
Hätte vielleicht etwas komplizierter sein können, dann würde ich jetzt nicht ganz so doof dastehen :-)
Hast du vielleicht einen Tipp wie ich mir etwas mehr VBA Kenntnisse aneignen kann.
Ich weiß z.B. nichtmal was die Punkte bedeuten, werden hierdurch nur die Kommandos getrennt?
Gruß
Bastian
Anzeige
;

Forumthreads zu verwandten Themen

Daten aus einer anderen xls Datei importieren
Michi

Hallo,
Ich suche eine VBA lösung (am besten als Macro) für folgende Aufgabe:
Es soll ein ein Report erstellt werden der wie folgt ausschauen soll (Daten (PO nummer + einzelne Summe)n kommen aus einer externen Datei):
Woche1
Datainut PO1234 500 Euro
Lager PM PO23456 800 E...
08.11.2008 13:02:47
Thread-ID: 1022899
2 Beiträge
Worksheet in andere Datei kopieren
Werner

mein VBA-Level: befriedigend
Hallo Freunde,
ich versuche eine Tabelle (Worksheet) von einer in eine andere Excel-Datei zu kopieren, und zwar so:
Workbooks("Datei1.xls").Worksheets("Zukopieren").Copy After:=Workbooks("Datei1.xls").Worksheets
(Sheets.Count)
Leider klappt das n...
03.02.2009 08:15:00
Thread-ID: 1046501
7 Beiträge
Anzeige
Makro in eine/mehrere andere Dateien transportiere
Britta

Hallo zusammen,
ich habe nun mit dem von Hary erfundenen Makro eine gute Lösung für meine Daten gefunden. Leider weiß ich nicht wie ich das Makro in eine oder mehrere weitere Dateien übertragen kann. Ich habe es einfach naiv kopiert, dann aber festgestellt das, dass nur geht wenn ich die Qu...
11.02.2009 16:52:00
Thread-ID: 1049686
9 Beiträge
Anzeige
Programm und Daten in andere Datei
Steffen

Hi Excelkenner
Habe da mal eine simple Frage:
Wenn ich ein Programm in VBA entwerfe aber die Daten auf eine separate Datei speicher will ist dies eine Variante. Wenn ich aber das Programm benutzen will, dass die Datendatei nicht immer gleich heisst ist wiederum etwas anders.
Wie mac...
10.03.2009 19:00:43
Thread-ID: 1058828
2 Beiträge
makro in andere Datei aufrufen
Alex

Hi
Ich rufe mit dem Code das makro2 in einer anderen Datei auf.
Wie kann ich es erreichen, daß wenn das Makro "makro2" nicht existiert eine Meldung kommt und die Prozedur abgebrochen wird und wenn das Makro vorhanden ist, die erste Datei geschlossen wird, aber die aufgerufene Datei wei...
21.03.2009 21:44:25
Thread-ID: 1062538
14 Beiträge
Anzeige
Daten in andere Datei üebrtragen-Netzlaufwerk
Andreas

Hallo zusammen,
ich habe folgendes Problem. Ich muss eine Datei zur Verfügung stellen, welche nur eine bestimmte Anzahl von Daten benötigt. Die Originaldatei hat also zuviel Infos (zuviel Spalten). Daß man Spalten innerhalb einer Arbeitsmappe übertragen kann ist mir bewußt. Kann ich jedoch...
20.05.2009 11:58:36
Thread-ID: 1076320
8 Beiträge
Daten aus einer anderen Datei
Werner

Hallo zusammen,
ich möchte Daten aus einer anderen Datei herholen. Das klappt ganz gut mit der Formel
='C:\Dokumente und Einstellungen\Werner.ZAPF-PC1.002\Eigene Dateien\[Mitarbeiterablage.xls]Mitarbeiterliste'!$A$8
Diese Formel Schreibe ich z.B. in die Zelle H2 der Aktuellen Datei...
16.06.2009 23:22:38
Thread-ID: 1082083
2 Beiträge
Anzeige
per makro in andere excelmappe kopieren
meixner

Hallo zusammen,
ich möchte Dateien aus einer Mappe in eine andere Excel - Mappe kopieren. Der Code funktioniert aber nicht. Kann mir jemand einen Tip geben, woran es liegt?
Viele Grüße und Danke!
Dani Sub fonds() Dim allinoneswap As String allinoneswap = "H:\CCXLS\C\AllIn" Applicat...
12.08.2009 11:55:23
Thread-ID: 1095282
11 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
VBA-Projekt innerhalb Datei kopieren
Gregor

Hallo Excel-Profis
Folgendes Problem, dass ich trotz intensiver Recherche nicht gelöst bekomme:
Möchte das VBA-Projekt der Arbeitsmappe("2") mit dem VBA-Projekt der Arbeitsmappe("1") überschreiben.
(beide Blätter sind in einer Datei).
Kann mir jemand helfen?
Vielen Dank!
...
03.12.2009 13:09:19
Thread-ID: 1121578
7 Beiträge
Daten in eine andere Excel Datei speichern
Dirk

Hallo zusammen,
habe eine Excel-Datei (eine Rechnung) wo ich Daten eingebe, einige Daten möchte ich gerne in eine zweite Datei speichern (Offene Posten Liste) z.B. Datum, Rechnungsnummer. Ich denke dieses geht per Makro.
Also die Daten in Rechnung geben, Button klicken, zweite Datei öff...
16.12.2009 15:41:49
Thread-ID: 1124389
3 Beiträge
VBA Probelm bei Datei einlesen und kopieren
Roland

Moin,
ich ahbe mal wieder ein VBA Problem.
Ich möchte eine Datei öffnen, die Daten daraus in eine andere Datei(Tabellenblatt) kopieren.
Jetzt meldet Excel mir:
Laufzeitfelher '1004': Für diese Aktion müssen alle verbundene Zellen dieselbe Grö0ße haben.
War eigentlich der Mei...
02.02.2010 10:57:34
Thread-ID: 1134995
2 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

Daten aus einer anderen Datei kopieren mit VBA

Schritt-für-Schritt-Anleitung

  1. Öffne Excel und erstelle ein neues Makro oder öffne eine bestehende Arbeitsmappe.
  2. Füge einen Button hinzu, um das Makro auszuführen.
  3. Öffne den VBA-Editor (Alt + F11).
  4. Füge den folgenden Code in das entsprechende Modul ein:
Private Sub Daten_Übertragen_Click()
    Dim byWert As Byte
    byWert = MsgBox("Sollen die eingegeben Daten übertragen werden?", 1, "Info")
    If byWert = 2 Then
        MsgBox "Übertragung wurde abgebrochen!"
    ElseIf byWert = 1 Then
        Application.ScreenUpdating = False
        Workbooks.Open "M:\2014\Auswertungen\RFQ\RFQ Data.xlsx"
        Worksheets("Data").Rows("2:2").Insert Shift:=xlDown

        ' Werte kopieren und nur die Werte einfügen
        Range("c2").Copy
        Worksheets("Data").Range("A2").PasteSpecial xlPasteValues
        Range("c3").Copy
        Worksheets("Data").Range("B2").PasteSpecial xlPasteValues
        ' Füge hier weitere Kopieranweisungen hinzu, wie oben gezeigt

        Workbooks("RFQ Data.xlsx").Close SaveChanges:=True
        Application.ScreenUpdating = True
        MsgBox "Daten erfolgreich übertragen!!"
    End If
End Sub
  1. Ersetze "M:\2014\Auswertungen\RFQ\RFQ Data.xlsx" durch den Pfad deiner Ziel-Datei.
  2. Passe die Range-Anweisungen an, um die gewünschten Zellen zu kopieren.

Häufige Fehler und Lösungen

  • Problem: Die Daten werden mit Formaten und Bezügen kopiert.

    • Lösung: Verwende PasteSpecial xlPasteValues, um nur die Werte zu übertragen, wie im obigen Beispiel gezeigt.

  • Problem: Der Pfad zur Datei ist falsch.

    • Lösung: Überprüfe den Pfad und stelle sicher, dass die Datei existiert.

Alternative Methoden

  • Du kannst auch die Methode Range.Value verwenden, um Werte direkt zu übertragen, ohne die Zwischenablage zu nutzen:
Worksheets("Data").Range("A2").Value = Range("c2").Value
  • Eine weitere Option ist, das Copy und PasteSpecial durch eine Schleife zu ersetzen, um mehrere Werte effizient zu kopieren.

Praktische Beispiele

Hier sind einige Beispiele, wie du daten in eine andere arbeitsmappe per vba makro kopieren kannst:

' Beispiel für mehrere Zellen
Dim i As Integer
For i = 2 To 10
    Worksheets("Data").Cells(i, 1).Value = Range("c" & i).Value
Next i

Mit dieser Methode kannst du excel vba daten aus anderer datei kopieren und einfügen, ohne jeden einzelnen Code manuell zu schreiben.

Tipps für Profis

  • Lerne die Nutzung von With-Blöcken, um den Code lesbarer und effizienter zu gestalten.
With Worksheets("Data")
    .Range("A2").Value = Range("c2").Value
    .Range("B2").Value = Range("c3").Value
End With
  • Nutze Option Explicit am Anfang deines Moduls, um sicherzustellen, dass alle Variablen deklariert sind.

FAQ: Häufige Fragen

1. Wie kann ich sicherstellen, dass das Makro nur die Werte überträgt?
Verwende PasteSpecial xlPasteValues, um sicherzustellen, dass nur die Werte kopiert werden.

2. Was kann ich tun, wenn die Datei nicht geöffnet werden kann?
Überprüfe den Dateipfad und stelle sicher, dass die Datei nicht von einer anderen Anwendung gesperrt ist.

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