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 

Solutions Collecting From Web of "Berechnen Sie eine Max von zwei Spalten in zwei Arbeitsblättern E"

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