Thema Datum  Von Nutzer Rating
Antwort
Rot Sverweis auf externe Datei
30.06.2021 08:34:47 Grischa Fritz
NotSolved
30.06.2021 09:03:06 Gast42880
NotSolved
30.06.2021 09:04:41 Gast67663
NotSolved

Ansicht des Beitrags:
Von:
Grischa Fritz
Datum:
30.06.2021 08:34:47
Views:
82
Rating: Antwort:
  Ja
Thema:
Sverweis auf externe Datei

Guten Morgen,

ich habe ein kleines Problem mit dem ich nicht weiterkomme.
Ich muss per Makro als sverweis daten aus einer anderen datei holen. 

Da die Datei variabel im Dateinamen ist habe ich Abfrage mit eingebaut. Dies klappt auch soweit.

Nur leider der verweis nicht. Hier ist der Code:

Sub Sverweis()
    Dim strZiel As String
    Dim strDatu As String
    Dim i As Integer
    Dim letzte_Zeile As Integer
    Dim strVerzeichn As String
    Dim varSpArr As Variant
    Dim intAnz As Integer
    strZiel = "C:Tets-Gesamtübersicht_Test Düsseldorf_"
    strDatu = InputBox(prompt:="Bitte ein Datum im Format: JJJJ.MM.TT eingeben.", Title:="Bitte Datum eingeben")
    strVerzeichn = strZiel & strDatu & ".xlsx"
    varSpArr = Array(2, 3, 25, 26, 27, 28, 31, 50, 51, 52, 53, 11, 12)
    Workbooks.Open strVerzeichn
    For i = 2 To letzte_Zeile
        For intAnz = 0 To 13
            Range("B" & i).Value = Application.WorksheetFunction.VLookup(Range("A" & i), (Worksheets("RVG-Verfahren").Range("A:BA")), varSpArr(intAnz), False)
            Range("C" & i).Value = Application.WorksheetFunction.VLookup(Range("A" & i), (Worksheets("RVG-Verfahren").Range("A:AA")), varSpArr(intAnz), False)
        Next intAnz
    Next i
    End Sub

 

Das Makro wird in Datei2 ausgeführt und soll dann die daten aus Tets-Gesamtübersicht_Test Düsseldorf holen die im blatt RVG-Verfahren stehen und in datei2 in dem blatt schrift. Verf. anhand der daten die in der spalte a stehen. Wenn ich also in datei 2 abcde eingebe und das makro ausführe solllen die nachfolgenden spalten mit den werten aus Tets-Gesamtübersicht_Test Düsseldorf gefüllt werden.

Habs zwar probiert aber kriege s nicht hin.

Office 2016

Hoffe ich habe es verständlich geschrieben.

Viele Grüße und Danke schonmal.

G.Fritz

 


Ihre Antwort
  • Bitte beschreiben Sie Ihr Problem möglichst ausführlich. (Wichtige Info z.B.: Office Version, Betriebssystem, Wo genau kommen Sie nicht weiter)
  • Bitte helfen Sie ebenfalls wenn Ihnen geholfen werden konnte und markieren Sie Ihre Anfrage als erledigt (Klick auf Häckchen)
  • Bei Crossposting, entsprechende Links auf andere Forenbeiträge beifügen / nachtragen
  • Codeschnipsel am besten über den Code-Button im Text-Editor einfügen
  • Die Angabe der Emailadresse ist freiwillig und wird nur verwendet, um Sie bei Antworten auf Ihren Beitrag zu benachrichtigen
Thema: Name: Email:

 
 

  • Bitte beschreiben Sie Ihr Problem möglichst ausführlich. (Wichtige Info z.B.: Office Version, Betriebssystem, Wo genau kommen Sie nicht weiter)
  • Bitte helfen Sie ebenfalls wenn Ihnen geholfen werden konnte und markieren Sie Ihre Anfrage als erledigt (Klick auf Häckchen)
  • Bei Crossposting, entsprechende Links auf andere Forenbeiträge beifügen / nachtragen
  • Codeschnipsel am besten über den Code-Button im Text-Editor einfügen
  • Die Angabe der Emailadresse ist freiwillig und wird nur verwendet, um Sie bei Antworten auf Ihren Beitrag zu benachrichtigen

Thema Datum  Von Nutzer Rating
Antwort
Rot Sverweis auf externe Datei
30.06.2021 08:34:47 Grischa Fritz
NotSolved
30.06.2021 09:03:06 Gast42880
NotSolved
30.06.2021 09:04:41 Gast67663
NotSolved