Dateinamen im Sverweis mit VBA verwenden
12.08.2019 12:12:16
Georg
ich komme nicht klar, wie ein Dateinamen im sverweis mit VBA verwendet wird, obwohl ich schon recherchiert habe, bekomme ich es nicht hin.
Über den Öffnen Dialog wird eine Datei geöffent, die mit wbSk1 bezeichnet wird.
Und genau diese möchte ich sverweis verwenden, wenn es darum geht, die Matrix im Blatt "Neu" zu definieren, und das krieg ich nicht hin.
Der abgebildete Stand (ich habe etliches schon probiert) gibt die Meldung aus Erwarte Anweisungsende!
Vielen Dank für eure Hilfe G
Sub Skill()
Dim wbSk1 As Workbook
MsgBox ("Es wird nun die Skill-Datei mit den Stunden geöffnet, wählen Sie die passende aus!")
'DateiÖffnen Dialog
strFilter = "Excel-Dateien(*.xlsx), *.xlsx" '** Dateifilter definieren
ChDrive "Q"
ChDir "Q:\Geschäftsführung\Organisationsentwicklung\40_Organisationsentwicklung\ _
Excel_Weiterentwicklungen\Bereich_GF"
'** Laufwerk und Pfad definieren, welcher geöffnet werden soll
'ChDir "Q:\Personalwesen\Sonstige\Personalplanung\Verdienstgrenze" 'Pfad zum Testen
'** Den im Dialogfeld gewählten Namen auslesen
strFilename = Application.GetOpenFilename(strFilter)
'** Prüfen, ob eine gültige Datei ausgewählt wurde
If strFilename = False Then Exit Sub
'** Gewählte Datei öffnen
Set wbSk1 = Workbooks.Open(strFilename)
ThisWorkbook.Activate
wbNeu.Activate
With wbNeu.Worksheets(1)
lngLetzte = .Cells(.Rows.Count, 1).End(xlUp).Row
.Range(.Cells(2, 6), .Cells(lngLetzte - 1, 6)).FormulaR1C1 = _
"=IfError(VLOOKUP(RC[-1],["wbSk1" & ".xlsx"]Neu!R2C2:R50000C7,4,FALSE),0)"
End With
End Sub