[Array] Jedes 2. Element löschen ?

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Benutzer

Vielen Dank für die Antworten !
Die Methode von Sepp ist natürlich genial, wobei sie allerdings bei mir nicht funktioniert; ich erhalte die Fehlermeldung "Typen unverträglich" , sobald die Zeile mit der Filter-Funktion erreicht wird.
Da wir hier in der Firma aus irgendwelchen unerklärlichen Gründen die Office-Hilfe nicht installiert haben, werde ich das ganze erst zuhause weiterverfolgen.
ah, ich sehe gerade: Die Meßwerte befinden sich ja bereits in array1 (vom Typ Variant). Im Fenster für Überwachungsausdrücke sieht das dann wie folgt aus:
array1(0) = 0,422
array1(1) = 0
array1(2) = 0,252
array1(3) = 0
Das Trennzeichen innerhalb der Zahlen ist also das Komma, aber wie werden intern die einzelnen Elemente voneinander getrennt, also z.B. array1(0) und array1(1) ?

Hallo Matthias,
hier ein Beispiel-Code, wie Du das Array komprimieren kannst :

Sub Array_Komprimieren()
Dim arT(), intI As Integer
ReDim arT(10)
For intI = LBound(arT) To UBound(arT)
'nur jedes 2. ARRAY-Element mit Wert>0 befüllen :
If intI Mod 2 Then
arT(intI) = 0 'jeden 2.Wert mit 0 befüllen
Else
arT(intI) = 100 + intI
End If
Next
MsgBox Join(arT, vbLf), , "Alt" 'Komplettes Array mit Zeilenumbruch anzeigen
'Nur jeden zweiten Wert in neues Array übernehmen
For intI = LBound(arT) To UBound(arT) / 2
arT(intI) = arT(intI * 2)
Next
ReDim Preserve arT(UBound(arT) / 2) 'Array auf die Hälfte reduzieren
MsgBox Join(arT, vbLf), , "Neu" 'Komplettes NEUES Array mit Zeilenumbruch anzeigen
End Sub

Gruß, NoNet

Sub Array_Komprimieren() Dim arT(), intI As Integer, oArr As Object ReDim arT(10) Set oArr = CreateObject("scripting.dictionary") For intI = LBound(arT) To UBound(arT) 'nur jedes 2. ARRAY-Element mit Wert>0 befüllen : If intI Mod 2 Then arT(intI) = 0 'jeden 2.Wert mit 0 befüllen Else arT(intI) = 100 + intI End If Next MsgBox Join(arT, vbLf), , "Alt" 'Komplettes Array mit Zeilenumbruch anzeigen 'Nur jeden zweiten Wert in neues Array übernehmen For intI = LBound(arT) To UBound(arT) Step 2 oArr(intI) = arT(intI) Next MsgBox Join(oArr.items, vbLf), , "Neu" 'Komplettes NEUES Array mit Zeilenumbruch anzeigen End Sub

Beliebteste Forumthreads (12 Monate)

[Array] Jedes 2. Element löschen ?

12
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

303 Forumthreads zu ähnlichen Themen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

[Array] Jedes 2. Element löschen ?

12 Beiträge zum Forumthread Beiträge zu diesem Forumthread

303 Forumthreads zu ähnlichen Themen

VBA Beispiele zu verwandten Themen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

12
Beiträge zum Forumthread

Beiträge zu diesem Forumthread