Hallo,
ich bin ein ziemlicher VBA Neuling und habe da mal eine Frage.
Ich habe einen Array, der 1-3 Elemente enthalten kann. Nun soll der jeweilige Wert im Array in der jeweiligen Textbox gespeichert werden. Meine Schleife funktioniert, solange der Array 3 Elemente besitzt. Wenn er allerdings nur 2 Elemente hat, bekomme ich eine Fehlermeldung. Ich wollte deshalb eine Bedingung mit IsMissing bauen, sodass er wenn es das Element im Array nicht gibt mir eine 0 einbaut. Leider funktioniert das nicht. Kann mir jemand weiterhelfen?
LG Klaus
Code:
Dim Projekte() As Variant
Dim size As Integer
size = 0
m = 17
n = 13
p = Cells(n, m).NumberFormat
For m = 17 To 18
For n = 13 To 14
If Cells(n, m).NumberFormat = p Then
ReDim Preserve Projekte(0, size)
Projekte(0, size) = Cells(n, m).Value
size = size + 1
End If
Next
Next
If IsMissing(Projekte(0, 2)) Then
Me.Txt1 = "0"
Else
Me.Txt1 = Projekte(0, 2)
End If