Inkorten VBA code?

Status
Niet open voor verdere reacties.
K

Kikkertjuhh

Gebruiker
Lid geworden
20 sep 2006
Berichten
28
Beste,

Ik heb een bestand met in het sheetobject een VBA code. Hij werkte prima, maar nu heb ik een aantal rijen en kolommen toegevoegd waardoor ik de foutmelding krijg: "Compileerfout: De procedure is te groot".

Na wat google werk betekend dat dus: code opsplitsen of inkorten.
Aangezien het een "Private Sub Worksheet_SelectionChange(ByVal Target As Range)" is, is opsplitsen geen optie.
Hopelijk kan iemand mij helpen hem in te korten, want volgens mij moet dat mogelijk zijn.

De code is als volgt:
Code: 
Dim GSourceCell As String

'Bij klikken op cel tabblad "Behandelingen" de juiste tekst plakken in tabblad "Totaal"
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
GSourceCell = Target.Address(False, False)
Application.ScreenUpdating = False

'BCD
      If GSourceCell = "B7" Then
         Sheets("Totaal").Range("totaal_behandeling").Value = Sheets("Behandelingen").Range("C7")
         Sheets("Totaal").Range("totaal_type").Value = Sheets("Behandelingen").Range("D7")
      ElseIf GSourceCell = "B8" Then
         Sheets("Totaal").Range("totaal_behandeling").Value = Sheets("Behandelingen").Range("C8")
         Sheets("Totaal").Range("totaal_type").Value = Sheets("Behandelingen").Range("D8")
      ElseIf GSourceCell = "B9" Then
         Sheets("Totaal").Range("totaal_behandeling").Value = Sheets("Behandelingen").Range("C9")
         Sheets("Totaal").Range("totaal_type").Value = Sheets("Behandelingen").Range("D9")
      ElseIf GSourceCell = "B10" Then
         Sheets("Totaal").Range("totaal_behandeling").Value = Sheets("Behandelingen").Range("C10")
         Sheets("Totaal").Range("totaal_type").Value = Sheets("Behandelingen").Range("D10")
      ElseIf GSourceCell = "B11" Then
         Sheets("Totaal").Range("totaal_behandeling").Value = Sheets("Behandelingen").Range("C11")
         Sheets("Totaal").Range("totaal_type").Value = Sheets("Behandelingen").Range("D11")
      ElseIf GSourceCell = "B12" Then
         Sheets("Totaal").Range("totaal_behandeling").Value = Sheets("Behandelingen").Range("C12")
         Sheets("Totaal").Range("totaal_type").Value = Sheets("Behandelingen").Range("D12")
      ElseIf GSourceCell = "B13" Then
         Sheets("Totaal").Range("totaal_behandeling").Value = Sheets("Behandelingen").Range("C13")
         Sheets("Totaal").Range("totaal_type").Value = Sheets("Behandelingen").Range("D13")
      ElseIf GSourceCell = "B14" Then
         Sheets("Totaal").Range("totaal_behandeling").Value = Sheets("Behandelingen").Range("C14")
         Sheets("Totaal").Range("totaal_type").Value = Sheets("Behandelingen").Range("D14")
      ElseIf GSourceCell = "B15" Then
         Sheets("Totaal").Range("totaal_behandeling").Value = Sheets("Behandelingen").Range("C15")
         Sheets("Totaal").Range("totaal_type").Value = Sheets("Behandelingen").Range("D15")
      ElseIf GSourceCell = "B16" Then
         Sheets("Totaal").Range("totaal_behandeling").Value = Sheets("Behandelingen").Range("C16")
         Sheets("Totaal").Range("totaal_type").Value = Sheets("Behandelingen").Range("D16")
      ElseIf GSourceCell = "B17" Then
         Sheets("Totaal").Range("totaal_behandeling").Value = Sheets("Behandelingen").Range("C17")
         Sheets("Totaal").Range("totaal_type").Value = Sheets("Behandelingen").Range("D17")
      ElseIf GSourceCell = "B18" Then
         Sheets("Totaal").Range("totaal_behandeling").Value = Sheets("Behandelingen").Range("C18")
         Sheets("Totaal").Range("totaal_type").Value = Sheets("Behandelingen").Range("D18")
      ElseIf GSourceCell = "B19" Then
         Sheets("Totaal").Range("totaal_behandeling").Value = Sheets("Behandelingen").Range("C19")
         Sheets("Totaal").Range("totaal_type").Value = Sheets("Behandelingen").Range("D19")
      ElseIf GSourceCell = "B21" Then
         Sheets("Totaal").Range("totaal_behandeling").Value = Sheets("Behandelingen").Range("C21")
         Sheets("Totaal").Range("totaal_type").Value = Sheets("Behandelingen").Range("D21")
      ElseIf GSourceCell = "B22" Then
         Sheets("Totaal").Range("totaal_behandeling").Value = Sheets("Behandelingen").Range("C22")
         Sheets("Totaal").Range("totaal_type").Value = Sheets("Behandelingen").Range("D22")
      ElseIf GSourceCell = "B23" Then
         Sheets("Totaal").Range("totaal_behandeling").Value = Sheets("Behandelingen").Range("C23")
         Sheets("Totaal").Range("totaal_type").Value = Sheets("Behandelingen").Range("D23")
      ElseIf GSourceCell = "B24" Then
         Sheets("Totaal").Range("totaal_behandeling").Value = Sheets("Behandelingen").Range("C24")
         Sheets("Totaal").Range("totaal_type").Value = Sheets("Behandelingen").Range("D24")
      ElseIf GSourceCell = "B25" Then
         Sheets("Totaal").Range("totaal_behandeling").Value = Sheets("Behandelingen").Range("C25")
         Sheets("Totaal").Range("totaal_type").Value = Sheets("Behandelingen").Range("D25")
      ElseIf GSourceCell = "B26" Then
         Sheets("Totaal").Range("totaal_behandeling").Value = Sheets("Behandelingen").Range("C26")
         Sheets("Totaal").Range("totaal_type").Value = Sheets("Behandelingen").Range("D26")
      ElseIf GSourceCell = "B27" Then
         Sheets("Totaal").Range("totaal_behandeling").Value = Sheets("Behandelingen").Range("C27")
         Sheets("Totaal").Range("totaal_type").Value = Sheets("Behandelingen").Range("D27")
      ElseIf GSourceCell = "B28" Then
         Sheets("Totaal").Range("totaal_behandeling").Value = Sheets("Behandelingen").Range("C28")
         Sheets("Totaal").Range("totaal_type").Value = Sheets("Behandelingen").Range("D28")
      ElseIf GSourceCell = "B29" Then
         Sheets("Totaal").Range("totaal_behandeling").Value = Sheets("Behandelingen").Range("C29")
         Sheets("Totaal").Range("totaal_type").Value = Sheets("Behandelingen").Range("D29")
      ElseIf GSourceCell = "B30" Then
         Sheets("Totaal").Range("totaal_behandeling").Value = Sheets("Behandelingen").Range("C30")
         Sheets("Totaal").Range("totaal_type").Value = Sheets("Behandelingen").Range("D30")
      ElseIf GSourceCell = "B31" Then
         Sheets("Totaal").Range("totaal_behandeling").Value = Sheets("Behandelingen").Range("C31")
         Sheets("Totaal").Range("totaal_type").Value = Sheets("Behandelingen").Range("D31")
      ElseIf GSourceCell = "B32" Then
         Sheets("Totaal").Range("totaal_behandeling").Value = Sheets("Behandelingen").Range("C32")
         Sheets("Totaal").Range("totaal_type").Value = Sheets("Behandelingen").Range("D32")
      ElseIf GSourceCell = "B33" Then
         Sheets("Totaal").Range("totaal_behandeling").Value = Sheets("Behandelingen").Range("C33")
         Sheets("Totaal").Range("totaal_type").Value = Sheets("Behandelingen").Range("D33")
      ElseIf GSourceCell = "B34" Then
         Sheets("Totaal").Range("totaal_behandeling").Value = Sheets("Behandelingen").Range("C34")
         Sheets("Totaal").Range("totaal_type").Value = Sheets("Behandelingen").Range("D34")
      ElseIf GSourceCell = "B35" Then
         Sheets("Totaal").Range("totaal_behandeling").Value = Sheets("Behandelingen").Range("C35")
         Sheets("Totaal").Range("totaal_type").Value = Sheets("Behandelingen").Range("D35")
      ElseIf GSourceCell = "B36" Then
         Sheets("Totaal").Range("totaal_behandeling").Value = Sheets("Behandelingen").Range("C36")
         Sheets("Totaal").Range("totaal_type").Value = Sheets("Behandelingen").Range("D36")
      ElseIf GSourceCell = "B37" Then
         Sheets("Totaal").Range("totaal_behandeling").Value = Sheets("Behandelingen").Range("C37")
         Sheets("Totaal").Range("totaal_type").Value = Sheets("Behandelingen").Range("D37")
      ElseIf GSourceCell = "B38" Then
         Sheets("Totaal").Range("totaal_behandeling").Value = Sheets("Behandelingen").Range("C38")
         Sheets("Totaal").Range("totaal_type").Value = Sheets("Behandelingen").Range("D38")
      ElseIf GSourceCell = "B39" Then
         Sheets("Totaal").Range("totaal_behandeling").Value = Sheets("Behandelingen").Range("C39")
         Sheets("Totaal").Range("totaal_type").Value = Sheets("Behandelingen").Range("D39")
      ElseIf GSourceCell = "B40" Then
         Sheets("Totaal").Range("totaal_behandeling").Value = Sheets("Behandelingen").Range("C40")
         Sheets("Totaal").Range("totaal_type").Value = Sheets("Behandelingen").Range("D40")
      ElseIf GSourceCell = "B41" Then
         Sheets("Totaal").Range("totaal_behandeling").Value = Sheets("Behandelingen").Range("C41")
         Sheets("Totaal").Range("totaal_type").Value = Sheets("Behandelingen").Range("D41")
      ElseIf GSourceCell = "B42" Then
         Sheets("Totaal").Range("totaal_behandeling").Value = Sheets("Behandelingen").Range("C42")
         Sheets("Totaal").Range("totaal_type").Value = Sheets("Behandelingen").Range("D42")
      ElseIf GSourceCell = "B43" Then
         Sheets("Totaal").Range("totaal_behandeling").Value = Sheets("Behandelingen").Range("C43")
         Sheets("Totaal").Range("totaal_type").Value = Sheets("Behandelingen").Range("D43")
      ElseIf GSourceCell = "B44" Then
         Sheets("Totaal").Range("totaal_behandeling").Value = Sheets("Behandelingen").Range("C44")
         Sheets("Totaal").Range("totaal_type").Value = Sheets("Behandelingen").Range("D44")
      ElseIf GSourceCell = "B45" Then
         Sheets("Totaal").Range("totaal_behandeling").Value = Sheets("Behandelingen").Range("C45")
         Sheets("Totaal").Range("totaal_type").Value = Sheets("Behandelingen").Range("D45")
      ElseIf GSourceCell = "B46" Then
         Sheets("Totaal").Range("totaal_behandeling").Value = Sheets("Behandelingen").Range("C46")
         Sheets("Totaal").Range("totaal_type").Value = Sheets("Behandelingen").Range("D46")
      ElseIf GSourceCell = "B47" Then
         Sheets("Totaal").Range("totaal_behandeling").Value = Sheets("Behandelingen").Range("C47")
         Sheets("Totaal").Range("totaal_type").Value = Sheets("Behandelingen").Range("D47")
      ElseIf GSourceCell = "B48" Then
         Sheets("Totaal").Range("totaal_behandeling").Value = Sheets("Behandelingen").Range("C48")
         Sheets("Totaal").Range("totaal_type").Value = Sheets("Behandelingen").Range("D48")
      ElseIf GSourceCell = "B49" Then
         Sheets("Totaal").Range("totaal_behandeling").Value = Sheets("Behandelingen").Range("C49")
         Sheets("Totaal").Range("totaal_type").Value = Sheets("Behandelingen").Range("D49")
      ElseIf GSourceCell = "B50" Then
         Sheets("Totaal").Range("totaal_behandeling").Value = Sheets("Behandelingen").Range("C50")
         Sheets("Totaal").Range("totaal_type").Value = Sheets("Behandelingen").Range("D50")
      ElseIf GSourceCell = "B51" Then
         Sheets("Totaal").Range("totaal_behandeling").Value = Sheets("Behandelingen").Range("C51")
         Sheets("Totaal").Range("totaal_type").Value = Sheets("Behandelingen").Range("D51")
      ElseIf GSourceCell = "B52" Then
         Sheets("Totaal").Range("totaal_behandeling").Value = Sheets("Behandelingen").Range("C52")
         Sheets("Totaal").Range("totaal_type").Value = Sheets("Behandelingen").Range("D52")
      ElseIf GSourceCell = "B53" Then
         Sheets("Totaal").Range("totaal_behandeling").Value = Sheets("Behandelingen").Range("C53")
         Sheets("Totaal").Range("totaal_type").Value = Sheets("Behandelingen").Range("D53")
      ElseIf GSourceCell = "B54" Then
         Sheets("Totaal").Range("totaal_behandeling").Value = Sheets("Behandelingen").Range("C54")
         Sheets("Totaal").Range("totaal_type").Value = Sheets("Behandelingen").Range("D54")
      ElseIf GSourceCell = "B55" Then
         Sheets("Totaal").Range("totaal_behandeling").Value = Sheets("Behandelingen").Range("C55")
         Sheets("Totaal").Range("totaal_type").Value = Sheets("Behandelingen").Range("D55")
      ElseIf GSourceCell = "B56" Then
         Sheets("Totaal").Range("totaal_behandeling").Value = Sheets("Behandelingen").Range("C56")
         Sheets("Totaal").Range("totaal_type").Value = Sheets("Behandelingen").Range("D56")
         
