Clever-Excel-Forum

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

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

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 Confused

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?

(10.10.2020, 18:04)dev5fr schrieb: [ -> ]Wie bekommst du denn damit raus, wo die Personalnummer steht?

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

Gruß Uwe

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

dev5fr

Kuwer

dev5fr

Kuwer

dev5fr