Lommer:
Bedankt voor de inperking van de tabel,ik was juist op weg de vraag te stellen!
Was al bezig met de aanvulling maar dit werd een slopend werkje, beter Exel laten werken.
ps:als ik dit probeer krijg ik een compileerfout (iets met call uitvoeren)al verwijderd werkt nog steeds niet
Dit staat er nu!!
Dim Tafels, Ronde As Integer
Dim BeginRonde, EindeRonde As Integer
Sub Tabel_vullen()
Sheets("tafelnummer").Select
Tafels = Range("C1")
Ronde = Range("B2")
Range("B4:E33").Select
Selection.ClearContents
Range("B4").Select
Sheets("tabel").Select
Select Case Tafels
Case 4 '4 tafels
BeginRonde = Choose(Ronde, 2, 6, 10, 14)
EindeRonde = Choose(Ronde, 5, 9, 13, 17)
Case 5 '5 tafels
BeginRonde = Choose(Ronde, 18, 23, 28, 33)
EindeRonde = Choose(Ronde, 22, 27, 32, 37)
Case 6 '6 tafels
BeginRonde = Choose(Ronde, 38, 44, 50, 56)
EindeRonde = Choose(Ronde, 43, 49, 55, 60)
Case 7 '7 tafels
BeginRonde = Choose(Ronde, 61, 68, 75, 82)
EindeRonde = Choose(Ronde, 67, 74, 80, 86)
End Select
End Sub
Private Sub Uitvoeren()
Range("C" + CStr(BeginRonde) + ":F" + CStr(EindeRonde)).Select
Selection.Copy
Sheets("tafelnummer").Select
Range("B4").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
End Sub
mvg,Luc