Gefilterde mapinhoud in Excel

[Roncancio]

Wanneer er geen bestanden gevonden worden ontstaat er een fout bij de daarop volgende macro..
Kan de codes zoals door Roncancio aangegeven heeft uitgebreid worden met een melding en dus stoppen van het runnen ?.

:shocked:
Als er niets gevonden wordt, gaat de code na de loop verder maar zie ik geen foutmelding.

Met vriendelijke groet,


Roncancio

 

[anton44]

De fout onstaat in de daaropvolgende macro bij
BESTAND=sheets("import") enz.
Hier wordt het bestand ingevuld met de hoogste datumwaarde (te vinden op tabblad "import" in cel N2.
Echter als er geen is ... ?

Sub ABN_Hernoemen()
Application.ScreenUpdating = False 'Voorkomt flikkeren van het beeldscherm
ActiveWorkbook.Worksheets("Variabelen").Select
Dim oWbk As Workbook
Dim sFil As String
Dim sPath As String
Dim lRij As Long
Range("AA:AA").Clear
lRij = 1
sPath = "D:\! Download"
ChDir sPath
sFil = Dir("*.TAB")
Do While sFil <> ""
Range("AA" & lRij) = sFil
lRij = lRij + 1
sFil = Dir
Loop

'End Sub

'Sub ABN_Ophalen()
'ABN_Ophalen Macro
Application.ScreenUpdating = False 'Voorkomt flikkeren van het beeldscherm
Dim BESTAND As String
BESTAND = Sheets("import").Range("N2").Value
Workbooks.OpenText Filename:=BESTAND, Origin:=xlMSDOS, _
StartRow:=1, DataType:=xlDelimited, TextQualifier:=xlDoubleQuote, _
ConsecutiveDelimiter:=True, Tab:=True, Semicolon:=False, Comma:=False, _
Space:=False, Other:=True, OtherChar:=" ", FieldInfo:=Array(Array(1, 1), _
Array(2, 1), Array(3, 5), Array(4, 1), Array(5, 1), Array(6, 5), Array(7, 1), Array(8, 1), _
Array(9, 1), Array(10, 1), Array(11, 1), Array(12, 1), Array(13, 1), Array(14, 1), Array(15 _
, 1)), TrailingMinusNumbers:=True

 

[Roncancio]

Dan kan je gebruik maken van een IF-functie.

If Sheets("import").Range("N2").Value <> "" Then

' Je code.

End If

Met vriendelijke groet,


Roncancio

 

[anton44]

In eerste instantie werkte deze code niet. De cel waar naar verwezen wordt is namelijk (na onderzoek) niet leeg maar 0 vanwege een formule. Met een als-voorwaarde de tekst "geen" geplaatst en je code ook daarop aangepast. Werkt prima nou.
Met hartelijke dank !
Ton