FileDialog - Tabellenblatt mit ansprechen
13.12.2018 09:55:17
Jahn
hoffe mir kann jemand helfen.
Ich versuche momentan mithilfe des FileDialog einen SVerweis auf eine damit ausgewählte Arbeitsmappe einzufügen.
Das funktioniert auch soweit. Das Problem ist aber das er mich beim einfügen des SVerweises mich dann immer noch nach dem Tabellenblatt frägt auf das er sich beziehen soll.
Nachdem ich das Beispiel unten ca. noch 10x wiederholen will, ist es sehr unpraktisch noch jedes mal das Tabellenblatt zu bestätigen.
Gibt es eine Möglichkeit das ich den Tabellenblatt Namen gleich in den Code mit einbaue oder er sich meine Auswahl wenigstens merkt?
Dim sFile As String
Dim LZeile As Integer
LZeile = ActiveSheet.Cells.SpecialCells(xlCellTypeLastCell).Row
With Application.FileDialog(msoFileDialogOpen)
If .Show = -1 Then
sFile = .SelectedItems(1)
Else
MsgBox "Kein File ausgewählt." & vbCr & "Makro wird beendet.", vbCritical
Exit Sub
End If
End With
With Range("H7", "H" & LZeile)
.FormulaR1C1 = "=IFERROR(VLOOKUP(RC[-6],'" & sFile & "'!C2:C9,8,FALSE)-RC[-7],"""")"
End With
Danke im Voraus für eure Hilfe
Viele Grüße,
Jahn