VBA-Obtimierung
21.02.2017 12:48:37
Franz
ich möchte in meinem Stundennachweis für jeden Monat/Jahr die Einträge auswerten. Zwar habe ich für den Monat Januar schon was kreiert, vielleicht kann mir aber jemand sagen wie ich es einfacher machen könnte, da dies für jeden Monat notwendig.
Hier mein bescheidener Versuch:
Private Sub Worksheet_Activate()
If ActiveWorkbook.Name = "Stdnw_2017.01.xlsm" Then _
Range("C8") = Tabelle0306.Range("AL23") / Tabelle01.Range("P5")
If ActiveWorkbook.Name = "Stdnw_2017.01.xlsm" Then _
Range("E8") = Tabelle0306.Range("AL24")
If ActiveWorkbook.Name = "Stdnw_2017.01.xlsm" Then _
Range("G8") = Tabelle0306.Range("AL21")
If ActiveWorkbook.Name = "Stdnw_2017.01.xlsm" Then _
Range("H8") = Tabelle0306.Range("AL22")
If ActiveWorkbook.Name = "Stdnw_2017.01.xlsm" Then _
Range("D8") = Tabelle0306.Range("AL25")
If ActiveWorkbook.Name = "Stdnw_2017.01.xlsm" Then _
Range("K8") = Tabelle0103.Range("Q37")
If ActiveWorkbook.Name = "Stdnw_2017.01.xlsm" Then _
Range("B8") = Tabelle0305.Range("L11")
End Sub