Addition von Werten aus bestimmten Tabellenblätter
27.05.2019 17:31:11
Werten
ich habe mich heute hier angemeldet in der Hoffnung, dass ihr mir helfen könnt.
Es geht um folgendes: Mein Excel File hat etliche Sheets, einige davon beginnen immer mit FM_
Genau um die geht es. Jedes dieser Sheets hat am unteren Ende einen Output Raster. Ich muss in einem Output Sheet den Raster aller FM_ Sheets addieren. Das Problem dabei ist, dass der Output-Raster in den FM_ Sheets nicht immer in der selben Zeile beginnt. Deshalb dachte ich, ich muss mit einer match Formal arbeiten. Darum habe ich in der Zeile, in der der Output-Raster beginnt "GuV" eingefügt als Kriterium.
Ich habe mich heute ewig gespielt und bin leider zu keiner Lösung gekommen. Könnt ihr mir vl helfen?
Anbei mein bisheriger Code-Versuch:
Sub GuV_Output()
Dim Summe As Double
Dim Ws As Worksheet
Summe = 0
For Each Ws In ActiveWorkbook.Worksheets
If Ws.Name = "FM_*" Then
With Application.WorksheetFunction
Summe = Summe + Ws.Cells(.Match("GuV", ActiveSheet.Range("B1:B900"), 0), 8).Value
End With
End If
Next Ws
Worksheets("GuV Output").Range("G6").Value = Summe
End Sub
Danke u beste Grüße
Patrick