Forall strValue in deinArrayMit3000Werten
Call rtItem.AppendText( strValue & Chr$(10) )
End Forall
Call rtItem.AppendText( Implode( deinArrayMit3000Werten , Chr$(10) ) )
ACH SO: 3000 Zeilen in eine Zelle geht aber in Excel nicht, die Anzahl Zeichen in einer Zelle in Excel ist begrenzt.