Forall strValue in deinArrayMit3000Werten
Call rtItem.AppendText( strValue & Chr$(10) )
End ForallCall 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.