Summe aus verschiedenen Bereichen ermitteln und vergleichen

[Mitness]

Hallo liebe Excel-Community,

ich komme nicht weiter in einem Projekt. Ich habe eine Tabelle mit Werten gefüllt und habe darüber eine einfach Heatmap gelegt (bedingte Formatierung Min-Max). Über eine Userform soll eine Time-Range ausgewählt werden z. B. von 10-14Uhr. Jetzt soll durch den Button "Suchen" die entsprechende Summe in dieser Range für die Tage von Montag-Sonntag ermittelt werden und die Range mit der kleinsten Summe soll als Ergebnis, also z. B. die Msg "Optimaler Time-Slot findet sich am Montag" ausgegeben werden.

   

Habt ihr eine Idee?

Liebe Grüße
Mitness 

[{Boris}]

Hi,

mangels Beispieldatei als Schnelltest - so in der Art. Zeiten in Spalte A, Wochentage in Zeile 1 (B1:H1)

Code:

Sub test()
Dim arr(7)
Dim dblStart As Double, dblEnde As Double, lngStartRow As Long, lngEndRow As Long, lngAnzahl As Long, x As Long
dblStart = TimeSerial(10, 0, 0): dblEnde = TimeSerial(14, 0, 0) 'Beispielzeiten
lngStartRow = Range("A:A").Find(Format(dblStart, "hh:mm"), LookIn:=xlValues, lookat:=xlWhole).Row
lngEndRow = Range("A:A").Find(Format(dblEnde, "hh:mm"), LookIn:=xlValues, lookat:=xlWhole).Row
With WorksheetFunction
    For x = 0 To 6
        arr(x) = .Sum(Range(Cells(lngStartRow, x + 2), Cells(lngEndRow, x + 2)))
    Next x
    MsgBox "Bester Slot am " & Range("B1:H1")(.Match(.Min(arr()), arr(), 0)), vbOKOnly, "Summe: " & .Min(arr())
End With
End Sub