Hallo zusammen,

ich habe mal wieder ein kleines Problem. Formeln habe ich es in der Vergangenheit schon einmal gelöst, da die Enddatei aber sehr umfangreich ist hängt sich alles auf, also ersetze ich meine Formeln nun nach und nach durch Makros.

Ich habe die folgenden Ausgangslage:

In der Datei "Neuer Versuch" stehen im Tabellenblatt "Stempelkarten" in Spalte A Werte, die ich mir mithilfe eines Makros importiert habe.

Nun möchte ich mir mithilfe eines Makros Daten aus der (geschlossenen) Datei "new_all_fil_inkl. Tour-Fahrer.xlms", Tabellenblatt "Übersicht"  aus dem Verzeichnis "K:\EDV\Filstamm" holen.

Suchwert sind die Daten in Spalte A. Das folgende soll wiedergegeben werden:

Neuer Versuch B5 = new_all_fil_inkl. Tour-Fahrer G2

Neuer Versuch C5 = new_all_fil_inkl. Tour-Fahrer AH2

Neuer Versuch D5 = new_all_fil_inkl. Tour-Fahrer D2

Neuer Versuch E5 = new_all_fil_inkl. Tour-Fahrer AE2

Wobei die "5" und die "2" hier nur Platzhalter sind, es soll Spalte A durchlaufen werden und für alle Zellen, die einen Wert enthalten die entsprechenden Werte wiedergegeben werden. Ich möchte in den Zellen am Ende keine Formeln, sondern Werte stehen haben. Das ganze soll durch einen Klick auf einen Button ausgelöst werden.

Bisher habe ich mir das hier zusammengebastelt, wovon ich weiß, dass es nicht richtig ist, aber ich wollte wenigstens etwas anbieten ;-)

Sub sverweis()
'
' sverweis Makro
'

Dim LetzteZeile As Long
Dim i As Long
Dim ZeileA As Long



For i = 2 To LetzteZeile

    Application.CutCopyMode = False
    Application.CutCopyMode = False
    ActiveCell.FormulaR1C1 = _
        "=VLOOKUP(RC[-1],'[new_all_fil_inkl. Tour-Fahrer.xlsm]Übersicht'!R1:R1048576,3,FALSE)"

Next i


Range("B5").Formula = Range("B5").Value





End Sub

Vielen Dank schon einmal für eure Antworten.