ich möcht mit meinem makro in allen Sheets mit Namen "BL_*" ab Zeile 4 alle beschriebenen Zeilen kopieren und in der aktuellen einfügen.
hab ich mit folgendem makro versucht, hängt aber bei ElseIf (Laufzeitfehler 1004)
Hoffe Ihr könnt mir helfen, Danke Gruss volker
Sub Zeileneinlesen()
Dim oFS As Object, oFLDR As Object, oFILE As Object
Dim lRow As Long
Dim wkbMy As Workbook, wsMy As Worksheet, lngZeile As Long, lngLetzte As Long
Application.ScreenUpdating = False
Application.DisplayAlerts = False
Set oFS = CreateObject("scripting.filesystemobject")
lRow = 2
Set oFLDR = oFS.getfolder("\\Server04\av\SharePoint_Beschlaglisten")
For Each oFILE In oFLDR.Files
If oFILE Like "*.xls" Or oFILE Like "*.xlsm" Then
lRow = lRow
Set wkbMy = Workbooks.Open(oFILE)
For Each wsMy In wkbMy.Worksheets
If wsMy.Name Like "BL_*" Then
lngZeile = 4
lngLetzte = Cells(65536, 1).End(xlUp).Row
ElseIf Cells(lngZeile, 4).Value > 0 Then Range(lngZeile & ":" & lngZeile).Copy
ThisWorkbook.Worksheets(1).Cells(lRow, 1).PasteSpecial _
Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks:=False, Transpose:=False
lRow = lRow + 1
End If
Next
wkbMy.Close False
End If
Next
Application.ScreenUpdating = True
Application.DisplayAlerts = True
End Sub