Sub GB_Click()
If GB.Value Then
Worksheets("Mandag").Range("A7,B7").Value = "Today's hot dish"
Worksheets("Mandag").Range("A32,B32").Value = "Today's warm dish"
Worksheets("Tirsdag").Range("A7,B7").Value = "Today's hot dish"
Worksheets("Tirsdag").Range("A32,B32").Value = "Today's warm dish"
Worksheets("Onsdag").Range("A7,B7").Value = "Today's hot dish"
Worksheets("Onsdag").Range("A32,B32").Value = "Today's warm dish"
Worksheets("Torsdag").Range("A7,B7").Value = "Today's hot dish"
Worksheets("Torsdag").Range("A32,B32").Value = "Today's warm dish"
Worksheets("Fredag").Range("A7,B7").Value = "Today's hot dish"
Worksheets("Fredag").Range("A32,B32").Value = "Today's warm dish"
Worksheets("Uge").Range("A2").Value = "Menu week"
Worksheets("Uge").Range("A5").Value = "Monday"
Worksheets("Uge").Range("A11").Value = "Tuesday"
Worksheets("Uge").Range("A17").Value = "Wednesday"
Worksheets("Uge").Range("A23").Value = "Thursday"
Worksheets("Uge").Range("A29").Value = "Friday"
Else
Worksheets("Mandag").Range("A7,B7").Value = "Dagens varme ret"
Worksheets("Mandag").Range("A32,B32").Value = "Dagens lune ret"
Worksheets("Tirsdag").Range("A7,B7").Value = "Dagens varme ret"
Worksheets("Tirsdag").Range("A32,B32").Value = "Dagens lune ret"
Worksheets("Onsdag").Range("A7,B7").Value = "Dagens varme ret"
Worksheets("Onsdag").Range("A32,B32").Value = "Dagens lune ret"
Worksheets("Torsdag").Range("A7,B7").Value = "Dagens varme ret"
Worksheets("Torsdag").Range("A32,B32").Value = "Dagens lune ret"
Worksheets("Fredag").Range("A7,B7").Value = "Dagens varme ret"
Worksheets("Fredag").Range("A32,B32").Value = "Dagens lune ret"
Worksheets("Uge").Range("A2").Value = "Menu uge"
Worksheets("Uge").Range("A5").Value = "Mandag"
Worksheets("Uge").Range("A11").Value = "Tirsdag"
Worksheets("Uge").Range("A17").Value = "Onsdag"
Worksheets("Uge").Range("A23").Value = "Torsdag"
Worksheets("Uge").Range("A29").Value = "Fredag"
End If
End Sub
Sub Weight_Click()
If Weight.Value Then
Worksheets("Mandag").Range("A17,A42,B17,B42").Value = "Kr. 8,00 pr. 100 g"
Worksheets("Tirsdag").Range("A17,A42,B17,B42").Value = "Kr. 8,00 pr. 100 g"
Worksheets("Onsdag").Range("A17,A42,B17,B42").Value = "Kr. 8,00 pr. 100 g"
Worksheets("Torsdag").Range("A17,A42,B17,B42").Value = "Kr. 8,00 pr. 100 g"
Worksheets("Fredag").Range("A17,A42,B17,B42").Value = "Kr. 8,00 pr. 100 g"
Else
Worksheets("Mandag").Range("A17,A42,B17,B42").Value = ""
Worksheets("tirsdag").Range("A17,A42,B17,B42").Value = ""
Worksheets("Onsdag").Range("A17,A42,B17,B42").Value = ""
Worksheets("torsdag").Range("A17,A42,B17,B42").Value = ""
Worksheets("Fredag").Range("A17,A42,B17,B42").Value = ""
End If
End Sub
Bookmarks