Live-Forum - Die aktuellen Beiträge
Anzeige
Archiv - Navigation
1528to1532
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
Inhaltsverzeichnis

Kopieren von Werten aus einer anderen Datei

Kopieren von Werten aus einer anderen Datei
21.12.2016 15:51:25
Werten
Meine VBA Kenntnisse sind leider bescheiden, ich schaffe es nicht Werte aus einer Datei in eine andere übertragen:
1. Eine Excel Datei "Entwicklung" ist geöffnet. Es ist schon ein VBA Code drin der über eine Schaltfläche aktiviert wird und funktioniert.
was ich nicht hinkriege und noch hinzufügen möchte:
2. Per VBA soll eine andere Datei geöffnet werden, die z. b. "Kempten" heißt
3. In dieser soll jeweils in Blatt 3 - 17 der Wert der Zelle "I248" kopiert werden
4. und im Anschluss in der Datei "Entwicklung" auch jeweils in Blatt 3 - 17 in die Zelle "I38" eingefügt werden.

3
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Kopieren von Werten aus einer anderen Datei
21.12.2016 16:56:13
Werten
Hallo!
Sub a()
Dim WbZ As Workbook: Set WbZ = ThisWorkbook 'Ziel-Mappe = DIESE Mappe
Dim WbQ As Workbook, Pfad$, Datei$, i&
Pfad = "C\DeinOrdner\DeinUnterordner\" 'schließenden "\" beachten
Datei = "Kempten.xlsx"
Application.ScreenUpdating = False
Set WbQ = Workbooks.Open(Pfad & Datei)
For i = 3 To 17
WbZ.Worksheets(i).Range("I38") = WbQ.Worksheets(i).Range("I248")
Next i
WbQ.Close False 'Optional Quell-Mappe ohne Speichern schließen
End Sub
LG
Michael
AW: Kopieren von Werten aus einer anderen Datei
22.12.2016 10:28:04
Werten
Hallo Michael, vielen Dank. Klappt perfekt.
Freut mich, gerne! LG und frohes Fest, owT
22.12.2016 11:17:45
Michael
Anzeige

310 Forumthreads zu ähnlichen Themen

Anzeige
Anzeige
Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige