Liebe Profis,
ich möchte mehrere Zellen addieren und das Ergebnis soll als Formel mit Pfad und Zellangabe als Verknüpfung erhalten bleiben.
pfad_add ist der Prad der addiert werden soll, je nach Zelladresse (es verändert sich nur die Zelle am Ende je nach gs)und wird von pfad_gs1 bis...pfad_gs11
Wenn SZ=1 dann sollen pfad_gs1 bis pfad_gs11 addiert werden.
Für gs1, gs4 und gs7 wird auf die Zelle "AO7" zugegriffen werden
Für die restlichen gs2... etc, auf die Zelle "BA7".
Kann mir jemand mit den Schleifen helfen und den Listen?
Danke, Afro
Dim pfad_add As sting
Dim SZ As Integer '1 bis 5
Dim y As Integer 'jahr
Dim gs As Integer '1 bis 11
Dim cell As String 'Typ "AO7" oder "BA7"
pfad_add = "'E:\SZ" & i & "\[" & y & ".xls]GS" & gs & "'!$" & cell
If gs = 1 Or gs = 4 Or gs = 7 Then
cell = "AO7"
elsee cell = "BA7"
End If
If SZ = 1 Then
pfad_add = pfad_gs1 + pfad_gs2 + pfad_gs3 + pfad_gs4 + pfad_gs5 + pfad_gs6 +pfad_gs7 + pfad_gs8 + pfad_gs9 + pfad_gs10 + pfad_gs11
ElseIf SZ = 2 Then 'wie oben ohne pfad_gs9
pfad_add = pfad_gs1 + pfad_gs2 + pfad_gs3 + pfad_gs4 + pfad_gs5 + pfad_gs6 + pfad_gs7 + pfad_gs8 + pfad_gs10 + pfad_gs11
ElseIf SZ = 3 Then 'wie SZ1 ohne pfad_gs10
pfad_add = pfad_gs1 + pfad_gs2 + pfad_gs3 + pfad_gs4 + pfad_gs5 + pfad_gs6 + pfad_gs7 + pfad_gs8 + pfad_gs9 + pfad_gs11
ElseIf SZ = 4 Then....
...
End If