Arrayformel Summe über Tabellenblätter
22.01.2015 15:30:51
Blockus
ich habe folgendes Problem:
Ich habe eine Exceltabelle mit mehreren Tabellenblättern und vor Jahren mal eine Lösung geschrieben, die mir aus allen Sheets (bis auf die letzten 3) bestimmte Werte in einem array aufaddiert und die Summe in das Blatt Gesamtprovision schreibt. Das funktioniert auch gut. Nun will ich diese Berechnung aber nur für die Sheets veranlassen, die fzg1, fzg2, fzg3 usw (bis fzg15 oder so...) machen.
Klappt irgendwie nicht, bin am verzweifeln. Kann jemand helfen?
Hier der code:
Public Sub S_array()
GP = 0
BEF = 0
VNZ = 0
VNZP = 0
SP = 0
Dim a1(15, 100)
Call passwortraus
For I% = 1 To Sheets.Count - 3
Sheets(I%).Select
a1(1, I%) = Range("f41")
a1(2, I%) = Range("d49")
a1(3, I%) = Range("c4")
a1(4, I%) = Range("f49")
a1(5, I%) = Range("f51")
a1(6, I%) = Range("f54")
a1(7, I%) = Range("m19")
a1(8, I%) = Range("m21")
a1(9, I%) = Range("m23")
a1(10, I%) = Range("m25")
a1(11, I%) = Range("m27")
a1(12, I%) = Range("m29")
a1(13, I%) = Range("m37")
a1(14, I%) = Range("m45")
a1(15, I%) = Range("m48")
GP = GP + a1(6, I%)
BEF = BEF + a1(1, I%)
VNZ = VNZ + a1(2, I%)
VNZP = VNZP + a1(4, I%)
SP = SP + a1(5, I%)
Next I%
Sheets("Gesamtprovision").Select
'For i% = 1 To Sheets.Count - 3
'Range("a" & i% + 4) = a1(1, i%)
Range("b5") = BEF
Range("c5") = VNZ
Range("d5") = VNZP
Range("e5") = SP
'Range("f5") = GP
'Range("g" & i% + 4) = a1(7, i%)
'Range("h" & i% + 4) = a1(8, i%)
'Range("i" & i% + 4) = a1(9, i%)
'Range("j" & i% + 4) = a1(10, i%)
'Range("k" & i% + 4) = a1(11, i%)
'Range("l" & i% + 4) = a1(12, i%)
'Range("m" & i% + 4) = a1(13, i%)
'Range("n" & i% + 4) = a1(14, i%)
'Range("o" & i% + 4) = a1(15, i%)
'Next i%
'Cells(1, 1).Value = GP geht auch
Debug.Print "Gesamtprovision " & GP
Debug.Print "Bruttoertragsprovision Fahrzeug " & BEF
Debug.Print "Nettozubehör " & VNZ
Debug.Print "Prozente Zubehör " & VNZP
Debug.Print "Sonderprämie " & SP
Call passwortrein
End Sub