'EFG
      ElseIf GSourceCell = "E7" Then
         Sheets("Totaal").Range("totaal_behandeling").Value = Sheets("Behandelingen").Range("F7")
         Sheets("Totaal").Range("totaal_type").Value = Sheets("Behandelingen").Range("G7")
      ElseIf GSourceCell = "E8" Then
         Sheets("Totaal").Range("totaal_behandeling").Value = Sheets("Behandelingen").Range("F8")
         Sheets("Totaal").Range("totaal_type").Value = Sheets("Behandelingen").Range("G8")
      ElseIf GSourceCell = "E9" Then
         Sheets("Totaal").Range("totaal_behandeling").Value = Sheets("Behandelingen").Range("F9")
         Sheets("Totaal").Range("totaal_type").Value = Sheets("Behandelingen").Range("G9")
      ElseIf GSourceCell = "E10" Then
         Sheets("Totaal").Range("totaal_behandeling").Value = Sheets("Behandelingen").Range("F10")
         Sheets("Totaal").Range("totaal_type").Value = Sheets("Behandelingen").Range("G10")
      ElseIf GSourceCell = "E11" Then
         Sheets("Totaal").Range("totaal_behandeling").Value = Sheets("Behandelingen").Range("F11")
         Sheets("Totaal").Range("totaal_type").Value = Sheets("Behandelingen").Range("G11")
      ElseIf GSourceCell = "E12" Then
         Sheets("Totaal").Range("totaal_behandeling").Value = Sheets("Behandelingen").Range("F12")
         Sheets("Totaal").Range("totaal_type").Value = Sheets("Behandelingen").Range("G12")
      ElseIf GSourceCell = "E13" Then
         Sheets("Totaal").Range("totaal_behandeling").Value = Sheets("Behandelingen").Range("F13")
         Sheets("Totaal").Range("totaal_type").Value = Sheets("Behandelingen").Range("G13")
      ElseIf GSourceCell = "E14" Then
         Sheets("Totaal").Range("totaal_behandeling").Value = Sheets("Behandelingen").Range("F14")
         Sheets("Totaal").Range("totaal_type").Value = Sheets("Behandelingen").Range("G14")
      ElseIf GSourceCell = "E15" Then
         Sheets("Totaal").Range("totaal_behandeling").Value = Sheets("Behandelingen").Range("F15")
         Sheets("Totaal").Range("totaal_type").Value = Sheets("Behandelingen").Range("G15")
      ElseIf GSourceCell = "E16" Then
         Sheets("Totaal").Range("totaal_behandeling").Value = Sheets("Behandelingen").Range("F16")
         Sheets("Totaal").Range("totaal_type").Value = Sheets("Behandelingen").Range("G16")
      ElseIf GSourceCell = "E17" Then
         Sheets("Totaal").Range("totaal_behandeling").Value = Sheets("Behandelingen").Range("F17")
         Sheets("Totaal").Range("totaal_type").Value = Sheets("Behandelingen").Range("G17")
      ElseIf GSourceCell = "E18" Then
         Sheets("Totaal").Range("totaal_behandeling").Value = Sheets("Behandelingen").Range("F18")
         Sheets("Totaal").Range("totaal_type").Value = Sheets("Behandelingen").Range("G18")
      ElseIf GSourceCell = "E19" Then
         Sheets("Totaal").Range("totaal_behandeling").Value = Sheets("Behandelingen").Range("F19")
         Sheets("Totaal").Range("totaal_type").Value = Sheets("Behandelingen").Range("G19")
      ElseIf GSourceCell = "E21" Then
         Sheets("Totaal").Range("totaal_behandeling").Value = Sheets("Behandelingen").Range("F21")
         Sheets("Totaal").Range("totaal_type").Value = Sheets("Behandelingen").Range("G21")
      ElseIf GSourceCell = "E22" Then
         Sheets("Totaal").Range("totaal_behandeling").Value = Sheets("Behandelingen").Range("F22")
         Sheets("Totaal").Range("totaal_type").Value = Sheets("Behandelingen").Range("G22")
      ElseIf GSourceCell = "E23" Then
         Sheets("Totaal").Range("totaal_behandeling").Value = Sheets("Behandelingen").Range("F23")
         Sheets("Totaal").Range("totaal_type").Value = Sheets("Behandelingen").Range("G23")
      ElseIf GSourceCell = "E24" Then
         Sheets("Totaal").Range("totaal_behandeling").Value = Sheets("Behandelingen").Range("F24")
         Sheets("Totaal").Range("totaal_type").Value = Sheets("Behandelingen").Range("G24")
      ElseIf GSourceCell = "E25" Then
         Sheets("Totaal").Range("totaal_behandeling").Value = Sheets("Behandelingen").Range("F25")
         Sheets("Totaal").Range("totaal_type").Value = Sheets("Behandelingen").Range("G25")
      ElseIf GSourceCell = "E26" Then
         Sheets("Totaal").Range("totaal_behandeling").Value = Sheets("Behandelingen").Range("F26")
         Sheets("Totaal").Range("totaal_type").Value = Sheets("Behandelingen").Range("G26")
      ElseIf GSourceCell = "E27" Then
         Sheets("Totaal").Range("totaal_behandeling").Value = Sheets("Behandelingen").Range("F27")
         Sheets("Totaal").Range("totaal_type").Value = Sheets("Behandelingen").Range("G27")
      ElseIf GSourceCell = "E28" Then
         Sheets("Totaal").Range("totaal_behandeling").Value = Sheets("Behandelingen").Range("F28")
         Sheets("Totaal").Range("totaal_type").Value = Sheets("Behandelingen").Range("G28")
      ElseIf GSourceCell = "E29" Then
         Sheets("Totaal").Range("totaal_behandeling").Value = Sheets("Behandelingen").Range("F29")
         Sheets("Totaal").Range("totaal_type").Value = Sheets("Behandelingen").Range("G29")
      ElseIf GSourceCell = "E30" Then
         Sheets("Totaal").Range("totaal_behandeling").Value = Sheets("Behandelingen").Range("F30")
         Sheets("Totaal").Range("totaal_type").Value = Sheets("Behandelingen").Range("G30")
      ElseIf GSourceCell = "E31" Then
         Sheets("Totaal").Range("totaal_behandeling").Value = Sheets("Behandelingen").Range("F31")
         Sheets("Totaal").Range("totaal_type").Value = Sheets("Behandelingen").Range("G31")
      ElseIf GSourceCell = "E32" Then
         Sheets("Totaal").Range("totaal_behandeling").Value = Sheets("Behandelingen").Range("F32")
         Sheets("Totaal").Range("totaal_type").Value = Sheets("Behandelingen").Range("G32")
      ElseIf GSourceCell = "E33" Then
         Sheets("Totaal").Range("totaal_behandeling").Value = Sheets("Behandelingen").Range("F33")
         Sheets("Totaal").Range("totaal_type").Value = Sheets("Behandelingen").Range("G33")
      ElseIf GSourceCell = "E34" Then
         Sheets("Totaal").Range("totaal_behandeling").Value = Sheets("Behandelingen").Range("F34")
         Sheets("Totaal").Range("totaal_type").Value = Sheets("Behandelingen").Range("G34")
      ElseIf GSourceCell = "E35" Then
         Sheets("Totaal").Range("totaal_behandeling").Value = Sheets("Behandelingen").Range("F35")
         Sheets("Totaal").Range("totaal_type").Value = Sheets("Behandelingen").Range("G35")
      ElseIf GSourceCell = "E36" Then
         Sheets("Totaal").Range("totaal_behandeling").Value = Sheets("Behandelingen").Range("F36")
         Sheets("Totaal").Range("totaal_type").Value = Sheets("Behandelingen").Range("G36")
      ElseIf GSourceCell = "E37" Then
         Sheets("Totaal").Range("totaal_behandeling").Value = Sheets("Behandelingen").Range("F37")
         Sheets("Totaal").Range("totaal_type").Value = Sheets("Behandelingen").Range("G37")
      ElseIf GSourceCell = "E38" Then
         Sheets("Totaal").Range("totaal_behandeling").Value = Sheets("Behandelingen").Range("F38")
         Sheets("Totaal").Range("totaal_type").Value = Sheets("Behandelingen").Range("G38")
      ElseIf GSourceCell = "E39" Then
         Sheets("Totaal").Range("totaal_behandeling").Value = Sheets("Behandelingen").Range("F39")
         Sheets("Totaal").Range("totaal_type").Value = Sheets("Behandelingen").Range("G39")
      ElseIf GSourceCell = "E40" Then
         Sheets("Totaal").Range("totaal_behandeling").Value = Sheets("Behandelingen").Range("F40")
         Sheets("Totaal").Range("totaal_type").Value = Sheets("Behandelingen").Range("G40")
      ElseIf GSourceCell = "E41" Then
         Sheets("Totaal").Range("totaal_behandeling").Value = Sheets("Behandelingen").Range("F41")
         Sheets("Totaal").Range("totaal_type").Value = Sheets("Behandelingen").Range("G41")
      ElseIf GSourceCell = "E42" Then
         Sheets("Totaal").Range("totaal_behandeling").Value = Sheets("Behandelingen").Range("F42")
         Sheets("Totaal").Range("totaal_type").Value = Sheets("Behandelingen").Range("G42")
      ElseIf GSourceCell = "E43" Then
         Sheets("Totaal").Range("totaal_behandeling").Value = Sheets("Behandelingen").Range("F43")
         Sheets("Totaal").Range("totaal_type").Value = Sheets("Behandelingen").Range("G43")
      ElseIf GSourceCell = "E44" Then
         Sheets("Totaal").Range("totaal_behandeling").Value = Sheets("Behandelingen").Range("F44")
         Sheets("Totaal").Range("totaal_type").Value = Sheets("Behandelingen").Range("G44")
      ElseIf GSourceCell = "E45" Then
         Sheets("Totaal").Range("totaal_behandeling").Value = Sheets("Behandelingen").Range("F45")
         Sheets("Totaal").Range("totaal_type").Value = Sheets("Behandelingen").Range("G45")
      ElseIf GSourceCell = "E46" Then
         Sheets("Totaal").Range("totaal_behandeling").Value = Sheets("Behandelingen").Range("F46")
         Sheets("Totaal").Range("totaal_type").Value = Sheets("Behandelingen").Range("G46")
      ElseIf GSourceCell = "E47" Then
         Sheets("Totaal").Range("totaal_behandeling").Value = Sheets("Behandelingen").Range("F47")
         Sheets("Totaal").Range("totaal_type").Value = Sheets("Behandelingen").Range("G47")
      ElseIf GSourceCell = "E48" Then
         Sheets("Totaal").Range("totaal_behandeling").Value = Sheets("Behandelingen").Range("F48")
         Sheets("Totaal").Range("totaal_type").Value = Sheets("Behandelingen").Range("G48")
      ElseIf GSourceCell = "E49" Then
         Sheets("Totaal").Range("totaal_behandeling").Value = Sheets("Behandelingen").Range("F49")
         Sheets("Totaal").Range("totaal_type").Value = Sheets("Behandelingen").Range("G49")
      ElseIf GSourceCell = "E50" Then
         Sheets("Totaal").Range("totaal_behandeling").Value = Sheets("Behandelingen").Range("F50")
         Sheets("Totaal").Range("totaal_type").Value = Sheets("Behandelingen").Range("G50")
      ElseIf GSourceCell = "E51" Then
         Sheets("Totaal").Range("totaal_behandeling").Value = Sheets("Behandelingen").Range("F51")
         Sheets("Totaal").Range("totaal_type").Value = Sheets("Behandelingen").Range("G51")
      ElseIf GSourceCell = "E52" Then
         Sheets("Totaal").Range("totaal_behandeling").Value = Sheets("Behandelingen").Range("F52")
         Sheets("Totaal").Range("totaal_type").Value = Sheets("Behandelingen").Range("G52")
      ElseIf GSourceCell = "E53" Then
         Sheets("Totaal").Range("totaal_behandeling").Value = Sheets("Behandelingen").Range("F53")
         Sheets("Totaal").Range("totaal_type").Value = Sheets("Behandelingen").Range("G53")
      ElseIf GSourceCell = "E54" Then
         Sheets("Totaal").Range("totaal_behandeling").Value = Sheets("Behandelingen").Range("F54")
         Sheets("Totaal").Range("totaal_type").Value = Sheets("Behandelingen").Range("G54")
      ElseIf GSourceCell = "E55" Then
         Sheets("Totaal").Range("totaal_behandeling").Value = Sheets("Behandelingen").Range("F55")
         Sheets("Totaal").Range("totaal_type").Value = Sheets("Behandelingen").Range("G55")
      ElseIf GSourceCell = "E56" Then
         Sheets("Totaal").Range("totaal_behandeling").Value = Sheets("Behandelingen").Range("F56")
         Sheets("Totaal").Range("totaal_type").Value = Sheets("Behandelingen").Range("G56")

