Celwaarde in VBA zetten

[marioveraart]

Hoi,
in onderstaande VBA script zou ik graag de verwijzing naar het aantal wedstrijden = 5 vervangen door de celwaarde vanuit mijn werkblad in M4, is dit mogelijk? hoe verwijs ik naar de celwaarde ?Bekijk bijlage test bereik.xlsm


DANK U WEL !

'

 test1 Macro
'

'
    Dim col1 As Integer
    Dim col2 As Integer
    Dim Row1 As Integer
    Dim Row2 As Integer
    Dim Deelnemers As Integer
    Dim Wedstrijden As Integer
    
    Deelnemers = 10
    Wedstrijden = 5
    
    col1 = 3
    col2 = col1 + (Wedstrijden - 1)
    
        
    Row1 = 2
    Row2 = Row1 + (Deelnemers - 1)
    
    Range(Cells(2, 3), Cells(Row2, col2)).Select

End Sub

 

[marioveraart]

Hoi,

Ik heb het zelf opgelost gekregen,
Lang leven het internet.

Merci.

Sub test1()
'
' test1 Macro
'

'
    Dim col1 As Integer
    Dim col2 As Integer
    Dim Row1 As Integer
    Dim Row2 As Integer
    Dim Deelnemers As Integer
    Dim Wedstrijden As Integer
    
    Deelnemers = Range("m3").Value
    Wedstrijden = Range("m4").Value
    
   
    
    col1 = 3
    col2 = col1 + (Wedstrijden - 1)
    
        
    Row1 = 2
    Row2 = Row1 + (Deelnemers - 1)
    
    Range(Cells(2, 3), Cells(Row2, col2)).Select

End Sub

 

[ReneDirks]

Ben nog wel even benieuwd waarvoor je Row1 en Col1 hebt?

 

[marioveraart]

Je hebt gelijk die worden overbodig! merci, was nog overblijfsel van mijn test. Ik vervang ze gewoon door vaste getallen. Merci.

 

[Warme bakkertje]

Of in 1 regel.

Sub test1()

    Range(Cells(2, 3), Cells(Cells(2, 3).CurrentRegion.Rows.Count, Cells(2, 3).CurrentRegion.Columns.Count)).Select

End Sub