Daten aus anderer Datei abgleichen
11.01.2018 11:55:04
René
und zwar geht es um folgendes:
MeineDatei = Dort steht die Seriennummer in E22:E9999 der jeweiligen Maschinen
in meiner Datei soll dann eben in G22:G9999 zur jeweiligen Maschine ein Nein eingetragen werden wenn diese in Datei_zum_ablgiech im Tabellenblatt Delivered 2017, Deliviered 2018 usw. später mal gefunden werden dort stehen die Seriennummern in der Spalte F2:F9999 welche ja mit meiner E verglichen werden sollte ob da die Seriennummer auch vorhanden ist.
Anbei ein link zu den zwei demo Dateien. Leider zu groß für einen upload hier, habe sie auf meinen Webserver gelegt:
http://download.eg-multigaming.de/Test.zip
Dieser Code funktioniert nicht so wie es sollte :(
Sub JaNein()
Dim TB, Pfad As String, Datei As String, Jahr As Integer
Dim Blatt As String, Ext As String, RNG As Range
'Anpassen
Set TB = ThisWorkbook.Sheets("Tabelle1")
Pfad = "X:\Temp\Test\" ' mit \ am Ende
Datei = "Datei2.xlsx"
Jahr = InputBox("welches Jahr", "Delivered im Jahr", Year(Date))
Blatt = "Delivered " & Jahr
Set RNG = TB.Range("G22:G999")
'Anpassen Ende
On Error Resume Next ' wenn Blatt fehlt
'Formel setzen
RNG.FormulaR1C1 = _
"=IF(RC[-2]"""",IF(ISNUMBER(MATCH(RC[-2],'" & Pfad & _
"[" & Datei & "]" & Blatt & "'!C6,0)),""Nein"",""Ja""),"""")"
'Formel in Werte
RNG.Value = RNG.Value
End Sub
Grüße René
Anzeige