Dim i As Integer
Dim nIndex As Integer
Dim nCount As Integer
 
nCount = UBound(Array)
nIndex = 50  <font color=green>' zu löschendes Element</font>
For i = nIndex To nCount - 1
  sArray(i) = sArray(i + 1)
Next i
sArray(nCount) = ""