Formelübertrag in VBA
04.09.2013 09:53:51
Alex
kann mir jemand beim Umschreiben dieser Formel:
=WENN(24*MAX(MIN(D11;D14)-MAX(D10;D13))>0;"Überschneidung";"")
in VBA helfen?
In Zellen D10 und D11 stellt den 1. Zeitraum dar.
Zellen D13 und D14 den 2. Zeitraum.
Überschneiden sich beide Zeiträume meldet die Formel Überschneidung.
von 12:00
bis 16:00
Überschneidung
von 10:00
bis 14:00
Gut wäre, wenn anstelle "Überschneidung" eine MsBox mit "Überschneidung" erscheint.
Mein Versuch
ergibt Fehler Objektvariable oder With-Blockvariable nicht festgelegt:
Private Sub Worksheet_Change(ByVal Target As Range)
Dim Min As WorksheetFunction
Dim Max As WorksheetFunction
If (24 * Max(, Min(Range("B2"), Range("D2")) - Max(Range("A2"), Range("C2")))) > 0 Then
If MsgBox(Prompt:="Zeitraumüberschneidung", _
Buttons:=vbOKOnly, _
Title:="Achtung") = vbOK Then
End If
End If
End Sub
Gruß
Alex