|
Hi,
ich brauche Hilfe bei einer Schleife. Bisher habe ich mein Problem immer wie unten gezeigt gelöst da ich nicht so viel Ahnung von VBA habe. Nun brauche ich aber die zahlen von 1 - 200 und möchte dies mit einer Schleife lösen da ich sonst nur noch am kopieren und einfügen bin :D. Ich hoffe ihr könnt mir helfen.
Danke
ActiveCell.FormulaR1C1 = "1"
Range("B1").Select
Application.Wait Now + TimeSerial(0, 0, 1)
ActiveCell.FormulaR1C1 = "2"
Range("B1").Select
Application.Wait Now + TimeSerial(0, 0, 1)
ActiveCell.FormulaR1C1 = "3"
Range("B1").Select
Application.Wait Now + TimeSerial(0, 0, 1)
ActiveCell.FormulaR1C1 = "4"
Range("B1").Select
Application.Wait Now + TimeSerial(0, 0, 1)
ActiveCell.FormulaR1C1 = "5"
Range("B1").Select
Application.Wait Now + TimeSerial(0, 0, 1)
|