Größten Wert aus mehreren Tabellen finden
19.01.2015 17:48:13
Stefan
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
Viele Grüße und einen schönen Abend
Stefan
Anzeige