Laufzeitfehler '1004' auf WorksheetFunction.Max/Min für variablen Bereich

Question

Ich möchte Max und Min eines Bereichs innerhalb einer for-Schleife (für jede Zeile) abrufen.

Welche Lösung ich auch im Internet gefunden habe, ist entweder für den statischen Bereich oder gibt mir den gleichen Fehler. Derzeit verwende ich die folgenden, die run-time error '1004' bei xMax Linie gibt:

Dim i As Long 
Dim xMax As Double 
Dim ws1 As Worksheet 
Set ws1 = Worksheets("Sheet1") 

For i = 2 To 15 
    xMax = Application.WorksheetFunction.Max(ws1.range(Cells(i, 6), Cells(i, 15))) 
Next 

jedoch die folgenden statischen Bereich arbeitet:

xMax = Application.WorksheetFunction.Max(ws1.range(Cells(2, 6), Cells(2, 15))) 

Ich habe versucht, es zu 2-Zellen siplify:

Statische Reichweite hat keine Probleme:

xMax = Application.WorksheetFunction.Max(Cells(2, 6).Value, Cells(2, 7).Value) 

Aber Dynamikbereich öffnet den gleichen Fehler:

For i = 2 To 15 
    xMax = Application.WorksheetFunction.Max(Cells(i, 6).Value, Cells(i, 7).Value) 
Next 

Wie kann ich innerhalb einer Schleife min/max für variable Bereich erreichen?

Answer 1

Unter Ihrer ersten Stellungnahme nach der alle Bereiche der Qualifikation:

xMax = Application.WorksheetFunction.Max(ws1.range(ws1.Cells(i, 6), ws1.Cells(i, 15))) 

Wenn einige der Zellen innerhalb des Bereichs Fehler aufweisen, wie #NA oder #DIV!0, die Max Funktion einen Fehler auslöst. Damit die Berechnung Fehlerzellen im Bereich ignoriert, können Sie die Funktion Aggregate verwenden.

xMax = Application.Aggregate(14, 6, ws1.range(ws1.Cells(i, 6), ws1.Cells(i, 15)), 1) 

• Der erste Parameter gibt an 14Large. Verwenden Sie 15 für Small.
• Der zweite Parameter 6 gibt „Fehler bei der Berechnung ignorieren“
• Der letzte Parameter 1 gibt „Zuerst größte Ergebnis“

Beachten Sie auch, dass die andere Version, die Sie versuchten, das heißt

xMax = Application.WorksheetFunction.Max(Cells(i, 6).Value, Cells(i, 7).Value) 

nicht festgelegt, einen kontinuierlichen Bereich, sondern eine Reihe von Werten (Varianten). Dies führt zu Fehlern, wenn eine dieser Varianten nicht numerisch ist. Aber du brauchst diese Version nicht.

Answer 2

Ich schließe eine Split-Funktion, die den Brief leichter erfasst.

Dim i As Long 
Dim xMax As Double 
Dim ws1 As Worksheet 
Set ws1 = Worksheets("Sheet1") 

For i = 2 To 15 
    xMax = Application.WorksheetFunction.Max(ws1.range("F" & i & ":" & Split(Cells(, i).Address, "$")(1) & "15")) 
Next 

Answer 3

Sie haben Excel zu sagen, wo cell Punkte - sonst wird es das aktive Blatt verwenden, zum Beispiel

xMax = Application.WorksheetFunction.Max(ws1.range(ws1.Cells(i, 6), ws1.Cells(i, 15))) 

oder

With ws1 
    xMax = Application.WorksheetFunction.Max(.Range(.Cells(i, 6), .Cells(i, 15))) 
End With 

persönlich, ich in der Regel eine Reihe zuweisen eine Bereichsvariable zuerst - es hilft beim Debugging:

With ws1 
    dim r as range 
    ''' set r = .Range(.Cells(i, 6), .Cells(i, 15)) ' Fails if not all cells are numeric 
    set r = .Range(.Cells(i, 6), .Cells(i, 15)).SpecialCells(xlCellTypeConstants, xlNumbers) 
    xMax = Application.WorksheetFunction.Max(r) 
End With