Run-time error 13: Type mismatch
24.01.2008 16:36:51
Florian
hab wiedermal ein Problem: die untere Makro ist beim ertsen Durchlauf ganz normal gelaufen. Beim zweiten Mal hab ich den Fehler "Run-time error 13: Type mismatch" bekommen. Was stimmt da nicht?
Florian
Sub DateiNamenAuslesen()
Dim Fso As Object, oFile As Object
Dim LastRow As Integer, VZeile As Integer
Set Fso = CreateObject("Scripting.FileSystemObject")
For Each oFile In Fso.getfolder(ThisWorkbook.path & "\Spielordner").Files
If LCase(Right(oFile.Name, 5)) = ".xlsx" Then
If Range("a1") = "" Then
Range("a1").Select
ElseIf Range("a2") = "" Then
Range("a2").Select
Else
LastRow = ActiveSheet.UsedRange.Rows.Address
Range(LastRow).Select
Range("a:a").End(xlDown).Select
VZeile = ActiveCell.Row
Cells(VZeile + 1, 1).Activate
End If
ActiveCell.Value = oFile.Name
End If
Next
End Sub
Anzeige