Berechnen Sie eine Max von zwei Spalten in zwei Arbeitsblättern E

Ich habe hier Fragen zum Finden von zwei verschiedenen max / mins für zwei unterschiedliche Spaltensätze gefunden, aber ich möchte diesen Code verwenden und anstatt nur die Spalte K zu überprüfen, möchte ich auch die Spalte K auf meiner zweiten prüfen Arbeitsblatt Sheet2 "Archiv".

Also, wenn Spalte K 1,2,3 auf Sheet1 enthält und Spalte K 8,10,12 auf Sheet2 enthält, sollte die MsgBox "13" auslesen

Sub IncrementMax () Dim NewValue as Long NewValue = Application.Max(Range("K1:K" & Range("K" & Rows.Count).End(xlUp).Row)) + 1 MsgBox NewValue End Sub 

Die Max function erlaubt mehrere Parameter, also übergeben Sie einfach zwei Bereiche:

 Sub IncrementMax () Dim NewValue as Long NewValue = Application.Max(Worksheets("Sheet1").Range("K1", Worksheets("Sheet1").Range("K" & Worksheets("Sheet1").Rows.Count).End(xlUp)), _ Worksheets("Archive").Range("K1", Worksheets("Archive").Range("K" & Worksheets("Archive").Rows.Count).End(xlUp))) + 1 MsgBox NewValue End Sub