ich habe mal wieder ein Problem:
ich habe folgenden SVERWEIS in VBA erstellt und bekomme in der Fett markierten Zeile den "Laufzeitfehler 424 - Objekt erforderlich". Könnt Ihr mir vielleicht weiterhelfen, was fehlt? Vielen Dank im Voraus! Grüße, Stephan
Dim Fso
Dim strLinie As String
Dim strPA As String
Dim strwks As String
Dim strDatei As String
Set Fso = CreateObject("Scripting.FileSystemObject")
strLinie = Range("C4")
strPA = Range("C7")
strwks = Range("A99")
strDatei = "H:\Bon\Zeit\planning productie.xls"
Select Case Range("C4").Value
Case "3"
If Fso.FileExists(strDatei) Then
Application.ScreenUpdating = False
Workbooks.Open Filename:=strDatei
Sheets(strwks).Activate
With Application
strPA = .VLookup(Target.Value, Worksheets(strwks).Columns("D : P"), 2, 0)
Target.Value.Copy
Windows("BDE-Bon.xls").Activate
Range("C8").Select
ActiveSheet.Paste
Windows("planning productie.xls").Activate
Application.CutCopyMode = False
ActiveWindow.Close
Application.ScreenUpdating = True
End With
End If
End Select
End Sub