'Video_001) VIDEO VIDEO VIDEO VIDEO VIDEO VIDEO VIDEO VIDEO VIDEO VIDEO VIDEO VIDEO VIDEO VIDEO VIDEO VIDEO Video_001) start

Sub makro_mit_button_verknuepfen()
  Dim anzahl_huehner_eier_1 As Integer
  Dim anzahl_huehner_eier_2 As Integer
  Dim summe_huehner_eier As Integer
  anzahl_huehner_eier_1 = ActiveWorkbook.Worksheets("Gliederung").Range("E2").Value
  anzahl_huehner_eier_2 = ActiveWorkbook.Worksheets("Gliederung").Range("E3").Value
  summe_huehner_eier = anzahl_huehner_eier_1 + anzahl_huehner_eier_2
  ActiveWorkbook.Worksheets("Gliederung").Range("E5").Value = summe_huehner_eier
End Sub

'Video_001) VIDEO VIDEO VIDEO VIDEO VIDEO VIDEO VIDEO VIDEO VIDEO VIDEO VIDEO VIDEO VIDEO VIDEO VIDEO VIDEO Video_001) ende