Zit hem in je macro paden, deze worden gelooped in je document. hoe dit kan weet ik niet, maar als je de vast lopende macro's even in een andere module zet en op nieuw je knop verwijzing insteld, moet hij het gewoon doen op een andere pc.
Groet,
Ferenc
Hoi Ferenc,
Nou dat lukt ook niet, maar ik ga wel aan de slag met een door jouw eerder geposte file,
die werkt ook goed, aleen bij jouw begint het gelijk in rij 1 en kolom A, en bij mij begint het in rij 2 en kolom B, weet je wat ik aan het script moet veranderen?
met de kolommen kom ik wel uit maar niet met de rij.
vr bedankt en vr gr. Erick.
hier het script.
Sub Tafel_selectie()
Dim VarNum As Integer
' vraag naar naam
VarNum = InputBox("Miranda? welke tafel wil je oefenenen?", "Tafel selectie")
Range("C1") = VarNum
Range("E1").Select
End Sub
Sub Overnieuw()
'code adapted from
'http://www.exceltip.com/st/Return_random_numbers_using_VBA_in_Microsoft_Excel/531.html
Dim aantal As Integer, bottom As Integer, top As Integer, msg As String
Dim RandColl As Collection, i As Long, varTemp() As Long, varrRandomNumberList As Variant
aantal = 10
bottom = 1
top = 10
If aantal < 1 Then Exit Sub
If bottom > top Then Exit Sub
If aantal > (top - bottom + 1) Then Exit Sub
Set RandColl = New Collection
Randomize
Do
On Error Resume Next
i = CLng(Rnd * (top - bottom) + bottom)
RandColl.Add i, CStr(i)
On Error GoTo 0
Loop Until RandColl.Count = aantal
ReDim varTemp(1 To aantal)
For i = 1 To aantal
Range("A" & i) = RandColl(i)
Next i
Set RandColl = Nothing
'hieronder verwijderen we de data in bereik E1 tm F10
Range("E1:F10").ClearContents
Range("E1").Select
End Sub
(tevens de inputboxen verwijderd).
