Summenfunktion für anderes Tabellenblatt
Martin
Konkret soll als erstes der Wert in Zelle(82, 3) durch die Summe der Zellen(82, 3) bis (92,3) geteilt werden. Als nächstes dann für die Werte in den Spalten 5, 7, 9 usw....
Hier ist der Code, wobei keine Fehlermeldung kommt aber die ausgespuckten Werte leider nicht stimmen:
Sub Hilfstabellen()
Dim j As Integer
Dim ws_HYPF As Worksheet
Dim ws_OEPF As Worksheet
Dim wb_Deckungsstockvergleich As Workbook
Dim ws_Hilfstabellen As Worksheet
Set ws_Hilfstabellen = ThisWorkbook.Sheets("Hilfstabellen")
'Regionale Verteilung HYPF
Set ws_HYPF = ActiveWorkbook.Sheets("HYPF")
For j = 1 To 11
ws_Hilfstabellen.Cells(10, j + 2) = ws_HYPF.Cells(82, j * 2 + 1) / Application. _
WorksheetFunction.Sum(ws_HYPF.Cells(82, j * 2 + 1), ws_HYPF.Cells(92, j * 2 + 1))
'das Forum verteilt die letzte Zeile komischerweise auf 2 Zeilen, ist aber in VBA _
zusammengeschrieben
Next j
End Sub
Vielen Dank für jeden Input!!