Array - Typfehlermeldung
21.09.2008 11:06:00
Klaus
obwohl ich schon oft mit Arrays gearbeitet habe, stehe ich vor einem Berg.
Beschreibung:
In einem eigenen Modul habe ich das Array als "Public drAuftr as Variant" definiert.
In einem anderen Modul wird in einer Sub diese Variable mit "DIM drAuftr(0) as String" dimensioniert.
Anschließend wird eine Userform aufgerufen und eine Selection in einem Listenfeld ausgewertet, die durch einen CommandButton ausgelöst wird. Das Ergebnis der Listefeldauswahl ist ein String den ich dem Array zuweisen möchte. Immer wenn das Array in dieser Buttonauswertung nach dem "else" ins Spiel kommt, erhalte ich die Fehlermeldung, das der Typ nicht übereinstimmt.
Private Sub CommandButton1_Click()
t_suchw = UserForm8.ListBox1.ListIndex
With UserForm8.ListBox1
For X = 0 To .ListCount - 1
If .Selected(X) Then
t_suchw = .List(X)
z = 0
If t_suchw = "Alle Trakte" Then
ws_db.Activate
drow = [A65536].End(xlUp).Row
ws_db.Range(Cells(2, 1), Cells(drow, 1)).Select
ds = Selection.Count
ReDim drAuftr(ds)
For Each y In Selection
suchwert = y.Value
drAuftr(z) = suchwert
z = z + 1
Next
Exit For
Else
' ReDim Preserve drAuftr(z )
drAuftr(z) = t_suchw
z = z + 1
End If
End If
Next
End With
Unload UserForm8
End Sub
Kann mir jemand helfen und einen Hinweis auf die Fehlerquelle geben?
MfG. Klaus