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
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 |
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
Hi,
Zitat:Wenn ich die RO.xls regelmäßig aus ein Programm ziehen muss,
was genau meinst du damit?
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
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.
Moin,
Zitat: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.
Moin,
@ Günter
Hätte wohl nicht sagen soll
Zitat: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
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:
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.