Dim lColcnt as Long
Dim oSrcSheet as Worksheet
set oSrcSheet = oSourceBook.Sheets(1)
lColcnt = oSrcSheet.UsedRange.Columns.Count
For z = oSrcSheet.UsedRange.Row To oSrcSheet.UsedRange.specialcells(xlcelltypelastcell).Row
If Trim(CStr(oSrcSheet.Cells(z, 1).Value)) <> "" Then
with oTargetSheet
.Cells(lErgebnisZeile, 1).Value = sDatei
.Cells(lErgebnisZeile, 2).resize(0,lcolcnt -1).Value = _
oSrcSheet.UsedRange.Rows(z).offset(0,1).resize(lcolcnt -1).Value
end with
lErgebnisZeile = lErgebnisZeile + 1
End If
Next z