Min und Max Wert finden funktioniert nic
04.04.2020 19:40:38
Sabrina
ich möchte den Maximal und den Minimalwert einer Tabelle (SpalteA) finden und ins andere Datenblatt schreiben.
Aber es erscheint immer 0
Ich weiß nicht wieso :(
Sub test()
Dim wksArchiv As Worksheet
Dim ArchivMax As String, ArchivMin As String, AufNr As String
Set wksArchiv = Workbooks("Archiv_Datei.xlsm").Sheets("Daten")
With wksArchiv
ArchivMax = Application.WorksheetFunction.Max(Range("A:A"))
ArchivMin = Application.WorksheetFunction.Min(Range("A:A"))
End With
Range("B7") = ArchivMin
Range("B8") = ArchivMax
End Sub
Hier eine Testdateihttps://www.herber.de/bbs/user/136407.zip
Liebe Grüße
Sabbel