'HIJ
      ElseIf GSourceCell = "H7" Then
         Sheets("Totaal").Range("totaal_behandeling").Value = Sheets("Behandelingen").Range("I7")
         Sheets("Totaal").Range("totaal_type").Value = Sheets("Behandelingen").Range("J7")
      ElseIf GSourceCell = "H8" Then
         Sheets("Totaal").Range("totaal_behandeling").Value = Sheets("Behandelingen").Range("I8")
         Sheets("Totaal").Range("totaal_type").Value = Sheets("Behandelingen").Range("J8")
      ElseIf GSourceCell = "H9" Then
         Sheets("Totaal").Range("totaal_behandeling").Value = Sheets("Behandelingen").Range("I9")
         Sheets("Totaal").Range("totaal_type").Value = Sheets("Behandelingen").Range("J9")
      ElseIf GSourceCell = "H10" Then
         Sheets("Totaal").Range("totaal_behandeling").Value = Sheets("Behandelingen").Range("I10")
         Sheets("Totaal").Range("totaal_type").Value = Sheets("Behandelingen").Range("J10")
      ElseIf GSourceCell = "H11" Then
         Sheets("Totaal").Range("totaal_behandeling").Value = Sheets("Behandelingen").Range("I11")
         Sheets("Totaal").Range("totaal_type").Value = Sheets("Behandelingen").Range("J11")
      ElseIf GSourceCell = "H12" Then
         Sheets("Totaal").Range("totaal_behandeling").Value = Sheets("Behandelingen").Range("I12")
         Sheets("Totaal").Range("totaal_type").Value = Sheets("Behandelingen").Range("J12")
      ElseIf GSourceCell = "H13" Then
         Sheets("Totaal").Range("totaal_behandeling").Value = Sheets("Behandelingen").Range("I13")
         Sheets("Totaal").Range("totaal_type").Value = Sheets("Behandelingen").Range("J13")
      ElseIf GSourceCell = "H14" Then
         Sheets("Totaal").Range("totaal_behandeling").Value = Sheets("Behandelingen").Range("I14")
         Sheets("Totaal").Range("totaal_type").Value = Sheets("Behandelingen").Range("J14")
      ElseIf GSourceCell = "H15" Then
         Sheets("Totaal").Range("totaal_behandeling").Value = Sheets("Behandelingen").Range("I15")
         Sheets("Totaal").Range("totaal_type").Value = Sheets("Behandelingen").Range("J15")
      ElseIf GSourceCell = "H16" Then
         Sheets("Totaal").Range("totaal_behandeling").Value = Sheets("Behandelingen").Range("I16")
         Sheets("Totaal").Range("totaal_type").Value = Sheets("Behandelingen").Range("J16")
      ElseIf GSourceCell = "H17" Then
         Sheets("Totaal").Range("totaal_behandeling").Value = Sheets("Behandelingen").Range("I17")
         Sheets("Totaal").Range("totaal_type").Value = Sheets("Behandelingen").Range("J17")
      ElseIf GSourceCell = "H18" Then
         Sheets("Totaal").Range("totaal_behandeling").Value = Sheets("Behandelingen").Range("I18")
         Sheets("Totaal").Range("totaal_type").Value = Sheets("Behandelingen").Range("J18")
      ElseIf GSourceCell = "H19" Then
         Sheets("Totaal").Range("totaal_behandeling").Value = Sheets("Behandelingen").Range("I19")
         Sheets("Totaal").Range("totaal_type").Value = Sheets("Behandelingen").Range("J19")
      ElseIf GSourceCell = "H20" Then
         Sheets("Totaal").Range("totaal_behandeling").Value = Sheets("Behandelingen").Range("I20")
         Sheets("Totaal").Range("totaal_type").Value = Sheets("Behandelingen").Range("J20")
      ElseIf GSourceCell = "H21" Then
         Sheets("Totaal").Range("totaal_behandeling").Value = Sheets("Behandelingen").Range("I21")
         Sheets("Totaal").Range("totaal_type").Value = Sheets("Behandelingen").Range("J21")
      ElseIf GSourceCell = "H22" Then
         Sheets("Totaal").Range("totaal_behandeling").Value = Sheets("Behandelingen").Range("I22")
         Sheets("Totaal").Range("totaal_type").Value = Sheets("Behandelingen").Range("J22")
      ElseIf GSourceCell = "H23" Then
         Sheets("Totaal").Range("totaal_behandeling").Value = Sheets("Behandelingen").Range("I23")
         Sheets("Totaal").Range("totaal_type").Value = Sheets("Behandelingen").Range("J23")
      ElseIf GSourceCell = "H24" Then
         Sheets("Totaal").Range("totaal_behandeling").Value = Sheets("Behandelingen").Range("I24")
         Sheets("Totaal").Range("totaal_type").Value = Sheets("Behandelingen").Range("J24")
      ElseIf GSourceCell = "H25" Then
         Sheets("Totaal").Range("totaal_behandeling").Value = Sheets("Behandelingen").Range("I25")
         Sheets("Totaal").Range("totaal_type").Value = Sheets("Behandelingen").Range("J25")
      ElseIf GSourceCell = "H26" Then
         Sheets("Totaal").Range("totaal_behandeling").Value = Sheets("Behandelingen").Range("I26")
         Sheets("Totaal").Range("totaal_type").Value = Sheets("Behandelingen").Range("J26")
      ElseIf GSourceCell = "H27" Then
         Sheets("Totaal").Range("totaal_behandeling").Value = Sheets("Behandelingen").Range("I27")
         Sheets("Totaal").Range("totaal_type").Value = Sheets("Behandelingen").Range("J27")
      ElseIf GSourceCell = "H28" Then
         Sheets("Totaal").Range("totaal_behandeling").Value = Sheets("Behandelingen").Range("I28")
         Sheets("Totaal").Range("totaal_type").Value = Sheets("Behandelingen").Range("J28")
      ElseIf GSourceCell = "H29" Then
         Sheets("Totaal").Range("totaal_behandeling").Value = Sheets("Behandelingen").Range("I29")
         Sheets("Totaal").Range("totaal_type").Value = Sheets("Behandelingen").Range("J29")
      ElseIf GSourceCell = "H30" Then
         Sheets("Totaal").Range("totaal_behandeling").Value = Sheets("Behandelingen").Range("I30")
         Sheets("Totaal").Range("totaal_type").Value = Sheets("Behandelingen").Range("J30")
      ElseIf GSourceCell = "H31" Then
         Sheets("Totaal").Range("totaal_behandeling").Value = Sheets("Behandelingen").Range("I31")
         Sheets("Totaal").Range("totaal_type").Value = Sheets("Behandelingen").Range("J31")
      ElseIf GSourceCell = "H32" Then
         Sheets("Totaal").Range("totaal_behandeling").Value = Sheets("Behandelingen").Range("I32")
         Sheets("Totaal").Range("totaal_type").Value = Sheets("Behandelingen").Range("J32")
      ElseIf GSourceCell = "H33" Then
         Sheets("Totaal").Range("totaal_behandeling").Value = Sheets("Behandelingen").Range("I33")
         Sheets("Totaal").Range("totaal_type").Value = Sheets("Behandelingen").Range("J33")
      ElseIf GSourceCell = "H34" Then
         Sheets("Totaal").Range("totaal_behandeling").Value = Sheets("Behandelingen").Range("I34")
         Sheets("Totaal").Range("totaal_type").Value = Sheets("Behandelingen").Range("J34")
      ElseIf GSourceCell = "H35" Then
         Sheets("Totaal").Range("totaal_behandeling").Value = Sheets("Behandelingen").Range("I35")
         Sheets("Totaal").Range("totaal_type").Value = Sheets("Behandelingen").Range("J35")
      ElseIf GSourceCell = "H36" Then
         Sheets("Totaal").Range("totaal_behandeling").Value = Sheets("Behandelingen").Range("I36")
         Sheets("Totaal").Range("totaal_type").Value = Sheets("Behandelingen").Range("J36")
      ElseIf GSourceCell = "H37" Then
         Sheets("Totaal").Range("totaal_behandeling").Value = Sheets("Behandelingen").Range("I37")
         Sheets("Totaal").Range("totaal_type").Value = Sheets("Behandelingen").Range("J37")
      ElseIf GSourceCell = "H38" Then
         Sheets("Totaal").Range("totaal_behandeling").Value = Sheets("Behandelingen").Range("I38")
         Sheets("Totaal").Range("totaal_type").Value = Sheets("Behandelingen").Range("J38")
      ElseIf GSourceCell = "H39" Then
         Sheets("Totaal").Range("totaal_behandeling").Value = Sheets("Behandelingen").Range("I39")
         Sheets("Totaal").Range("totaal_type").Value = Sheets("Behandelingen").Range("J39")
      ElseIf GSourceCell = "H40" Then
         Sheets("Totaal").Range("totaal_behandeling").Value = Sheets("Behandelingen").Range("I40")
         Sheets("Totaal").Range("totaal_type").Value = Sheets("Behandelingen").Range("J40")
      ElseIf GSourceCell = "H41" Then
         Sheets("Totaal").Range("totaal_behandeling").Value = Sheets("Behandelingen").Range("I41")
         Sheets("Totaal").Range("totaal_type").Value = Sheets("Behandelingen").Range("J41")
      ElseIf GSourceCell = "H42" Then
         Sheets("Totaal").Range("totaal_behandeling").Value = Sheets("Behandelingen").Range("I42")
         Sheets("Totaal").Range("totaal_type").Value = Sheets("Behandelingen").Range("J42")
      ElseIf GSourceCell = "H43" Then
         Sheets("Totaal").Range("totaal_behandeling").Value = Sheets("Behandelingen").Range("I43")
         Sheets("Totaal").Range("totaal_type").Value = Sheets("Behandelingen").Range("J43")
      ElseIf GSourceCell = "H44" Then
         Sheets("Totaal").Range("totaal_behandeling").Value = Sheets("Behandelingen").Range("I44")
         Sheets("Totaal").Range("totaal_type").Value = Sheets("Behandelingen").Range("J44")
      ElseIf GSourceCell = "H45" Then
         Sheets("Totaal").Range("totaal_behandeling").Value = Sheets("Behandelingen").Range("I45")
         Sheets("Totaal").Range("totaal_type").Value = Sheets("Behandelingen").Range("J45")
      ElseIf GSourceCell = "H46" Then
         Sheets("Totaal").Range("totaal_behandeling").Value = Sheets("Behandelingen").Range("I46")
         Sheets("Totaal").Range("totaal_type").Value = Sheets("Behandelingen").Range("J46")
      ElseIf GSourceCell = "H47" Then
         Sheets("Totaal").Range("totaal_behandeling").Value = Sheets("Behandelingen").Range("I47")
         Sheets("Totaal").Range("totaal_type").Value = Sheets("Behandelingen").Range("J47")
      ElseIf GSourceCell = "H48" Then
         Sheets("Totaal").Range("totaal_behandeling").Value = Sheets("Behandelingen").Range("I48")
         Sheets("Totaal").Range("totaal_type").Value = Sheets("Behandelingen").Range("J48")
      ElseIf GSourceCell = "H49" Then
         Sheets("Totaal").Range("totaal_behandeling").Value = Sheets("Behandelingen").Range("I49")
         Sheets("Totaal").Range("totaal_type").Value = Sheets("Behandelingen").Range("J49")
      ElseIf GSourceCell = "H50" Then
         Sheets("Totaal").Range("totaal_behandeling").Value = Sheets("Behandelingen").Range("I50")
         Sheets("Totaal").Range("totaal_type").Value = Sheets("Behandelingen").Range("J50")
      ElseIf GSourceCell = "H51" Then
         Sheets("Totaal").Range("totaal_behandeling").Value = Sheets("Behandelingen").Range("I51")
         Sheets("Totaal").Range("totaal_type").Value = Sheets("Behandelingen").Range("J51")
      ElseIf GSourceCell = "H52" Then
         Sheets("Totaal").Range("totaal_behandeling").Value = Sheets("Behandelingen").Range("I52")
         Sheets("Totaal").Range("totaal_type").Value = Sheets("Behandelingen").Range("J52")
      ElseIf GSourceCell = "H53" Then
         Sheets("Totaal").Range("totaal_behandeling").Value = Sheets("Behandelingen").Range("I53")
         Sheets("Totaal").Range("totaal_type").Value = Sheets("Behandelingen").Range("J53")
      ElseIf GSourceCell = "H54" Then
         Sheets("Totaal").Range("totaal_behandeling").Value = Sheets("Behandelingen").Range("I54")
         Sheets("Totaal").Range("totaal_type").Value = Sheets("Behandelingen").Range("J54")
      ElseIf GSourceCell = "H55" Then
         Sheets("Totaal").Range("totaal_behandeling").Value = Sheets("Behandelingen").Range("I55")
         Sheets("Totaal").Range("totaal_type").Value = Sheets("Behandelingen").Range("J55")
      ElseIf GSourceCell = "H56" Then
         Sheets("Totaal").Range("totaal_behandeling").Value = Sheets("Behandelingen").Range("I56")
         Sheets("Totaal").Range("totaal_type").Value = Sheets("Behandelingen").Range("J56")


