rng nur in VBA nicht in der Arbeitsmappe
19.06.2017 16:55:17
Marc
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