Werte von Array in eine Zelle schreiben
18.06.2019 16:04:23
Array
ich habe ein Problem mit einem Array. Mithilfe dieses Codes erstelle ich zunächst ein Array unbekannter Größe, weise diesem eine Größe zu (Größe entspricht befüllten Zellen) und befülle diesen. Das Array hat dann am Ende 4 Einträge mit den Werten e, f, i und j.
Hier der Code:
Option Explicit
Sub a()
Dim arr()
Dim ab1 As Integer
Dim abb1 As Integer
Dim abbb1 As Integer
Dim strTempArray()
Dim anzahl As Integer
anzahl = 1
Do
anzahl = anzahl + 1
Loop Until Range("A" & anzahl).Value = ""
anzahl = anzahl - 1
ReDim arr(anzahl)
For ab1 = 1 To 10
If Range("A" & ab1).Value = "4" Then
arr(ab1 - 1) = Range("B" & ab1).Value
Else
End If
Next ab1
For abb1 = 0 To UBound(arr)
If arr(abb1) "" Then
ReDim Preserve strTempArray(abbb1)
strTempArray(abbb1) = arr(abb1)
abbb1 = abbb1 + 1
End If
Next
arr = strTempArray
End Sub
Hier ein Link zur Datei
https://www.herber.de/bbs/user/130458.xlsx
Soweit klappt auch alles wie ich mir das vorstelle. Nun würde ich gerne alle Elemente im Array in eine Zelle
schreiben mit Kommas getrennt.
Z.B. soll dann in Zelle "E2" stehen e, f, i, j.
Ich habe mir schon überlegt das ganze mit einer for-Schleife zu machen, da ich ja die Anzahl der Elemente im Array durch die Variable abbb1 gegebene habe, aber bislang sind alle meine Versuche gescheitert. Vielen Dank.
Grüße
Anzeige