User Tools

Site Tools


vba:functions:arrayremoveitem

[VBA] arrayRemoveItem()

Entfernt ein einzelnes Item aus einem Array

Version 1.0.0 - 04.11.2016

Beispiele

d arrayRemoveItem(array("a", "b", "c"), 1)
<Variant()>  (
    [0] => <String> 'a'
    [1] => <String> 'c'
)

Code

udf_arrayremoveitem.bas
Attribute VB_Name = "udf_arrayRemoveItem"
'-------------------------------------------------------------------------------
'File         : udf_arrayRemoveItem.bas
'               Copyright mpl by ERB software
'               All rights reserved
'               http://wiki.yaslaw.info/dokuwiki/doku.php/vba
'Environment  : VBA 2010 +
'Version      : 1.0.0
'Name         : arrayRemoveItem
'Author       : Stefan Erb (ERS)
'History      : 04.11.2016 - ERS - Creation
'-------------------------------------------------------------------------------

Option Explicit
'/**
'* Entfernt ein Eintrag aus einem Array und verkürzt diesen
' * @param  Variant Der zu verkürzende Array
' * @param  Long    Index der gelöscht werden soll
' * @param  Variant
' */
Public Function arrayRemoveItem(ByVal iArray As Variant, ByVal iIndex As Long) As Variant
    Dim retArr As Variant: ref retArr, iArray
    'Es ist kein Array -> Original zurückgeben
    If Not IsArray(iArray) Then GoTo Exit_Handler
    'Der zulöschende Index ist ausserhlab des Arrays -> Original zurückgeben
    If iIndex < LBound(iArray) Or UBound(iArray) < iIndex Then GoTo Exit_Handler
    'Der Originalarray hat nur einen Eintrag -> leerer Array zurückgeben
    If LBound(iArray) = UBound(iArray) Then retArr = Array():         GoTo Exit_Handler
 
    'Ab dem zu löschenden ndex alles um eins Nach vorne schieben
    Dim i As Long: For i = iIndex To UBound(iArray) - 1
        retArr(i) = iArray(i + 1)
    Next i
    'Den Array verkürzen
    ReDim Preserve retArr(LBound(iArray) To UBound(iArray) - 1)
 
Exit_Handler:
    ref arrayRemoveItem, retArr
    Exit Function
End Function
 

Discussion

Enter your comment. Wiki syntax is allowed:
If you can't read the letters on the image, download this .wav file to get them read to you.
 
vba/functions/arrayremoveitem.txt · Last modified: 04.11.2016 11:08:51 by yaslaw