run-time error 1004
17.03.2016 10:20:22
Ant
Ich möchte mit VBA eine variable Formel aufbauen, mit welcher ich aus einer anderen Datei aktuelle Löhne und Gehälter einfügen kann. Diese andere Referenz-Datei ändert jedoch von Monat zu Monat den Namen und den Speicherpfad.
Ich bekomme die Formel auch einwandfrei aufgebaut, doch sie funktioniert nicht.
Mit dem Apostroph bei = "'=VLOOKUP bekomme ich die Formel einwandfrei aufgebaut, doch es werden keine Werte übernommen:
Range("I6") = "'=VLOOKUP(A5;" & "'" & path & year & "[" & name & "]Gehaltstabelle'!$C$250:$AL$465;35)"
Ohne Apostroph bei = "=VLOOKUP bekomme ich immer den Laufzeitfehler:
Range("I6") = "=VLOOKUP(A5;" & "'" & path & year & "[" & name & "]Gehaltstabelle'!$C$250:$AL$465;35)"
Hat vielleicht jemand eine Lösung für mein Problem?
MfG aus Luxemburg
Ant
Anbei der komplette Code:
Sub Wechsel_Monat_und_Jahr_Gewerbliche()
Sheets("Referenz Löhne und Gehälter").Select
Dim path As String
path = Range("Header!D17")
'MsgBox path
Dim year As String
year = Range("Header!L17")
'MsgBox year
Dim name As String
name = Range("Header!Q17")
'MsgBox name
Range("I6") = "'=VLOOKUP(A5;" & "'" & path & year & "[" & name & "]Gehaltstabelle'!$ _
C$250:$AL$465;35)"
Range("I6").Select
Selection.AutoFill Destination:=Range("I6:I489"), Type:=xlFillDefault
Range("A1").Select
End Sub
Anzeige