Office Forum
www.Office-Loesung.de
Access :: Excel :: Outlook :: PowerPoint :: Word :: Office :: Sicherheitshinweis ---> für registrierte Mitglieder <-
Dateien von einer Arbeitsmappe in eine andere Schreiben
zurück: Benutzerdef. Ansicht mit Blattschutz weiter: KW und Jahr aus Datum ermitteln Unbeantwortete Beiträge anzeigen
Neues Thema eröffnen   Neue Antwort erstellen     Status: Antwort Facebook-Likes Diese Seite Freunden empfehlen
Zu Browser-Favoriten hinzufügen
Autor Nachricht
Unbeholfen86
Neuling


Verfasst am:
30. Apr 2014, 14:48
Rufname:

Dateien von einer Arbeitsmappe in eine andere Schreiben - Dateien von einer Arbeitsmappe in eine andere Schreiben

Nach oben
       Version: Office 2003

Hallo zusammen,

ich bin VBA-Neuling und habe folgendes Thema:
Ich muss Daten von einer geöffneten Datei (nennen wir sie Quelle.xls) in eine andere vorhandene Datei (Ziel.xls) schreiben.
Von Quelle.xls soll immer die Zelleninhalte aus A2, B5 und D38 in die Zieldatei geschrieben werden.
Die Zieldatei stellt eine Datenbank dar, die konstant wachsen wird. Deshalb sind die Werte aus A2, B5 und D38 in die letzte freie Zeile der Zieldatei zu schreiben (Hier dann in die Spalten A, B,C).

Ich hoffe Ihr könnt mir helfen und danke euch wirklich vielmals vorab.
Grüßli
joo mei, 's langt


Verfasst am:
30. Apr 2014, 15:12
Rufname:

AW: Dateien von einer Arbeitsmappe in eine andere Schreiben - AW: Dateien von einer Arbeitsmappe in eine andere Schreiben

Nach oben
       Version: Office 2003

Hi,

in ein Standardmodul der Datei Quelle
Pfad und die jeweiligen Tabellenblattnamen anpassen

Code:

Sub x()
Dim wkb As Workbook
Dim strPfad As String
Dim lngRow As Long
strPfad = "C:\DeinPfadZumZielordner" 'Pfad anpassen

On Error Resume Next

Set wkb = Workbooks("Ziel.xlsx")
 
If wkb Is Nothing Then
  On Error GoTo 0
  Set wkb = Workbooks.Open(strPfad & "\Ziel.xlsx")
  lngRow = wkb.Worksheets("Tabelle1").Cells(Rows.Count, 1).End(xlUp).Row + 1  'Tabellennamen Zieldatei anpassen
End If
 
 With ThisWorkbook.Worksheets("Tabelle1")  'Tabellennamen anpassen
 
   .Cells(2, 1).Copy wkb.Worksheets("Tabelle1").Cells(lngRow, 1)
   .Cells(5, 2).Copy wkb.Worksheets("Tabelle1").Cells(lngRow, 2)
   .Cells(38, 4).Copy wkb.Worksheets("Tabelle1").Cells(lngRow, 3)
 End With
 
wkb.Save
wkb.Close False
Set wkb = Nothing


End Sub


Grüßli

_________________
eine Weisheit aus der "Funkerei", die ich auch immer anwenden sollte ( frommer Wunsch ):"erst denken, dann drücken, dann sprechen!"
Neues Thema eröffnen   Neue Antwort erstellen Alle Zeiten sind
GMT + 1 Stunde

Diese Seite Freunden empfehlen

Seite 1 von 1
Gehe zu:  
Du kannst Beiträge in dieses Forum schreiben.
Du kannst auf Beiträge in diesem Forum antworten.
Du kannst deine Beiträge in diesem Forum nicht bearbeiten.
Du kannst deine Beiträge in diesem Forum nicht löschen.
Du kannst an Umfragen in diesem Forum nicht mitmachen.
Du kannst Dateien in diesem Forum nicht posten
Du kannst Dateien in diesem Forum herunterladen

Verwandte Themen
Forum / Themen   Antworten   Autor   Aufrufe   Letzter Beitrag 
Keine neuen Beiträge Excel Formeln: Sverweis aus 2 Dateien 2 Levant82 2090 03. Sep 2007, 10:08
levant82 Sverweis aus 2 Dateien
Keine neuen Beiträge Excel Formeln: In eine Zelle schreiben in 2 erscheint der Text. 2 Timo2008 1081 20. Aug 2007, 16:03
tom_r In eine Zelle schreiben in 2 erscheint der Text.
Keine neuen Beiträge Excel Formeln: letzte benutzte Dateien unter "Datei" anzeigen 4 Reichmann 1294 16. Jul 2007, 11:08
Gast letzte benutzte Dateien unter "Datei" anzeigen
Keine neuen Beiträge Excel Formeln: Spalteneinträge in eine Zelle schreiben 3 Grillwart 486 06. Jul 2007, 17:12
myfake Spalteneinträge in eine Zelle schreiben
Keine neuen Beiträge Excel Formeln: Werte innerhalb einer Arbeitsmappe automatisch übertragen 4 Manni55 570 13. Jun 2007, 20:19
Manni55 Werte innerhalb einer Arbeitsmappe automatisch übertragen
Keine neuen Beiträge Excel Formeln: Formel mit Summenzeichen selbst schreiben? 2 mrs f 1275 27. Mai 2007, 23:09
mrs f Formel mit Summenzeichen selbst schreiben?
Keine neuen Beiträge Excel Formeln: Verknüpfung CSV Dateien..."WERT" 3 Little Bird 568 03. Mai 2007, 14:34
watta Verknüpfung CSV Dateien..."WERT"
Keine neuen Beiträge Excel Formeln: Suche Formel um Liste zu schreiben 3 Excelneuling11 2208 06. Feb 2007, 08:27
gerhardg Suche Formel um Liste zu schreiben
Keine neuen Beiträge Excel Formeln: Zelleninhalt in andere Arbeitsmappe übernehmen (Füllfarbe) 0 kosch75 1495 18. Jan 2007, 23:43
kosch75 Zelleninhalt in andere Arbeitsmappe übernehmen (Füllfarbe)
Keine neuen Beiträge Excel Formeln: Dateien verknüpfen 2 Sandra.TG 978 09. Okt 2006, 11:51
Alto Dateien verknüpfen
Keine neuen Beiträge Excel Formeln: Wert auslesen + 1 addieren und in Zelle schreiben 3 DerEchteThomas 16438 25. Sep 2006, 11:51
DerEchteThomas Wert auslesen + 1 addieren und in Zelle schreiben
Keine neuen Beiträge Excel Formeln: Ergebnisse untereinander schreiben ... aber wie? (Mellimaus) 12 Gast 898 29. Apr 2006, 14:15
Gast Ergebnisse untereinander schreiben ... aber wie? (Mellimaus)
 

----> Diese Seite Freunden empfehlen <------ Impressum - Besuchen Sie auch: Microsoft Excel-Formeln