'KLM
      ElseIf GSourceCell = "K7" Then
         Sheets("Totaal").Range("totaal_behandeling").Value = Sheets("Behandelingen").Range("L7")
         Sheets("Totaal").Range("totaal_type").Value = Sheets("Behandelingen").Range("M7")
      ElseIf GSourceCell = "K8" Then
         Sheets("Totaal").Range("totaal_behandeling").Value = Sheets("Behandelingen").Range("L8")
         Sheets("Totaal").Range("totaal_type").Value = Sheets("Behandelingen").Range("M8")
      ElseIf GSourceCell = "K9" Then
         Sheets("Totaal").Range("totaal_behandeling").Value = Sheets("Behandelingen").Range("L9")
         Sheets("Totaal").Range("totaal_type").Value = Sheets("Behandelingen").Range("M9")
      ElseIf GSourceCell = "K10" Then
         Sheets("Totaal").Range("totaal_behandeling").Value = Sheets("Behandelingen").Range("L10")
         Sheets("Totaal").Range("totaal_type").Value = Sheets("Behandelingen").Range("M10")
      ElseIf GSourceCell = "K11" Then
         Sheets("Totaal").Range("totaal_behandeling").Value = Sheets("Behandelingen").Range("L11")
         Sheets("Totaal").Range("totaal_type").Value = Sheets("Behandelingen").Range("M11")
      ElseIf GSourceCell = "K12" Then
         Sheets("Totaal").Range("totaal_behandeling").Value = Sheets("Behandelingen").Range("L12")
         Sheets("Totaal").Range("totaal_type").Value = Sheets("Behandelingen").Range("M12")
      ElseIf GSourceCell = "K13" Then
         Sheets("Totaal").Range("totaal_behandeling").Value = Sheets("Behandelingen").Range("L13")
         Sheets("Totaal").Range("totaal_type").Value = Sheets("Behandelingen").Range("M13")
      ElseIf GSourceCell = "K14" Then
         Sheets("Totaal").Range("totaal_behandeling").Value = Sheets("Behandelingen").Range("L14")
         Sheets("Totaal").Range("totaal_type").Value = Sheets("Behandelingen").Range("M14")
      ElseIf GSourceCell = "K15" Then
         Sheets("Totaal").Range("totaal_behandeling").Value = Sheets("Behandelingen").Range("L15")
         Sheets("Totaal").Range("totaal_type").Value = Sheets("Behandelingen").Range("M15")
      ElseIf GSourceCell = "K16" Then
         Sheets("Totaal").Range("totaal_behandeling").Value = Sheets("Behandelingen").Range("L16")
         Sheets("Totaal").Range("totaal_type").Value = Sheets("Behandelingen").Range("M16")
      ElseIf GSourceCell = "K17" Then
         Sheets("Totaal").Range("totaal_behandeling").Value = Sheets("Behandelingen").Range("L17")
         Sheets("Totaal").Range("totaal_type").Value = Sheets("Behandelingen").Range("M17")
      ElseIf GSourceCell = "K18" Then
         Sheets("Totaal").Range("totaal_behandeling").Value = Sheets("Behandelingen").Range("L18")
         Sheets("Totaal").Range("totaal_type").Value = Sheets("Behandelingen").Range("M18")
      ElseIf GSourceCell = "K19" Then
         Sheets("Totaal").Range("totaal_behandeling").Value = Sheets("Behandelingen").Range("L19")
         Sheets("Totaal").Range("totaal_type").Value = Sheets("Behandelingen").Range("M19")
      ElseIf GSourceCell = "K20" Then
         Sheets("Totaal").Range("totaal_behandeling").Value = Sheets("Behandelingen").Range("L20")
         Sheets("Totaal").Range("totaal_type").Value = Sheets("Behandelingen").Range("M20")
      ElseIf GSourceCell = "K21" Then
         Sheets("Totaal").Range("totaal_behandeling").Value = Sheets("Behandelingen").Range("L21")
         Sheets("Totaal").Range("totaal_type").Value = Sheets("Behandelingen").Range("M21")
      ElseIf GSourceCell = "K22" Then
         Sheets("Totaal").Range("totaal_behandeling").Value = Sheets("Behandelingen").Range("L22")
         Sheets("Totaal").Range("totaal_type").Value = Sheets("Behandelingen").Range("M22")
      ElseIf GSourceCell = "K23" Then
         Sheets("Totaal").Range("totaal_behandeling").Value = Sheets("Behandelingen").Range("L23")
         Sheets("Totaal").Range("totaal_type").Value = Sheets("Behandelingen").Range("M23")
      ElseIf GSourceCell = "K24" Then
         Sheets("Totaal").Range("totaal_behandeling").Value = Sheets("Behandelingen").Range("L24")
         Sheets("Totaal").Range("totaal_type").Value = Sheets("Behandelingen").Range("M24")
      ElseIf GSourceCell = "K25" Then
         Sheets("Totaal").Range("totaal_behandeling").Value = Sheets("Behandelingen").Range("L25")
         Sheets("Totaal").Range("totaal_type").Value = Sheets("Behandelingen").Range("M25")
      ElseIf GSourceCell = "K26" Then
         Sheets("Totaal").Range("totaal_behandeling").Value = Sheets("Behandelingen").Range("L26")
         Sheets("Totaal").Range("totaal_type").Value = Sheets("Behandelingen").Range("M26")
      ElseIf GSourceCell = "K27" Then
         Sheets("Totaal").Range("totaal_behandeling").Value = Sheets("Behandelingen").Range("L27")
         Sheets("Totaal").Range("totaal_type").Value = Sheets("Behandelingen").Range("M27")
      ElseIf GSourceCell = "K28" Then
         Sheets("Totaal").Range("totaal_behandeling").Value = Sheets("Behandelingen").Range("L28")
         Sheets("Totaal").Range("totaal_type").Value = Sheets("Behandelingen").Range("M28")
      ElseIf GSourceCell = "K29" Then
         Sheets("Totaal").Range("totaal_behandeling").Value = Sheets("Behandelingen").Range("L29")
         Sheets("Totaal").Range("totaal_type").Value = Sheets("Behandelingen").Range("M29")
      ElseIf GSourceCell = "K30" Then
         Sheets("Totaal").Range("totaal_behandeling").Value = Sheets("Behandelingen").Range("L30")
         Sheets("Totaal").Range("totaal_type").Value = Sheets("Behandelingen").Range("M30")
      ElseIf GSourceCell = "K31" Then
         Sheets("Totaal").Range("totaal_behandeling").Value = Sheets("Behandelingen").Range("L31")
         Sheets("Totaal").Range("totaal_type").Value = Sheets("Behandelingen").Range("M31")
      ElseIf GSourceCell = "K32" Then
         Sheets("Totaal").Range("totaal_behandeling").Value = Sheets("Behandelingen").Range("L32")
         Sheets("Totaal").Range("totaal_type").Value = Sheets("Behandelingen").Range("M32")
      ElseIf GSourceCell = "K33" Then
         Sheets("Totaal").Range("totaal_behandeling").Value = Sheets("Behandelingen").Range("L33")
         Sheets("Totaal").Range("totaal_type").Value = Sheets("Behandelingen").Range("M33")
      ElseIf GSourceCell = "K34" Then
         Sheets("Totaal").Range("totaal_behandeling").Value = Sheets("Behandelingen").Range("L34")
         Sheets("Totaal").Range("totaal_type").Value = Sheets("Behandelingen").Range("M34")
      ElseIf GSourceCell = "K35" Then
         Sheets("Totaal").Range("totaal_behandeling").Value = Sheets("Behandelingen").Range("L35")
         Sheets("Totaal").Range("totaal_type").Value = Sheets("Behandelingen").Range("M35")
      ElseIf GSourceCell = "K36" Then
         Sheets("Totaal").Range("totaal_behandeling").Value = Sheets("Behandelingen").Range("L36")
         Sheets("Totaal").Range("totaal_type").Value = Sheets("Behandelingen").Range("M36")
      ElseIf GSourceCell = "K37" Then
         Sheets("Totaal").Range("totaal_behandeling").Value = Sheets("Behandelingen").Range("L37")
         Sheets("Totaal").Range("totaal_type").Value = Sheets("Behandelingen").Range("M37")
      ElseIf GSourceCell = "K38" Then
         Sheets("Totaal").Range("totaal_behandeling").Value = Sheets("Behandelingen").Range("L38")
         Sheets("Totaal").Range("totaal_type").Value = Sheets("Behandelingen").Range("M38")
      ElseIf GSourceCell = "K39" Then
         Sheets("Totaal").Range("totaal_behandeling").Value = Sheets("Behandelingen").Range("L39")
         Sheets("Totaal").Range("totaal_type").Value = Sheets("Behandelingen").Range("M39")
      ElseIf GSourceCell = "K40" Then
         Sheets("Totaal").Range("totaal_behandeling").Value = Sheets("Behandelingen").Range("L40")
         Sheets("Totaal").Range("totaal_type").Value = Sheets("Behandelingen").Range("M40")
      ElseIf GSourceCell = "K41" Then
         Sheets("Totaal").Range("totaal_behandeling").Value = Sheets("Behandelingen").Range("L41")
         Sheets("Totaal").Range("totaal_type").Value = Sheets("Behandelingen").Range("M41")
      ElseIf GSourceCell = "K42" Then
         Sheets("Totaal").Range("totaal_behandeling").Value = Sheets("Behandelingen").Range("L42")
         Sheets("Totaal").Range("totaal_type").Value = Sheets("Behandelingen").Range("M42")
      ElseIf GSourceCell = "K43" Then
         Sheets("Totaal").Range("totaal_behandeling").Value = Sheets("Behandelingen").Range("L43")
         Sheets("Totaal").Range("totaal_type").Value = Sheets("Behandelingen").Range("M43")
      ElseIf GSourceCell = "K44" Then
         Sheets("Totaal").Range("totaal_behandeling").Value = Sheets("Behandelingen").Range("L44")
         Sheets("Totaal").Range("totaal_type").Value = Sheets("Behandelingen").Range("M44")
      ElseIf GSourceCell = "K45" Then
         Sheets("Totaal").Range("totaal_behandeling").Value = Sheets("Behandelingen").Range("L45")
         Sheets("Totaal").Range("totaal_type").Value = Sheets("Behandelingen").Range("M45")
      ElseIf GSourceCell = "K46" Then
         Sheets("Totaal").Range("totaal_behandeling").Value = Sheets("Behandelingen").Range("L46")
         Sheets("Totaal").Range("totaal_type").Value = Sheets("Behandelingen").Range("M46")
      ElseIf GSourceCell = "K47" Then
         Sheets("Totaal").Range("totaal_behandeling").Value = Sheets("Behandelingen").Range("L47")
         Sheets("Totaal").Range("totaal_type").Value = Sheets("Behandelingen").Range("M47")
      ElseIf GSourceCell = "K48" Then
         Sheets("Totaal").Range("totaal_behandeling").Value = Sheets("Behandelingen").Range("L48")
         Sheets("Totaal").Range("totaal_type").Value = Sheets("Behandelingen").Range("M48")
      ElseIf GSourceCell = "K49" Then
         Sheets("Totaal").Range("totaal_behandeling").Value = Sheets("Behandelingen").Range("L49")
         Sheets("Totaal").Range("totaal_type").Value = Sheets("Behandelingen").Range("M49")
      ElseIf GSourceCell = "K50" Then
         Sheets("Totaal").Range("totaal_behandeling").Value = Sheets("Behandelingen").Range("L50")
         Sheets("Totaal").Range("totaal_type").Value = Sheets("Behandelingen").Range("M50")
      ElseIf GSourceCell = "K51" Then
         Sheets("Totaal").Range("totaal_behandeling").Value = Sheets("Behandelingen").Range("L51")
         Sheets("Totaal").Range("totaal_type").Value = Sheets("Behandelingen").Range("M51")
      ElseIf GSourceCell = "K52" Then
         Sheets("Totaal").Range("totaal_behandeling").Value = Sheets("Behandelingen").Range("L52")
         Sheets("Totaal").Range("totaal_type").Value = Sheets("Behandelingen").Range("M52")
      ElseIf GSourceCell = "K53" Then
         Sheets("Totaal").Range("totaal_behandeling").Value = Sheets("Behandelingen").Range("L53")
         Sheets("Totaal").Range("totaal_type").Value = Sheets("Behandelingen").Range("M53")
      ElseIf GSourceCell = "K54" Then
         Sheets("Totaal").Range("totaal_behandeling").Value = Sheets("Behandelingen").Range("L54")
         Sheets("Totaal").Range("totaal_type").Value = Sheets("Behandelingen").Range("M54")
      ElseIf GSourceCell = "K55" Then
         Sheets("Totaal").Range("totaal_behandeling").Value = Sheets("Behandelingen").Range("L55")
         Sheets("Totaal").Range("totaal_type").Value = Sheets("Behandelingen").Range("M55")
      ElseIf GSourceCell = "K56" Then
         Sheets("Totaal").Range("totaal_behandeling").Value = Sheets("Behandelingen").Range("L56")
         Sheets("Totaal").Range("totaal_type").Value = Sheets("Behandelingen").Range("M56")
         
