wert suchen und in andere tabelle kopieren?

[westi_0]

Hallo zusammen,

stehe gerade total auf dem Schlauch.

Vielleicht kann mir einer von Euch etwas auf die Sprünge helfen.

Haben zwei Excel-Dateien:
In der RO.xls möchte ich in Zelle J (Kurs) den Tageskurs aus hist.xlsx Zelle P (RON) eingetragen bekommen. Zu berücksichtigen ist, das wenn Rechnungsdatum auf ein Wochenende fällt, der Kurs dann vom Freitag eingetragen wird. 
Das Problem was ich gerade habe... ich weiß nicht wo/wie ich anfangen soll.

Über hilfreiche Tipps oder Anregungen wäre sehr dankbar. 

Mfg Westi_0

[WillWissen]

Hi,

wär das eine Möglichkeit?

Arbeitsblatt mit dem Namen 'Tabelle'
	A	B	C	D	E	F	G	H	I	J
1	Rechnungsdatum	Rechnung	Kundenkurzname	Strasse	PLZ	Ort	Nettowert EUR	Bruttowert EUR	Land	Kurs
2	Fr 01.03.2019	156186	1Muster	M1	12345	Musterhausen	233,47	277,83	RO	4,7431
3	Sa 02.03.2019	156187	1Muster	M1	12345	Musterhausen	145,14	172,72	RO	4,7431
4	Mo 04.03.2019	156365	2Muster	M2	23456	Musterhausen	745,97	887,70	RO	4,7412
5	Di 05.03.2019	156514	3Muster	M3	34567	Musterhausen	216,40	257,52	RO	4,7489
6	Mi 06.03.2019	156687	1Muster	M1	12345	Musterhausen	82,44	98,10	RO	4,7463
7	Do 07.03.2019	156775	4Muster	M4	45678	Musterhausen	614,55	731,31	RO	4,7415
8	Fr 08.03.2019	157560	5Muster	M5	56789	Musterhausen	211,30	251,45	RO	4,7448

Zelle	Formel
J2	=WENNFEHLER(SVERWEIS(A2;'[hist.xlsx]eurofxref-hist'!$A$1:$P$5200;16;0);J1)

Verwendete Systemkomponenten: [Windows (32-bit) NT 10.00] MS Excel 2016

Diese Tabelle wurde mit Tab2Html (v2.6.0) erstellt. ©Gerd alias Bamberg

[westi_0]

Hallo Günter,

vielen   lichen Dank.  

Eine einfache, aber geniale Lösung   :28:

Wie es so ist... habe ich auch gleich eine neue Frage:
Wenn ich die RO.xls regelmäßig aus ein Programm ziehen muss, besteht da eine Möglichkeit, die Formel "Automatisch" in Zelle J einzufügen? 

Mfg
Westi_0

[WillWissen]

Hi,

Wenn ich die RO.xls regelmäßig aus ein Programm ziehen muss,

was genau meinst du damit?

[westi_0]

Sorry habe mich schlecht ausgedrückt. 

Also, die RO.xls in der ich die Kurse in Zelle J über Deine Formel einfüge. Wird regelmäßig aus einer WaWi erstellt. 
Um mir "die Arbeit" noch etwas leichter zu machen. Wollte ich gerne wissen, ob man Deine Formel irgendwie "Automatisch" in Zelle J eintragen lassen kann?

Mfg
Westi_0

[WillWissen]

Hi,

ich werde hier wohl passen müssen - habe absolut keine Ahnung über WaWi-Programme und wie diese in XL integriert werden. Aber ich würde die Formel mit Copy & Paste in die neue RO.xls eintragen.

[schauan]

Moin,

die Formel "Automatisch" in Zelle J einzufügen?

etwas automatisch einzutragen kann in Deinem Fall z.B. bedeuten, dass man ein Makro verwendet welches z.B. bei Änderung von Zelleinträgen die Formel setzt.
Wenn es möglich ist, für Deine Daten eine "intelligente Tabelle / Liste" zu verwenden und neue Daten z.B. angefügt werden, würde die Formel auch automatisch in die angehängten Zellen übertragen.
Falls Du die Daten mit PowerQuery ziehst, kannst Du auch eine "benutzerdefinierte Spalte" mit Formeln nutzen.

[westi_0]

Moin,

@ Günter

Hätte wohl nicht sagen soll 

Wird regelmäßig aus einer WaWi erstellt.

die RO.xls wird exportiert. In unterschiedlichen Abständen... mal Wöchentlich, mal Monatlich. 


@ André

Die Frage zu PowerQuery hat sich glaube ich gerade erledigt. Aber du hast Makro erwähnt, gibst es da eine Möglichkeit. Hatte mal was gelesen, das man Makros in "Personal.xlsb" speichern kann! Somit ist das Makro doch immer verfügbar.
Also dachte ich mir gerade:
Wenn ich eine neu RO.xls exportiere, einfach dann das Makro starte und die Formel von Günter automatisch eingetragen wird. 
Das könnte doch klappen oder ?

Vielen Dank an euch beiden.

Mfg
Westi_0

[00202]

Hallo, :19:

probiere es mal so (in ein Modul deiner "Personal.xlsb"): :21:

Code:

Option Explicit
Public Sub Main()
    Dim lngLastRow As Long
    On Error GoTo Fin
    With ActiveSheet
        lngLastRow = IIf(IsEmpty(.Cells(.Rows.Count, 1)), .Cells(.Rows.Count, 1).End(xlUp).Row, .Rows.Count)
            .Range(.Cells(2, 10), .Cells(lngLastRow, 10)).Formula = _
                "=IFERROR(VLOOKUP(A2,'[hist.xlsx]eurofxref-hist'!$A$1:$P$5200,16,0),J1)"
            ' Formel in Wert umwandeln
            '.Range(.Cells(2, 10), .Cells(lngLastRow, 10)).Formula = _
                .Range(.Cells(2, 10), .Cells(lngLastRow, 10)).Value
    End With
Fin:
    If Err.Number <> 0 Then MsgBox "Fehler: " & _
        Err.Number & " " & Err.Description
End Sub

Wenn du die auskommentierte Codezeile noch aktivierst, wird die Formel durch ihren Wert ersetzt. :21:

[westi_0]

Hallo Case,

vielen Dank für dein Makro. 
Funktioniert SUPER  :18:

Bin begeistert wie schnell man hier Erfahrene Hilfe bekommt. Ein riesen Lob/Dank an euch allen.  


Mfg
Westi_0

Ps: Darf ich das Thema noch ein paar Tage offen lassen? Falls doch noch Fragen kommen.