ich sollte ein Feld mit ca. 500000 Einträgen (Zahlen) möglichst schnell in eine Tabelle füllen. Gibt es einen Weg, der entsprechend schnell ist, damit man nicht allzulange warten muss?
Danke für Eure Hilfe,
Klaus
Sub x()
ActiveSheet.Range("A1:J50000").Formula = "=INT(RAND() * 500000) + 1"
ActiveSheet.Range("A1:J50000").Value = ActiveSheet.Range("A1:J50000").Value
End Sub
GreetZ Renée