Dateiname als Variable verwenden (VBA)

[dev5fr]

Hi,

in der Spalte A sollen die Personalnummern der MA eingetragen werden. Die restlichen Splaten dieser Zeile sollen sich automatisch aus einer externen Datei befüllen. Der Dateiname der externen Datei lautet "Personalnummer".xlsx
Da bei der Abfrage der externen Datei immer wieder der Dateiname auftaucht, soll dieser als Variable verwendet werden.

Ich habe foldenden Code, welcher auch das richtige Ergebnis in eine Messagebox liefert:

   Sub dateiname()
     Dim name As String
     name = Range("a5") & ".xlsx"
     MsgBox name
   End Sub


Was ich nicht schaffe ist, die Variable "name" in der Formel an der Stelle 70239220.xlsx zu verwenden. Wie fügt man das ein?
   Beispiel:
   =SVERWEIS(A5;'U:\[70239220.xlsx]Urlaubsplaner'!$A$5:$OX$5;3;FALSCH)

Desweiteren habe ich in dem Code die Zelle A5 absolut angegeben. In Zeile 6 wäre es aber A6 und Zeile 7 natürlich A7 usw.
Wie kann man das lösen?

Ich bin absoluter Anfänger, meine Fähigkeiten sind was VBA anbelangt gleich Null.

Vielen Dank für eure Unterstützung.

VG dev5fr

[Kuwer]

Hallo,

vielleicht so:

Sub Test()
  With ActiveCell
    .Formula = "=VLOOKUP(" & Cells(.Row, 1).Address(0, 0) & ",'U:\[" & Cells(.Row, 1).Value & ".xlsx]Urlaubsplaner'!$A$5:$C$5,3,FALSE)"
  End With
End Sub

Gruß Uwe

[dev5fr]

Ich habe eine Function daraus gemacht.
Wenn ich in der Formel dateiname("A$5") verwende, müsste es doch funktionieren, oder?
Aber wie das in einer Formel verwendet wird, weiß ich nach wie vor nicht  
  

Code:

Function dateiname(i As String) As String
     dateiname = Range(i) & ".xlsx"
   End Function

   Sub name()
     MsgBox dateiname("A5")
   End Sub

VG dev5fr

---

Oh Uwe,
vielen Dank.
Ich probiere es direkt aus.

VG dev5fr

---

Ne, bekomm ich nicht hin. Ich verstehe auch gar nicht was dein Code macht.

Wie bekommst du denn damit raus, wo die Personalnummer steht?

[Kuwer]

Wie bekommst du denn damit raus, wo die Personalnummer steht?

Weiß ich nicht. Ich habe da nicht so den Durchblick bei Deinen Beschreibungen.

Gruß Uwe

[dev5fr]

Hi, ich habe aufgegeben bzw. meine Anforderungen runtergeschraubt. Danke bis hier hin. VG dev5fr