Clever-Excel-Forum

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.

[attachment=40553]

Habt ihr eine Idee?

Liebe Grüße
Mitness

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

Mitness

{Boris}