MS-Office-Forum

Zurück   MS-Office-Forum > Microsoft Office > Microsoft Excel
Registrieren Forum Hilfe Alle Foren als gelesen markieren

Banner und Co.

Antworten
Ads
Themen-Optionen Ansicht
Alt 11.10.2018, 13:50   #1
Badmonstar
Neuer Benutzer
Neuer Benutzer
Standard Excel 2013 - Kopieren von Daten aus einem anderen geöffneten Excel File

Hallo zusammen,

ich möchte gerne die Erstellung eines Excel-Protokolls automatisieren.

Wenn wir Bauteile auf einem Koordinatenmessgerät vermessen öffnet unsere Maschine automatisch eine Excel-Datei in der die Messwerte (es werden nicht alle Werte benötigt) angegeben sind.

Ich möchte nun aus dieser Excel-Tabelle Werte in eine Vorlage (anderes Excel File) kopieren.

Als Beispiel soll er nach "MP1" in der Spalte A suchen und den Messwert aus Spalte B kopieren und ins andere Dokument in Spalte I kopieren, wo in der Spalte C eine 1 steht. Den Messwert von "MP2" soll er dann entsprechend dahin schreiben, wo in der Spalte C eine 2 steht und so weiter bis er alle Messpunkte durch hat.
Die Dateinamen der Excel Dateien sollten dafür nicht benötigt werden. Da diese sich bei jeder neuen Messung ändern. Beide Dateien sind bereits geöffnet.

Dies können gut und gerne 60 verschiedene Messwerte sein, die nicht aufeinanderfolgend in der Ausgangstabelle stehen müssen.

Dies ist mein Quellcode der zunächst nur Werte von der Quelldatei in die Zieldatei kopieren soll (1. Step):

Sub Werte_kopieren()
Dim iRow As Integer
Dim xRow As Integer
Dim dValue As Double

iRow = 14
xRow = 7
Do Until Worksheets("Report").IsEmpty(Cells(iRow, 1))
dValue = Worksheets("Report").Cells(iRow, 2).Value 'Wert aus Quelltabelle in Variable speichern
Worksheets("Messwerte").Cells(xRow, 8).Value = dValue 'Wert aus Variable in Zieltabelle kopieren (anderes Excel File)

xRow = xRow + 1
iRow = iRow + 1
Loop
End Sub


Ich würde mich freuen, wenn mir dabei jemand Hilfestellung geben könnte.

Grüße
Markus
Badmonstar ist offline  
verlinken auf Del.icio.us Diese Seite zu Mister Wong hinzufügen
Antworten Auf Beitrag antworten
Alt 11.10.2018, 14:12   #2
Hasso
MOF Meister
MOF Meister
Standard

Hallo Badmonstar,

beim Ziel müsstest du noch den Namen der Mappe angeben:
Code:

Workbooks("Zielmappe").Worksheets("Messwerte").Cells(xRow, 8).Value = dValue 'Wert aus Variable in Zieltabelle kopieren (anderes Excel File)

__________________

Gruß Hasso

Programmers don't die, they just GOSUB without RETURN

System Windows 7 Enterprise 64, Office 2013
Wenn dir mein Beitrag gefallen hat, kannst du ihn bewerten (mit dem Symbol links unten)
Hasso ist offline  
verlinken auf Del.icio.us Diese Seite zu Mister Wong hinzufügen
Antworten Auf Beitrag antworten
Ads
Antworten


Aktive Benutzer in diesem Thema: 1 (Registrierte Benutzer: 0, Besucher: 1)
 
Themen-Optionen
Ansicht

Forumregeln
Es ist Ihnen nicht erlaubt, neue Themen zu verfassen.
Es ist Ihnen nicht erlaubt, auf Beiträge zu antworten.
Es ist Ihnen nicht erlaubt, Anhänge anzufügen.
Es ist Ihnen nicht erlaubt, Ihre Beiträge zu bearbeiten.

vB Code ist An.
Smileys sind An.
[IMG] Code ist An.
HTML-Code ist An.
Gehe zu


Alle Zeitangaben in WEZ +1. Es ist jetzt 14:50 Uhr.


Partner und Co.
Access-Paradies -Alles rund um die Datenbank Microsoft Access -Code -Programme-Tools -Tipps   Kostenlose Tipps & Tricks, Downloads und Programme   www.kulpa-online.com - Tipps - Tricks - Tutorials - Meinungen - Downloads uvm...   vb@rchiv · Willkommen in der Welt der VB Programmierung   Access-Garhammer - Hier finden Sie jede Menge Beispiel-Datenbanken zu Access und mehr ...   mcseboard.de   Die Top Seite für Excel-VBA-Makros uvm.

Powered by: vBulletin Version 3.6.2 (Deutsch)
Copyright ©2000 - 2018, Jelsoft Enterprises Ltd.

Copyright ©2000-2018 MS-Office-Forum. Alle Rechte vorbehalten.
Copyright ©Design: Manuela Kulpa ©Rechte: Günter Kramer
Eine Verwendung der Inhalte in anderen Publikationen, auch auszugsweise,
ist ohne ausdrückliche Zustimmung der Autoren nicht gestattet.