Laufzeitfehler 13 - Typen unverträglich....Warum?
22.09.2016 09:25:48
Harald
jetzt muss ich Euch leider nochmal nerven...
Ich habe folgendes Problem:
Ich habe in der Spalte O eine Formel hinterlegt, die prüft, ob eingetragene Uhrzeiten in Spalte D größer als 12:00 Uhr sind und ob in der Spalte R für die jeweilige Zeile ein X eingetragen ist. Ist die Zeit größer als 12:00 Uhr und es ist ein X eingetragen, soll O den Wert 1 ausgeben, sonst 0 sein.
=WENN(UND(R12="X";D12>12/24);1;0)
Wenn der Wert 1 zurückgegeben wird, möchte ich eine Msg-Box anzeigen lassen, die auf den Fehler hinweist.
Mein Makro dazu:
Private Sub Worksheet_Calculate()
If Range("O12:O42").Value > 0 Then
MsgBox "Sie arbeiten am Faschingsdienstag bzw. am Kirchweihdienstag länger als 12.00 Uhr!", _
vbCritical
End If
End Sub
Herzlichen Dank im Voraus für die Antworten!
Viele Grüße
harald