vaste waarde in buttonveranderen in een celwaarde

[HammerJohn]

hieronder staat een button die werkt naar behoren alleenwil ik dewaarde van I
die staat nu vast uit een cel halen.

het kan een A zijn of een T of 1 deze waarde komt uit Cel V1


Sub CentralButton()
Dim Dag() As String
Dim DKol As Integer
Dim I As Integer

Dag = Split(Application.Caller, " ")
Select Case LCase(Dag(0))
Case "vrijdag": DKol = 11
Case "maandag": DKol = 28
Case "dinsdag": DKol = 45
Case "woensdag": DKol = 62
Case "donderdag": DKol = 79
Exit Sub
End Select

If LCase(Dag(1)) = "middag" Then
DKol = DKol + 5
End If


For I = DKol To (DKol + 3)
Cells(Dag(2) + 3, I).Value = "1" <<<<Deze waarde bedoel ik

Next I

End Sub

 

[HSV]

[COLOR=#3E3E3E]Cells(Dag(2) + 3, I).Value = [V1][/COLOR]

Plaats anders het bestand eens zodat we kunnen zien welke cel je bedoelt.

 

[HammerJohn]

Probleem opgelost vriendelijk bedankt