ich möchte aus zwei Spalten den kleinsten Wert des Produktes A wiedergeben. Mit der Funktion DBmin muss man ja einen Bereich als "Suchkritieren" angeben. Diese Bereichen möchte ich aber nur in VBA definieren. Ist sowas überhaupt möglich? Ich möchte es gern umgehen das ganze in einem Worksheet zwischen zu speichern.
Ich hoffe durch das Bsp wird meine Frage verständlicher :)
Sub DBmin()
Rng = ThisWorkbook.Worksheets("Produkte").Range("A:B")
strValue = "Zeit"
VarA = "Produkt"
VarB = "Preis"
VarC = "A"
VarD = ""
VarE = Array(VarA, VarB, VarC, VarD)
min = Application.WorksheetFunction.DMin(Rng, strValue, VarE)
ThisWorkbook.Worksheets("Tab2").Cells(1, 1) = min
End Sub