This will indicate a URL If Not InStr(1, URL, "//", vbBinaryCompare) = 0 Then 'Split the URL into an array so it can be analyzed & reused SplitURL = Split(URL, "/", , vbBinaryCompare) 'URL has been found so prep
These cells are unlocked. You can click on the data area to enter the Non-Working Days and manage the Project Resource Table. You need to unprotect the worksheet to add and remove rows. Take note that Adding or Removing Rows may affect the reference Range if not done correctly. This ...
If the array of sequential numbers is the final result, Excel outputs all the numbers automatically in a so-calledspill range. So, be sure you have enough empty cells down and to the right of the cell where you enter the formula, otherwise a#SPILL errorwill occur. The resulting array ca...
If the code gets stuck, put the parameters in brackets so that you force the conversion from the variant to a string. Thank you for your understanding and patience Nikolino I know I don't know anything (Socrates)
wkbbasis.Worksheets(1).Cells(i,1)=wbkArr.Worksheets(1).Range("F32")wkbbasis.Worksheets(1).Cells(i,2)=wbkArr.Name wbkArr.Close savechanges:=False 'Datei schließen Set wbkArr=Nothing '---Next i Set wbkArr=Nothing wbkBasis.Activate Set wbkBasis=Nothing Application.ScreenUpdating...