Lieber Helmut
Das Makro ist untenstehend, ich glaub aber nicht, dass das weiterhilft.
Es werden dabei in Spalte A 42 Zufallszahlen erzeugt. Diese sind von 1
bis 42 nummeriert. Die Zufallszahlen werden der Grösse nach sortiert,
wobei die Nummerierung mitsortiert wird. Die obersten 6 Nummern
neben den Zufallszahlen sind dann die 6 gezogenen Zahlen. Diese
werden (nicht im Makro) in ein Feld übertragen.
Mir würde es schon reichen, wenn bei der nächsten Ziehung die neuen
Zahlen ins nächste Feld geschrieben werden …
vielen Dank
Beat ( aus der Schweiz)
' Ziehen Makro
'
' Tastenkombination: Wahltaste+Befehlstaste+q
'
Range("A2:A43").Select
ActiveWorkbook.Worksheets("Variante 2").Sort.SortFields.Clear
ActiveWorkbook.Worksheets("Variante 2").Sort.SortFields.Add
Key:=Range( _
"A2:A43"), SortOn:=xlSortOnValues, Order:=xlAscending,
DataOption:= _
xlSortNormal
With ActiveWorkbook.Worksheets("Variante 2").Sort
.SetRange Range("A2:A43")
.Header = xlNo
.MatchCase = False
.Orientation = xlTopToBottom
.SortMethod = xlPinYin
.Apply
End With
Range("A2").Select
ActiveWindow.SmallScroll Down:=15
Range("A2:B43").Select
ActiveWorkbook.Worksheets("Variante 2").Sort.SortFields.Clear
ActiveWorkbook.Worksheets("Variante 2").Sort.SortFields.Add
Key:=Range( _
"B2:B43"), SortOn:=xlSortOnValues, Order:=xlAscending,
DataOption:= _
xlSortNormal
With ActiveWorkbook.Worksheets("Variante 2").Sort
.SetRange Range("A2:B43")
.Header = xlNo
.MatchCase = False
.Orientation = xlTopToBottom
.SortMethod = xlPinYin
.Apply
End With
Range("L5").Select
End Sub