'NOP
      ElseIf GSourceCell = "N7" Then
         Sheets("totaal").Range("totaal_Behandeling").Value = Sheets("Behandelingen").Range("O7")
         Sheets("totaal").Range("totaal_type").Value = Sheets("Behandelingen").Range("P7")
      ElseIf GSourceCell = "N8" Then
         Sheets("totaal").Range("totaal_Behandeling").Value = Sheets("Behandelingen").Range("O8")
         Sheets("totaal").Range("totaal_type").Value = Sheets("Behandelingen").Range("P8")
      ElseIf GSourceCell = "N9" Then
         Sheets("totaal").Range("totaal_Behandeling").Value = Sheets("Behandelingen").Range("O9")
         Sheets("totaal").Range("totaal_type").Value = Sheets("Behandelingen").Range("P9")
      ElseIf GSourceCell = "N10" Then
         Sheets("totaal").Range("totaal_Behandeling").Value = Sheets("Behandelingen").Range("O10")
         Sheets("totaal").Range("totaal_type").Value = Sheets("Behandelingen").Range("P10")
      ElseIf GSourceCell = "N11" Then
         Sheets("totaal").Range("totaal_Behandeling").Value = Sheets("Behandelingen").Range("O11")
         Sheets("totaal").Range("totaal_type").Value = Sheets("Behandelingen").Range("P11")
      ElseIf GSourceCell = "N12" Then
         Sheets("totaal").Range("totaal_Behandeling").Value = Sheets("Behandelingen").Range("O12")
         Sheets("totaal").Range("totaal_type").Value = Sheets("Behandelingen").Range("P12")
      ElseIf GSourceCell = "N13" Then
         Sheets("totaal").Range("totaal_Behandeling").Value = Sheets("Behandelingen").Range("O13")
         Sheets("totaal").Range("totaal_type").Value = Sheets("Behandelingen").Range("P13")
      ElseIf GSourceCell = "N14" Then
         Sheets("totaal").Range("totaal_Behandeling").Value = Sheets("Behandelingen").Range("O14")
         Sheets("totaal").Range("totaal_type").Value = Sheets("Behandelingen").Range("P14")
      ElseIf GSourceCell = "N15" Then
         Sheets("totaal").Range("totaal_Behandeling").Value = Sheets("Behandelingen").Range("O15")
         Sheets("totaal").Range("totaal_type").Value = Sheets("Behandelingen").Range("P15")
      ElseIf GSourceCell = "N16" Then
         Sheets("totaal").Range("totaal_Behandeling").Value = Sheets("Behandelingen").Range("O16")
         Sheets("totaal").Range("totaal_type").Value = Sheets("Behandelingen").Range("P16")
      ElseIf GSourceCell = "N17" Then
         Sheets("totaal").Range("totaal_Behandeling").Value = Sheets("Behandelingen").Range("O17")
         Sheets("totaal").Range("totaal_type").Value = Sheets("Behandelingen").Range("P17")
      ElseIf GSourceCell = "N18" Then
         Sheets("totaal").Range("totaal_Behandeling").Value = Sheets("Behandelingen").Range("O18")
         Sheets("totaal").Range("totaal_type").Value = Sheets("Behandelingen").Range("P18")
      ElseIf GSourceCell = "N19" Then
         Sheets("totaal").Range("totaal_Behandeling").Value = Sheets("Behandelingen").Range("O19")
         Sheets("totaal").Range("totaal_type").Value = Sheets("Behandelingen").Range("P19")
      ElseIf GSourceCell = "N20" Then
         Sheets("totaal").Range("totaal_Behandeling").Value = Sheets("Behandelingen").Range("O20")
         Sheets("totaal").Range("totaal_type").Value = Sheets("Behandelingen").Range("P20")
      ElseIf GSourceCell = "N21" Then
         Sheets("totaal").Range("totaal_Behandeling").Value = Sheets("Behandelingen").Range("O21")
         Sheets("totaal").Range("totaal_type").Value = Sheets("Behandelingen").Range("P21")
      ElseIf GSourceCell = "N22" Then
         Sheets("totaal").Range("totaal_Behandeling").Value = Sheets("Behandelingen").Range("O22")
         Sheets("totaal").Range("totaal_type").Value = Sheets("Behandelingen").Range("P22")
      ElseIf GSourceCell = "N23" Then
         Sheets("totaal").Range("totaal_Behandeling").Value = Sheets("Behandelingen").Range("O23")
         Sheets("totaal").Range("totaal_type").Value = Sheets("Behandelingen").Range("P23")
      ElseIf GSourceCell = "N24" Then
         Sheets("totaal").Range("totaal_Behandeling").Value = Sheets("Behandelingen").Range("O24")
         Sheets("totaal").Range("totaal_type").Value = Sheets("Behandelingen").Range("P24")
      ElseIf GSourceCell = "N25" Then
         Sheets("totaal").Range("totaal_Behandeling").Value = Sheets("Behandelingen").Range("O25")
         Sheets("totaal").Range("totaal_type").Value = Sheets("Behandelingen").Range("P25")
      ElseIf GSourceCell = "N26" Then
         Sheets("totaal").Range("totaal_Behandeling").Value = Sheets("Behandelingen").Range("O26")
         Sheets("totaal").Range("totaal_type").Value = Sheets("Behandelingen").Range("P26")
      ElseIf GSourceCell = "N27" Then
         Sheets("totaal").Range("totaal_Behandeling").Value = Sheets("Behandelingen").Range("O27")
         Sheets("totaal").Range("totaal_type").Value = Sheets("Behandelingen").Range("P27")
      ElseIf GSourceCell = "N28" Then
         Sheets("totaal").Range("totaal_Behandeling").Value = Sheets("Behandelingen").Range("O28")
         Sheets("totaal").Range("totaal_type").Value = Sheets("Behandelingen").Range("P28")
      ElseIf GSourceCell = "N29" Then
         Sheets("totaal").Range("totaal_Behandeling").Value = Sheets("Behandelingen").Range("O29")
         Sheets("totaal").Range("totaal_type").Value = Sheets("Behandelingen").Range("P29")
      ElseIf GSourceCell = "N30" Then
         Sheets("totaal").Range("totaal_Behandeling").Value = Sheets("Behandelingen").Range("O30")
         Sheets("totaal").Range("totaal_type").Value = Sheets("Behandelingen").Range("P30")
      ElseIf GSourceCell = "N31" Then
         Sheets("totaal").Range("totaal_Behandeling").Value = Sheets("Behandelingen").Range("O31")
         Sheets("totaal").Range("totaal_type").Value = Sheets("Behandelingen").Range("P31")
      ElseIf GSourceCell = "N32" Then
         Sheets("totaal").Range("totaal_Behandeling").Value = Sheets("Behandelingen").Range("O32")
         Sheets("totaal").Range("totaal_type").Value = Sheets("Behandelingen").Range("P32")
      ElseIf GSourceCell = "N33" Then
         Sheets("totaal").Range("totaal_Behandeling").Value = Sheets("Behandelingen").Range("O33")
         Sheets("totaal").Range("totaal_type").Value = Sheets("Behandelingen").Range("P33")
      ElseIf GSourceCell = "N34" Then
         Sheets("totaal").Range("totaal_Behandeling").Value = Sheets("Behandelingen").Range("O34")
         Sheets("totaal").Range("totaal_type").Value = Sheets("Behandelingen").Range("P34")
      ElseIf GSourceCell = "N35" Then
         Sheets("totaal").Range("totaal_Behandeling").Value = Sheets("Behandelingen").Range("O35")
         Sheets("totaal").Range("totaal_type").Value = Sheets("Behandelingen").Range("P35")
      ElseIf GSourceCell = "N36" Then
         Sheets("totaal").Range("totaal_Behandeling").Value = Sheets("Behandelingen").Range("O36")
         Sheets("totaal").Range("totaal_type").Value = Sheets("Behandelingen").Range("P36")
      ElseIf GSourceCell = "N37" Then
         Sheets("totaal").Range("totaal_Behandeling").Value = Sheets("Behandelingen").Range("O37")
         Sheets("totaal").Range("totaal_type").Value = Sheets("Behandelingen").Range("P37")
      ElseIf GSourceCell = "N38" Then
         Sheets("totaal").Range("totaal_Behandeling").Value = Sheets("Behandelingen").Range("O38")
         Sheets("totaal").Range("totaal_type").Value = Sheets("Behandelingen").Range("P38")
      ElseIf GSourceCell = "N39" Then
         Sheets("totaal").Range("totaal_Behandeling").Value = Sheets("Behandelingen").Range("O39")
         Sheets("totaal").Range("totaal_type").Value = Sheets("Behandelingen").Range("P39")
      ElseIf GSourceCell = "N40" Then
         Sheets("totaal").Range("totaal_Behandeling").Value = Sheets("Behandelingen").Range("O40")
         Sheets("totaal").Range("totaal_type").Value = Sheets("Behandelingen").Range("P40")
      ElseIf GSourceCell = "N41" Then
         Sheets("totaal").Range("totaal_Behandeling").Value = Sheets("Behandelingen").Range("O41")
         Sheets("totaal").Range("totaal_type").Value = Sheets("Behandelingen").Range("P41")
      ElseIf GSourceCell = "N42" Then
         Sheets("totaal").Range("totaal_Behandeling").Value = Sheets("Behandelingen").Range("O42")
         Sheets("totaal").Range("totaal_type").Value = Sheets("Behandelingen").Range("P42")
      ElseIf GSourceCell = "N43" Then
         Sheets("totaal").Range("totaal_Behandeling").Value = Sheets("Behandelingen").Range("O43")
         Sheets("totaal").Range("totaal_type").Value = Sheets("Behandelingen").Range("P43")
      ElseIf GSourceCell = "N44" Then
         Sheets("totaal").Range("totaal_Behandeling").Value = Sheets("Behandelingen").Range("O44")
         Sheets("totaal").Range("totaal_type").Value = Sheets("Behandelingen").Range("P44")
      ElseIf GSourceCell = "N45" Then
         Sheets("totaal").Range("totaal_Behandeling").Value = Sheets("Behandelingen").Range("O45")
         Sheets("totaal").Range("totaal_type").Value = Sheets("Behandelingen").Range("P45")
      ElseIf GSourceCell = "N46" Then
         Sheets("totaal").Range("totaal_Behandeling").Value = Sheets("Behandelingen").Range("O46")
         Sheets("totaal").Range("totaal_type").Value = Sheets("Behandelingen").Range("P46")
      ElseIf GSourceCell = "N47" Then
         Sheets("totaal").Range("totaal_Behandeling").Value = Sheets("Behandelingen").Range("O47")
         Sheets("totaal").Range("totaal_type").Value = Sheets("Behandelingen").Range("P47")
      ElseIf GSourceCell = "N48" Then
         Sheets("totaal").Range("totaal_Behandeling").Value = Sheets("Behandelingen").Range("O48")
         Sheets("totaal").Range("totaal_type").Value = Sheets("Behandelingen").Range("P48")
      ElseIf GSourceCell = "N49" Then
         Sheets("totaal").Range("totaal_Behandeling").Value = Sheets("Behandelingen").Range("O49")
         Sheets("totaal").Range("totaal_type").Value = Sheets("Behandelingen").Range("P49")
      ElseIf GSourceCell = "N50" Then
         Sheets("totaal").Range("totaal_Behandeling").Value = Sheets("Behandelingen").Range("O50")
         Sheets("totaal").Range("totaal_type").Value = Sheets("Behandelingen").Range("P50")
      ElseIf GSourceCell = "N51" Then
         Sheets("totaal").Range("totaal_Behandeling").Value = Sheets("Behandelingen").Range("O51")
         Sheets("totaal").Range("totaal_type").Value = Sheets("Behandelingen").Range("P51")
      ElseIf GSourceCell = "N52" Then
         Sheets("totaal").Range("totaal_Behandeling").Value = Sheets("Behandelingen").Range("O52")
         Sheets("totaal").Range("totaal_type").Value = Sheets("Behandelingen").Range("P52")
      ElseIf GSourceCell = "N53" Then
         Sheets("totaal").Range("totaal_Behandeling").Value = Sheets("Behandelingen").Range("O53")
         Sheets("totaal").Range("totaal_type").Value = Sheets("Behandelingen").Range("P53")
      ElseIf GSourceCell = "N54" Then
         Sheets("totaal").Range("totaal_Behandeling").Value = Sheets("Behandelingen").Range("O54")
         Sheets("totaal").Range("totaal_type").Value = Sheets("Behandelingen").Range("P54")
      ElseIf GSourceCell = "N55" Then
         Sheets("totaal").Range("totaal_Behandeling").Value = Sheets("Behandelingen").Range("O55")
         Sheets("totaal").Range("totaal_type").Value = Sheets("Behandelingen").Range("P55")
      ElseIf GSourceCell = "N56" Then
         Sheets("totaal").Range("totaal_Behandeling").Value = Sheets("Behandelingen").Range("O56")
         Sheets("totaal").Range("totaal_type").Value = Sheets("Behandelingen").Range("P56")
                  
