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 

  • Excel-file mit VBScript bearbeiten, aber die Bearbeitung dauert zu lange
  • Wie benutzt man VBA, um die Spalte Y auf der Grundlage des Wertes in A effizient auszurichten, wobei die Formeln in A konstant sind, aber die Werte täglich auf- und abwandern?
  • Löschen Sie die gesamte Zeile basierend auf der Zeilennummer VBA
  • VBA Finden Sie eine letzte Zeile innerhalb eines Bereichs?
  • Verschieben von Arbeitsblättern (mit Tabellen) von einer aktiven Arbeitsmappe in eine vorhandene Arbeitsmappe
  • Löschen von ganzen doppelten Zeilen mit Bedingungen und
  • Laufzeiterrors '7': Nicht genügend Arbeitsspeicher beim Verschieben von Spalten
  • Automatische Seriennummer in der Tabelle
  • One Solution collect form web for “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 
    Spreadsheet (Microsoft Excel) makes working easy.