Wie kann ich den Quelltext ergänzen? Vielen Dank.
MinZahl1 = WorksheetFunction.Min(Range(Cells(LeseZeile, ÜSpaltenende + 1), Cells(LetzteZeile, ÜSpaltenende + 1)))
Sheets("Diadaten").Cells(17, 2).Formula = MinZahl1
MinZahl2 = WorksheetFunction.Min(Range(Cells(LeseZeile, ÜSpaltenende + 2), Cells(LetzteZeile, ÜSpaltenende + 2)))
Sheets("Diadaten").Cells(17, 3).Formula = MinZahl2
MinZahl3 = WorksheetFunction.Min(Range(Cells(LeseZeile, ÜSpaltenende + 3), Cells(LetzteZeile, ÜSpaltenende + 3)))
Sheets("Diadaten").Cells(17, 4).Formula = MinZahl3