'QRS
      ElseIf GSourceCell = "Q7" Then
         Sheets("totaal").Range("totaal_Behandeling").Value = Sheets("Behandelingen").Range("R7")
         Sheets("totaal").Range("totaal_type").Value = Sheets("Behandelingen").Range("S7")
      ElseIf GSourceCell = "Q8" Then
         Sheets("totaal").Range("totaal_Behandeling").Value = Sheets("Behandelingen").Range("R8")
         Sheets("totaal").Range("totaal_type").Value = Sheets("Behandelingen").Range("S8")
      ElseIf GSourceCell = "Q9" Then
         Sheets("totaal").Range("totaal_Behandeling").Value = Sheets("Behandelingen").Range("R9")
         Sheets("totaal").Range("totaal_type").Value = Sheets("Behandelingen").Range("S9")
      ElseIf GSourceCell = "Q10" Then
         Sheets("totaal").Range("totaal_Behandeling").Value = Sheets("Behandelingen").Range("R10")
         Sheets("totaal").Range("totaal_type").Value = Sheets("Behandelingen").Range("S10")
      ElseIf GSourceCell = "Q11" Then
         Sheets("totaal").Range("totaal_Behandeling").Value = Sheets("Behandelingen").Range("R11")
         Sheets("totaal").Range("totaal_type").Value = Sheets("Behandelingen").Range("S11")
      ElseIf GSourceCell = "Q12" Then
         Sheets("totaal").Range("totaal_Behandeling").Value = Sheets("Behandelingen").Range("R12")
         Sheets("totaal").Range("totaal_type").Value = Sheets("Behandelingen").Range("S12")
      ElseIf GSourceCell = "Q13" Then
         Sheets("totaal").Range("totaal_Behandeling").Value = Sheets("Behandelingen").Range("R13")
         Sheets("totaal").Range("totaal_type").Value = Sheets("Behandelingen").Range("S13")
      ElseIf GSourceCell = "Q14" Then
         Sheets("totaal").Range("totaal_Behandeling").Value = Sheets("Behandelingen").Range("R14")
         Sheets("totaal").Range("totaal_type").Value = Sheets("Behandelingen").Range("S14")
      ElseIf GSourceCell = "Q15" Then
         Sheets("totaal").Range("totaal_Behandeling").Value = Sheets("Behandelingen").Range("R15")
         Sheets("totaal").Range("totaal_type").Value = Sheets("Behandelingen").Range("S15")
      ElseIf GSourceCell = "Q16" Then
         Sheets("totaal").Range("totaal_Behandeling").Value = Sheets("Behandelingen").Range("R16")
         Sheets("totaal").Range("totaal_type").Value = Sheets("Behandelingen").Range("S16")
      ElseIf GSourceCell = "Q17" Then
         Sheets("totaal").Range("totaal_Behandeling").Value = Sheets("Behandelingen").Range("R17")
         Sheets("totaal").Range("totaal_type").Value = Sheets("Behandelingen").Range("S17")
      ElseIf GSourceCell = "Q18" Then
         Sheets("totaal").Range("totaal_Behandeling").Value = Sheets("Behandelingen").Range("R18")
         Sheets("totaal").Range("totaal_type").Value = Sheets("Behandelingen").Range("S18")
      ElseIf GSourceCell = "Q19" Then
         Sheets("totaal").Range("totaal_Behandeling").Value = Sheets("Behandelingen").Range("R19")
         Sheets("totaal").Range("totaal_type").Value = Sheets("Behandelingen").Range("S19")
      ElseIf GSourceCell = "Q20" Then
         Sheets("totaal").Range("totaal_Behandeling").Value = Sheets("Behandelingen").Range("R20")
         Sheets("totaal").Range("totaal_type").Value = Sheets("Behandelingen").Range("S20")
      ElseIf GSourceCell = "Q21" Then
         Sheets("totaal").Range("totaal_Behandeling").Value = Sheets("Behandelingen").Range("R21")
         Sheets("totaal").Range("totaal_type").Value = Sheets("Behandelingen").Range("S21")
      ElseIf GSourceCell = "Q22" Then
         Sheets("totaal").Range("totaal_Behandeling").Value = Sheets("Behandelingen").Range("R22")
         Sheets("totaal").Range("totaal_type").Value = Sheets("Behandelingen").Range("S22")
      ElseIf GSourceCell = "Q23" Then
         Sheets("totaal").Range("totaal_Behandeling").Value = Sheets("Behandelingen").Range("R23")
         Sheets("totaal").Range("totaal_type").Value = Sheets("Behandelingen").Range("S23")
      ElseIf GSourceCell = "Q24" Then
         Sheets("totaal").Range("totaal_Behandeling").Value = Sheets("Behandelingen").Range("R24")
         Sheets("totaal").Range("totaal_type").Value = Sheets("Behandelingen").Range("S24")
      ElseIf GSourceCell = "Q25" Then
         Sheets("totaal").Range("totaal_Behandeling").Value = Sheets("Behandelingen").Range("R25")
         Sheets("totaal").Range("totaal_type").Value = Sheets("Behandelingen").Range("S25")
      ElseIf GSourceCell = "Q26" Then
         Sheets("totaal").Range("totaal_Behandeling").Value = Sheets("Behandelingen").Range("R26")
         Sheets("totaal").Range("totaal_type").Value = Sheets("Behandelingen").Range("S26")
      ElseIf GSourceCell = "Q27" Then
         Sheets("totaal").Range("totaal_Behandeling").Value = Sheets("Behandelingen").Range("R27")
         Sheets("totaal").Range("totaal_type").Value = Sheets("Behandelingen").Range("S27")
      ElseIf GSourceCell = "Q28" Then
         Sheets("totaal").Range("totaal_Behandeling").Value = Sheets("Behandelingen").Range("R28")
         Sheets("totaal").Range("totaal_type").Value = Sheets("Behandelingen").Range("S28")
      ElseIf GSourceCell = "Q29" Then
         Sheets("totaal").Range("totaal_Behandeling").Value = Sheets("Behandelingen").Range("R29")
         Sheets("totaal").Range("totaal_type").Value = Sheets("Behandelingen").Range("S29")
      ElseIf GSourceCell = "Q30" Then
         Sheets("totaal").Range("totaal_Behandeling").Value = Sheets("Behandelingen").Range("R30")
         Sheets("totaal").Range("totaal_type").Value = Sheets("Behandelingen").Range("S30")
      ElseIf GSourceCell = "Q31" Then
         Sheets("totaal").Range("totaal_Behandeling").Value = Sheets("Behandelingen").Range("R31")
         Sheets("totaal").Range("totaal_type").Value = Sheets("Behandelingen").Range("S31")
      ElseIf GSourceCell = "Q32" Then
         Sheets("totaal").Range("totaal_Behandeling").Value = Sheets("Behandelingen").Range("R32")
         Sheets("totaal").Range("totaal_type").Value = Sheets("Behandelingen").Range("S32")
      ElseIf GSourceCell = "Q33" Then
         Sheets("totaal").Range("totaal_Behandeling").Value = Sheets("Behandelingen").Range("R33")
         Sheets("totaal").Range("totaal_type").Value = Sheets("Behandelingen").Range("S33")
      ElseIf GSourceCell = "Q34" Then
         Sheets("totaal").Range("totaal_Behandeling").Value = Sheets("Behandelingen").Range("R34")
         Sheets("totaal").Range("totaal_type").Value = Sheets("Behandelingen").Range("S34")
      ElseIf GSourceCell = "Q35" Then
         Sheets("totaal").Range("totaal_Behandeling").Value = Sheets("Behandelingen").Range("R35")
         Sheets("totaal").Range("totaal_type").Value = Sheets("Behandelingen").Range("S35")
      ElseIf GSourceCell = "Q36" Then
         Sheets("totaal").Range("totaal_Behandeling").Value = Sheets("Behandelingen").Range("R36")
         Sheets("totaal").Range("totaal_type").Value = Sheets("Behandelingen").Range("S36")
      ElseIf GSourceCell = "Q37" Then
         Sheets("totaal").Range("totaal_Behandeling").Value = Sheets("Behandelingen").Range("R37")
         Sheets("totaal").Range("totaal_type").Value = Sheets("Behandelingen").Range("S37")
      ElseIf GSourceCell = "Q38" Then
         Sheets("totaal").Range("totaal_Behandeling").Value = Sheets("Behandelingen").Range("R38")
         Sheets("totaal").Range("totaal_type").Value = Sheets("Behandelingen").Range("S38")
      ElseIf GSourceCell = "Q39" Then
         Sheets("totaal").Range("totaal_Behandeling").Value = Sheets("Behandelingen").Range("R39")
         Sheets("totaal").Range("totaal_type").Value = Sheets("Behandelingen").Range("S39")
      ElseIf GSourceCell = "Q40" Then
         Sheets("totaal").Range("totaal_Behandeling").Value = Sheets("Behandelingen").Range("R40")
         Sheets("totaal").Range("totaal_type").Value = Sheets("Behandelingen").Range("S40")
      ElseIf GSourceCell = "Q41" Then
         Sheets("totaal").Range("totaal_Behandeling").Value = Sheets("Behandelingen").Range("R41")
         Sheets("totaal").Range("totaal_type").Value = Sheets("Behandelingen").Range("S41")
      ElseIf GSourceCell = "Q42" Then
         Sheets("totaal").Range("totaal_Behandeling").Value = Sheets("Behandelingen").Range("R42")
         Sheets("totaal").Range("totaal_type").Value = Sheets("Behandelingen").Range("S42")
      ElseIf GSourceCell = "Q43" Then
         Sheets("totaal").Range("totaal_Behandeling").Value = Sheets("Behandelingen").Range("R43")
         Sheets("totaal").Range("totaal_type").Value = Sheets("Behandelingen").Range("S43")
      ElseIf GSourceCell = "Q44" Then
         Sheets("totaal").Range("totaal_Behandeling").Value = Sheets("Behandelingen").Range("R44")
         Sheets("totaal").Range("totaal_type").Value = Sheets("Behandelingen").Range("S44")
      ElseIf GSourceCell = "Q45" Then
         Sheets("totaal").Range("totaal_Behandeling").Value = Sheets("Behandelingen").Range("R45")
         Sheets("totaal").Range("totaal_type").Value = Sheets("Behandelingen").Range("S45")
      ElseIf GSourceCell = "Q46" Then
         Sheets("totaal").Range("totaal_Behandeling").Value = Sheets("Behandelingen").Range("R46")
         Sheets("totaal").Range("totaal_type").Value = Sheets("Behandelingen").Range("S46")
      ElseIf GSourceCell = "Q47" Then
         Sheets("totaal").Range("totaal_Behandeling").Value = Sheets("Behandelingen").Range("R47")
         Sheets("totaal").Range("totaal_type").Value = Sheets("Behandelingen").Range("S47")
      ElseIf GSourceCell = "Q48" Then
         Sheets("totaal").Range("totaal_Behandeling").Value = Sheets("Behandelingen").Range("R48")
         Sheets("totaal").Range("totaal_type").Value = Sheets("Behandelingen").Range("S48")
      ElseIf GSourceCell = "Q49" Then
         Sheets("totaal").Range("totaal_Behandeling").Value = Sheets("Behandelingen").Range("R49")
         Sheets("totaal").Range("totaal_type").Value = Sheets("Behandelingen").Range("S49")
      ElseIf GSourceCell = "Q50" Then
         Sheets("totaal").Range("totaal_Behandeling").Value = Sheets("Behandelingen").Range("R50")
         Sheets("totaal").Range("totaal_type").Value = Sheets("Behandelingen").Range("S50")
      ElseIf GSourceCell = "Q51" Then
         Sheets("totaal").Range("totaal_Behandeling").Value = Sheets("Behandelingen").Range("R51")
         Sheets("totaal").Range("totaal_type").Value = Sheets("Behandelingen").Range("S51")
      ElseIf GSourceCell = "Q52" Then
         Sheets("totaal").Range("totaal_Behandeling").Value = Sheets("Behandelingen").Range("R52")
         Sheets("totaal").Range("totaal_type").Value = Sheets("Behandelingen").Range("S52")
      ElseIf GSourceCell = "Q53" Then
         Sheets("totaal").Range("totaal_Behandeling").Value = Sheets("Behandelingen").Range("R53")
         Sheets("totaal").Range("totaal_type").Value = Sheets("Behandelingen").Range("S53")
      ElseIf GSourceCell = "Q54" Then
         Sheets("totaal").Range("totaal_Behandeling").Value = Sheets("Behandelingen").Range("R54")
         Sheets("totaal").Range("totaal_type").Value = Sheets("Behandelingen").Range("S54")
      ElseIf GSourceCell = "Q55" Then
         Sheets("totaal").Range("totaal_Behandeling").Value = Sheets("Behandelingen").Range("R55")
         Sheets("totaal").Range("totaal_type").Value = Sheets("Behandelingen").Range("S55")
      ElseIf GSourceCell = "Q56" Then
         Sheets("totaal").Range("totaal_Behandeling").Value = Sheets("Behandelingen").Range("R56")
         Sheets("totaal").Range("totaal_type").Value = Sheets("Behandelingen").Range("S56")
                 
         
      Else
         Sheets("Totaal").Range("totaal_behandeling").Value = ""
         Sheets("Totaal").Range("totaal_type").Value = ""
      End If
      
