VBA Zufallswerte in Tabelle kopieren
19.01.2017 21:22:48
Marcel
habe da mal ein kleines Problem und zwar würde ich gerne
Zufallsnamen bzw. Werte mit hilfe folgender Formel,:
Set r = Range("A1:a10").SpecialCells(xlCellTypeConstants)
Range("A1:a10").ClearFormats
zufallsbereich = Int(Rnd() * r.Areas.Count) + 1
zufallszelle = Int(Rnd() * r.Areas(zufallsbereich).Cells.Count) + 1
r.Areas(zufallsbereich).Cells(zufallszelle).Activate
in eine bereits bestehende Tabelle kopieren.
Das würde ich dann mit folgendem Code machen:
With Worksheets("tbl_Kunden")
ActiveCell.Copy Destination:=.Cells(.Rows.Count, 1).End(xlUp).Offset(1)
End With
hier ist schon eins der Probleme vorhanden, denn der Wert bzw. Werte werden nicht direkt nach der Überschrift der Tabelle eingefügt sondern eine Zeile darunter.
Dann Würde ich gerne in der 2ten Spalte genau das gleiche machen also die werte direkt unter der Unterschrift in Splate 2 also "B" schreiben(.Rows.Count, 2)
Spalte A Spalte B
Überschrift Überschrift
Name 1
Name 2
etc... Name 3
Name 4
Was mache ich da falsch?
Gruß
Marcel