ich möchte euch gerne um Hilfe bitten.
Ich möchte über mehrere Tabellenblätter für die Zelle C3 den größten Wert bestimmen.
Der größte Wert soll dann in die letzte Tabelle geschrieben werden.
Mein Ansatz:
Public Function Bbild()
Dim Wert As Integer
Dim maxwert As Integer
Dim i As Integer
For i = 2 To Worksheets.Count - 1
Wert = Sheets(i).Application.WorksheetFunction.Max(Cells(10, 3))
If Wert > maxwert Then maxwert = Wert
Next i
Worksheets(Worksheets.Count).Cells(10, 3).Value = maxwert
End Function
Leider schreibt er nun immer den Wert in die letzte Tabelle dessen Sheet grade aktiv ist. Viele Grüße und einen schönen Abend
Stefan