'Spring naar het sheet "Totaal" als macro aan staat
    If Sheets("Handleiding").Range("macroknop").Value = "AAN" Then
        Sheets("Totaal").Select
        Else
        'do nothing
        End If
        
Application.ScreenUpdating = True
End Sub

Korte uitleg van de werking:
Tabblad is beveiligd, met uitzondering van een aantal cellen (B7:B47 , E7:E47, H7:H47, K7:K47, N7:N47, Q7:Q47). Wanneer men op 1 van deze cellen klinkt springt de gebruiker naar tabblad "Totaal" en worden hier 2 cellen ingevuld, op basis van de gegevens die achter de betreffende cel staat.

Ik hoop/denk dat er iets te doen is met zoiets:
Code: 
    For i = 1 To 7
        Range("A" & i) = ......
    Next i
Maar, ik weet niet hoe ik dit kan toepassen.

Ik hoor het graag!!
 
Waarschijnlijk zo

Code: 
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
 If Not Intersect(Target, Range("B7:B47 , E7:E47, H7:H47, K7:K47, N7:N47, Q7:Q47")) Is Nothing Then
    With Sheets("Totaal")
        .Range("totaal_behandeling") = Target.Offset(, 1).Value
        .Range("totaal_type") = Target.Offset(, 2).Value
    End With
 End If
End Sub
 
en waarschijnlijk ook:

Code: 
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
 If Not Intersect(Target, Range("B7:B47 , E7:E47, H7:H47, K7:K47, N7:N47, Q7:Q47")) Is Nothing Then    Sheets("Totaal").Range("totaal_behandeling").resize(,2) = Target.Offset(, 1).resize(,2).Value
End Sub
 
GEWELDIG beiden enorm bedankt. Hoe simpel het soms kan zijn (voor anderen ;))
 
en als je
Range("totaal_behandeling")

vervangt door bijv. Range("E5:F5") wordt de code nog simpeler.
 
Status
Niet open voor verdere reacties.
                    Steun ons                    

Nieuwste berichten

Terug
Bovenaan Onderaan