... so habe ich es gemacht aber das Feld bleibt einfach leer
Redim Preserve verbundmitglieder2 (Cint(j))
verbundmitglieder2 (Cint(j)) = tmpString
Next
Forall a In verbundmitglieder2
Msgbox a,,"Verbundmitglied und KUST"
End Forall
End If
End Forall
End If
doc.verbund = verbundmitglieder2
Call uidoc.Reload
Call uidoc.Refresh