Zdravím,

pokouším se začínat s makry v Excelu. Chci udělat takovou logickou hříčku - v buňkách H7 až H11 může být logická hodnota 1 nebo 0. Každé z pěti tlačítek změní logickou hodnotu v jiných buňkách (např. tlačítko 1 mění hodnotu v buňce H7, tlačítko 2 mění hodnotu v buňce H7 a H9, atd.). Problém je, že mi to nefunguje:) Tlačítko 2 změní pouze hodnotu H7 z 1 na 0, ale to je vše. Najde tam prosím chybu? Díky

Sub Makro2()
'
' Makro2 Makro
'

'
h1 = Range("H7").Value
h2 = Range("H8").Value
h3 = Range("H9").Value
h4 = Range("H10").Value
h5 = Range("H11").Value
If h1 = 0 And h3 = 0 Then
Range("h7").FormulaR1C1 = "1" And Range("h9").FormulaR1C1 = "1"
ElseIf h1 = 0 And h3 = 1 Then
Range("h7").FormulaR1C1 = "1" And Range("h9").FormulaR1C1 = "0"
ElseIf h1 = 1 And h3 = 0 Then
Range("h7").FormulaR1C1 = "0" And Range("h9").FormulaR1C1 = "1"
Else
Range("h7").FormulaR1C1 = "0" And Range("h9").FormulaR1C1 = "0"

End If


End Sub