Hallo,
ich habe hier einen Code, wo eine Fehlermeldung "Procedur zu groß" erscheint. Wie kann ich das mit dem unten aufgeführten Code realisieren,
dass dies funktioniert. Oder kann man das generell anders lösen? Komme einfach nicht weiter!!! Wer kann da helfen ? Ich weis der Code ist sau
lang. Ich habe es aber so nur hinbekommen. Bis Zeile 231 funktioniert das auch so, wie ich will. Aber leider schon aber 232 kommt der Fehler.
Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
If ActiveSheet.Range("P6").Text < "0" Then
If Not Intersect(Target, Range("O6")) Is Nothing Then
ActiveSheet.Range("O6").Value = "ü"
Cancel = True
End If
End If
If ActiveSheet.Range("O6").Text < "0" Then
If Not Intersect(Target, Range("P6")) Is Nothing Then
ActiveSheet.Range("P6").Value = "ü"
Cancel = True
End If
End If
'----------------------------------------------------------------------------------------------
If ActiveSheet.Range("P7").Text < "0" Then
If Not Intersect(Target, Range("O7")) Is Nothing Then
ActiveSheet.Range("O7").Value = "ü"
Cancel = True
End If
End If
If ActiveSheet.Range("O7").Text < "0" Then
If Not Intersect(Target, Range("P7")) Is Nothing Then
ActiveSheet.Range("P7").Value = "ü"
Cancel = True
End If
End If
'----------------------------------------------------------------------------------------------
If ActiveSheet.Range("P8").Text < "0" Then
If Not Intersect(Target, Range("O8")) Is Nothing Then
ActiveSheet.Range("O8").Value = "ü"
Cancel = True
End If
End If
If ActiveSheet.Range("O8").Text < "0" Then
If Not Intersect(Target, Range("P8")) Is Nothing Then
ActiveSheet.Range("P8").Value = "ü"
Cancel = True
End If
End If
'----------------------------------------------------------------------------------------------
If ActiveSheet.Range("P9").Text < "0" Then
If Not Intersect(Target, Range("O9")) Is Nothing Then
ActiveSheet.Range("O9").Value = "ü"
Cancel = True
End If
End If
If ActiveSheet.Range("O9").Text < "0" Then
If Not Intersect(Target, Range("P9")) Is Nothing Then
ActiveSheet.Range("P9").Value = "ü"
Cancel = True
End If
End If
'----------------------------------------------------------------------------------------------
If ActiveSheet.Range("P10").Text < "0" Then
If Not Intersect(Target, Range("O10")) Is Nothing Then
ActiveSheet.Range("O10").Value = "ü"
Cancel = True
End If
End If
If ActiveSheet.Range("O10").Text < "0" Then
If Not Intersect(Target, Range("P10")) Is Nothing Then
ActiveSheet.Range("P10").Value = "ü"
Cancel = True
End If
End If
'----------------------------------------------------------------------------------------------
If ActiveSheet.Range("P11").Text < "0" Then
If Not Intersect(Target, Range("O11")) Is Nothing Then
ActiveSheet.Range("O11").Value = "ü"
Cancel = True
End If
End If
If ActiveSheet.Range("O11").Text < "0" Then
If Not Intersect(Target, Range("P11")) Is Nothing Then
ActiveSheet.Range("P11").Value = "ü"
Cancel = True
End If
End If
'----------------------------------------------------------------------------------------------
If ActiveSheet.Range("P12").Text < "0" Then
If Not Intersect(Target, Range("O12")) Is Nothing Then
ActiveSheet.Range("O12").Value = "ü"
Cancel = True
End If
End If
If ActiveSheet.Range("O12").Text < "0" Then
If Not Intersect(Target, Range("P12")) Is Nothing Then
ActiveSheet.Range("P12").Value = "ü"
Cancel = True
End If
End If
'----------------------------------------------------------------------------------------------
If ActiveSheet.Range("P21").Text < "0" Then
If Not Intersect(Target, Range("O21")) Is Nothing Then
ActiveSheet.Range("O21").Value = "ü"
Cancel = True
End If
End If
If ActiveSheet.Range("O21").Text < "0" Then
If Not Intersect(Target, Range("P21")) Is Nothing Then
ActiveSheet.Range("P21").Value = "ü"
Cancel = True
End If
End If
'----------------------------------------------------------------------------------------------
If ActiveSheet.Range("P22").Text < "0" Then
If Not Intersect(Target, Range("O22")) Is Nothing Then
ActiveSheet.Range("O22").Value = "ü"
Cancel = True
End If
End If
If ActiveSheet.Range("O22").Text < "0" Then
If Not Intersect(Target, Range("P22")) Is Nothing Then
ActiveSheet.Range("P22").Value = "ü"
Cancel = True
End If
End If
'----------------------------------------------------------------------------------------------
If ActiveSheet.Range("P23").Text < "0" Then
If Not Intersect(Target, Range("O23")) Is Nothing Then
ActiveSheet.Range("O23").Value = "ü"
Cancel = True
End If
End If
If ActiveSheet.Range("O23").Text < "0" Then
If Not Intersect(Target, Range("P23")) Is Nothing Then
ActiveSheet.Range("P23").Value = "ü"
Cancel = True
End If
End If
'----------------------------------------------------------------------------------------------
If ActiveSheet.Range("P24").Text < "0" Then
If Not Intersect(Target, Range("O24")) Is Nothing Then
ActiveSheet.Range("O24").Value = "ü"
Cancel = True
End If
End If
If ActiveSheet.Range("O24").Text < "0" Then
If Not Intersect(Target, Range("P24")) Is Nothing Then
ActiveSheet.Range("P24").Value = "ü"
Cancel = True
End If
End If
'----------------------------------------------------------------------------------------------
If ActiveSheet.Range("P25").Text < "0" Then
If Not Intersect(Target, Range("O25")) Is Nothing Then
ActiveSheet.Range("O25").Value = "ü"
Cancel = True
End If
End If
If ActiveSheet.Range("O25").Text < "0" Then
If Not Intersect(Target, Range("P25")) Is Nothing Then
ActiveSheet.Range("P25").Value = "ü"
Cancel = True
End If
End If
'----------------------------------------------------------------------------------------------
If ActiveSheet.Range("P26").Text < "0" Then
If Not Intersect(Target, Range("O26")) Is Nothing Then
ActiveSheet.Range("O26").Value = "ü"
Cancel = True
End If
End If
If ActiveSheet.Range("O26").Text < "0" Then
If Not Intersect(Target, Range("P26")) Is Nothing Then
ActiveSheet.Range("P26").Value = "ü"
Cancel = True
End If
End If
'----------------------------------------------------------------------------------------------
If ActiveSheet.Range("P27").Text < "0" Then
If Not Intersect(Target, Range("O27")) Is Nothing Then
ActiveSheet.Range("O27").Value = "ü"
Cancel = True
End If
End If
If ActiveSheet.Range("O27").Text < "0" Then
If Not Intersect(Target, Range("P27")) Is Nothing Then
ActiveSheet.Range("P27").Value = "ü"
Cancel = True
End If
End If
'----------------------------------------------------------------------------------------------
If ActiveSheet.Range("P36").Text < "0" Then
If Not Intersect(Target, Range("O36")) Is Nothing Then
ActiveSheet.Range("O36").Value = "ü"
Cancel = True
End If
End If
If ActiveSheet.Range("O36").Text < "0" Then
If Not Intersect(Target, Range("P36")) Is Nothing Then
ActiveSheet.Range("P36").Value = "ü"
Cancel = True
End If
End If
'----------------------------------------------------------------------------------------------
If ActiveSheet.Range("P37").Text < "0" Then
If Not Intersect(Target, Range("O37")) Is Nothing Then
ActiveSheet.Range("O37").Value = "ü"
Cancel = True
End If
End If
If ActiveSheet.Range("O37").Text < "0" Then
If Not Intersect(Target, Range("P37")) Is Nothing Then
ActiveSheet.Range("P37").Value = "ü"
Cancel = True
End If
End If
'----------------------------------------------------------------------------------------------
If ActiveSheet.Range("P38").Text < "0" Then
If Not Intersect(Target, Range("O38")) Is Nothing Then
ActiveSheet.Range("O38").Value = "ü"
Cancel = True
End If
End If
If ActiveSheet.Range("O38").Text < "0" Then
If Not Intersect(Target, Range("P38")) Is Nothing Then
ActiveSheet.Range("P38").Value = "ü"
Cancel = True
End If
End If
'----------------------------------------------------------------------------------------------
If ActiveSheet.Range("P39").Text < "0" Then
If Not Intersect(Target, Range("O39")) Is Nothing Then
ActiveSheet.Range("O39").Value = "ü"
Cancel = True
End If
End If
If ActiveSheet.Range("O39").Text < "0" Then
If Not Intersect(Target, Range("P39")) Is Nothing Then
ActiveSheet.Range("P39").Value = "ü"
Cancel = True
End If
End If
'----------------------------------------------------------------------------------------------
If ActiveSheet.Range("P40").Text < "0" Then
If Not Intersect(Target, Range("O40")) Is Nothing Then
ActiveSheet.Range("O40").Value = "ü"
Cancel = True
End If
End If
If ActiveSheet.Range("O40").Text < "0" Then
If Not Intersect(Target, Range("P40")) Is Nothing Then
ActiveSheet.Range("P40").Value = "ü"
Cancel = True
End If
End If
'----------------------------------------------------------------------------------------------
If ActiveSheet.Range("P41").Text < "0" Then
If Not Intersect(Target, Range("O41")) Is Nothing Then
ActiveSheet.Range("O41").Value = "ü"
Cancel = True
End If
End If
If ActiveSheet.Range("O41").Text < "0" Then
If Not Intersect(Target, Range("P41")) Is Nothing Then
ActiveSheet.Range("P41").Value = "ü"
Cancel = True
End If
End If
'----------------------------------------------------------------------------------------------
If ActiveSheet.Range("P42").Text < "0" Then
If Not Intersect(Target, Range("O42")) Is Nothing Then
ActiveSheet.Range("O42").Value = "ü"
Cancel = True
End If
End If
If ActiveSheet.Range("O42").Text < "0" Then
If Not Intersect(Target, Range("P42")) Is Nothing Then
ActiveSheet.Range("P42").Value = "ü"
Cancel = True
End If
End If
'----------------------------------------------------------------------------------------------
If ActiveSheet.Range("P51").Text < "0" Then
If Not Intersect(Target, Range("O51")) Is Nothing Then
ActiveSheet.Range("O51").Value = "ü"
Cancel = True
End If
End If
If ActiveSheet.Range("O51").Text < "0" Then
If Not Intersect(Target, Range("P51")) Is Nothing Then
ActiveSheet.Range("P51").Value = "ü"
Cancel = True
End If
End If
'----------------------------------------------------------------------------------------------
If ActiveSheet.Range("P52").Text < "0" Then
If Not Intersect(Target, Range("O52")) Is Nothing Then
ActiveSheet.Range("O52").Value = "ü"
Cancel = True
End If
End If
If ActiveSheet.Range("O52").Text < "0" Then
If Not Intersect(Target, Range("P52")) Is Nothing Then
ActiveSheet.Range("P52").Value = "ü"
Cancel = True
End If
End If
'----------------------------------------------------------------------------------------------
If ActiveSheet.Range("P53").Text < "0" Then
If Not Intersect(Target, Range("O53")) Is Nothing Then
ActiveSheet.Range("O53").Value = "ü"
Cancel = True
End If
End If
If ActiveSheet.Range("O53").Text < "0" Then
If Not Intersect(Target, Range("P53")) Is Nothing Then
ActiveSheet.Range("P53").Value = "ü"
Cancel = True
End If
End If
'----------------------------------------------------------------------------------------------
If ActiveSheet.Range("P54").Text < "0" Then
If Not Intersect(Target, Range("O54")) Is Nothing Then
ActiveSheet.Range("O54").Value = "ü"
Cancel = True
End If
End If
If ActiveSheet.Range("O54").Text < "0" Then
If Not Intersect(Target, Range("P54")) Is Nothing Then
ActiveSheet.Range("P54").Value = "ü"
Cancel = True
End If
End If
'----------------------------------------------------------------------------------------------
If ActiveSheet.Range("P55").Text < "0" Then
If Not Intersect(Target, Range("O55")) Is Nothing Then
ActiveSheet.Range("O55").Value = "ü"
Cancel = True
End If
End If
If ActiveSheet.Range("O55").Text < "0" Then
If Not Intersect(Target, Range("P55")) Is Nothing Then
ActiveSheet.Range("P55").Value = "ü"
Cancel = True
End If
End If
'----------------------------------------------------------------------------------------------
If ActiveSheet.Range("P56").Text < "0" Then
If Not Intersect(Target, Range("O56")) Is Nothing Then
ActiveSheet.Range("O56").Value = "ü"
Cancel = True
End If
End If
If ActiveSheet.Range("O56").Text < "0" Then
If Not Intersect(Target, Range("P56")) Is Nothing Then
ActiveSheet.Range("P56").Value = "ü"
Cancel = True
End If
End If
'----------------------------------------------------------------------------------------------
If ActiveSheet.Range("P57").Text < "0" Then
If Not Intersect(Target, Range("O57")) Is Nothing Then
ActiveSheet.Range("O57").Value = "ü"
Cancel = True
End If
End If
If ActiveSheet.Range("O57").Text < "0" Then
If Not Intersect(Target, Range("P57")) Is Nothing Then
ActiveSheet.Range("P57").Value = "ü"
Cancel = True
End If
End If
'----------------------------------------------------------------------------------------------
If ActiveSheet.Range("P66").Text < "0" Then
If Not Intersect(Target, Range("O66")) Is Nothing Then
ActiveSheet.Range("O66").Value = "ü"
Cancel = True
End If
End If
If ActiveSheet.Range("O66").Text < "0" Then
If Not Intersect(Target, Range("P66")) Is Nothing Then
ActiveSheet.Range("P66").Value = "ü"
Cancel = True
End If
End If
'----------------------------------------------------------------------------------------------
If ActiveSheet.Range("P67").Text < "0" Then
If Not Intersect(Target, Range("O67")) Is Nothing Then
ActiveSheet.Range("O67").Value = "ü"
Cancel = True
End If
End If
If ActiveSheet.Range("O67").Text < "0" Then
If Not Intersect(Target, Range("P67")) Is Nothing Then
ActiveSheet.Range("P67").Value = "ü"
Cancel = True
End If
End If
'----------------------------------------------------------------------------------------------
If ActiveSheet.Range("P68").Text < "0" Then
If Not Intersect(Target, Range("O68")) Is Nothing Then
ActiveSheet.Range("O68").Value = "ü"
Cancel = True
End If
End If
If ActiveSheet.Range("O68").Text < "0" Then
If Not Intersect(Target, Range("P68")) Is Nothing Then
ActiveSheet.Range("P68").Value = "ü"
Cancel = True
End If
End If
'----------------------------------------------------------------------------------------------
If ActiveSheet.Range("P69").Text < "0" Then
If Not Intersect(Target, Range("O69")) Is Nothing Then
ActiveSheet.Range("O69").Value = "ü"
Cancel = True
End If
End If
If ActiveSheet.Range("O69").Text < "0" Then
If Not Intersect(Target, Range("P69")) Is Nothing Then
ActiveSheet.Range("P69").Value = "ü"
Cancel = True
End If
End If
'----------------------------------------------------------------------------------------------
If ActiveSheet.Range("P70").Text < "0" Then
If Not Intersect(Target, Range("O70")) Is Nothing Then
ActiveSheet.Range("O70").Value = "ü"
Cancel = True
End If
End If
If ActiveSheet.Range("O70").Text < "0" Then
If Not Intersect(Target, Range("P70")) Is Nothing Then
ActiveSheet.Range("P70").Value = "ü"
Cancel = True
End If
End If
'----------------------------------------------------------------------------------------------
If ActiveSheet.Range("P71").Text < "0" Then
If Not Intersect(Target, Range("O71")) Is Nothing Then
ActiveSheet.Range("O71").Value = "ü"
Cancel = True
End If
End If
If ActiveSheet.Range("O71").Text < "0" Then
If Not Intersect(Target, Range("P71")) Is Nothing Then
ActiveSheet.Range("P71").Value = "ü"
Cancel = True
End If
End If
'----------------------------------------------------------------------------------------------
If ActiveSheet.Range("P72").Text < "0" Then
If Not Intersect(Target, Range("O72")) Is Nothing Then
ActiveSheet.Range("O72").Value = "ü"
Cancel = True
End If
End If
If ActiveSheet.Range("O72").Text < "0" Then
If Not Intersect(Target, Range("P72")) Is Nothing Then
ActiveSheet.Range("P72").Value = "ü"
Cancel = True
End If
End If
'----------------------------------------------------------------------------------------------
If ActiveSheet.Range("P81").Text < "0" Then
If Not Intersect(Target, Range("O81")) Is Nothing Then
ActiveSheet.Range("O81").Value = "ü"
Cancel = True
End If
End If
If ActiveSheet.Range("O81").Text < "0" Then
If Not Intersect(Target, Range("P81")) Is Nothing Then
ActiveSheet.Range("P81").Value = "ü"
Cancel = True
End If
End If
'----------------------------------------------------------------------------------------------
If ActiveSheet.Range("P82").Text < "0" Then
If Not Intersect(Target, Range("O82")) Is Nothing Then
ActiveSheet.Range("O82").Value = "ü"
Cancel = True
End If
End If
If ActiveSheet.Range("O82").Text < "0" Then
If Not Intersect(Target, Range("P82")) Is Nothing Then
ActiveSheet.Range("P82").Value = "ü"
Cancel = True
End If
End If
'----------------------------------------------------------------------------------------------
If ActiveSheet.Range("P83").Text < "0" Then
If Not Intersect(Target, Range("O83")) Is Nothing Then
ActiveSheet.Range("O83").Value = "ü"
Cancel = True
End If
End If
If ActiveSheet.Range("O83").Text < "0" Then
If Not Intersect(Target, Range("P83")) Is Nothing Then
ActiveSheet.Range("P83").Value = "ü"
Cancel = True
End If
End If
'----------------------------------------------------------------------------------------------
If ActiveSheet.Range("P84").Text < "0" Then
If Not Intersect(Target, Range("O84")) Is Nothing Then
ActiveSheet.Range("O84").Value = "ü"
Cancel = True
End If
End If
If ActiveSheet.Range("O84").Text < "0" Then
If Not Intersect(Target, Range("P84")) Is Nothing Then
ActiveSheet.Range("P84").Value = "ü"
Cancel = True
End If
End If
'----------------------------------------------------------------------------------------------
If ActiveSheet.Range("P85").Text < "0" Then
If Not Intersect(Target, Range("O85")) Is Nothing Then
ActiveSheet.Range("O85").Value = "ü"
Cancel = True
End If
End If
If ActiveSheet.Range("O85").Text < "0" Then
If Not Intersect(Target, Range("P85")) Is Nothing Then
ActiveSheet.Range("P85").Value = "ü"
Cancel = True
End If
End If
'----------------------------------------------------------------------------------------------
If ActiveSheet.Range("P86").Text < "0" Then
If Not Intersect(Target, Range("O86")) Is Nothing Then
ActiveSheet.Range("O86").Value = "ü"
Cancel = True
End If
End If
If ActiveSheet.Range("O86").Text < "0" Then
If Not Intersect(Target, Range("P86")) Is Nothing Then
ActiveSheet.Range("P86").Value = "ü"
Cancel = True
End If
End If
'----------------------------------------------------------------------------------------------
If ActiveSheet.Range("P87").Text < "0" Then
If Not Intersect(Target, Range("O87")) Is Nothing Then
ActiveSheet.Range("O87").Value = "ü"
Cancel = True
End If
End If
If ActiveSheet.Range("O87").Text < "0" Then
If Not Intersect(Target, Range("P87")) Is Nothing Then
ActiveSheet.Range("P87").Value = "ü"
Cancel = True
End If
End If
'----------------------------------------------------------------------------------------------
If ActiveSheet.Range("P96").Text < "0" Then
If Not Intersect(Target, Range("O96")) Is Nothing Then
ActiveSheet.Range("O96").Value = "ü"
Cancel = True
End If
End If
If ActiveSheet.Range("O96").Text < "0" Then
If Not Intersect(Target, Range("P96")) Is Nothing Then
ActiveSheet.Range("P96").Value = "ü"
Cancel = True
End If
End If
'----------------------------------------------------------------------------------------------
If ActiveSheet.Range("P97").Text < "0" Then
If Not Intersect(Target, Range("O97")) Is Nothing Then
ActiveSheet.Range("O97").Value = "ü"
Cancel = True
End If
End If
If ActiveSheet.Range("O97").Text < "0" Then
If Not Intersect(Target, Range("P97")) Is Nothing Then
ActiveSheet.Range("P97").Value = "ü"
Cancel = True
End If
End If
'----------------------------------------------------------------------------------------------
If ActiveSheet.Range("P98").Text < "0" Then
If Not Intersect(Target, Range("O98")) Is Nothing Then
ActiveSheet.Range("O98").Value = "ü"
Cancel = True
End If
End If
If ActiveSheet.Range("O98").Text < "0" Then
If Not Intersect(Target, Range("P98")) Is Nothing Then
ActiveSheet.Range("P98").Value = "ü"
Cancel = True
End If
End If
'----------------------------------------------------------------------------------------------
If ActiveSheet.Range("P99").Text < "0" Then
If Not Intersect(Target, Range("O99")) Is Nothing Then
ActiveSheet.Range("O99").Value = "ü"
Cancel = True
End If
End If
If ActiveSheet.Range("O99").Text < "0" Then
If Not Intersect(Target, Range("P99")) Is Nothing Then
ActiveSheet.Range("P99").Value = "ü"
Cancel = True
End If
End If
'----------------------------------------------------------------------------------------------
If ActiveSheet.Range("P100").Text < "0" Then
If Not Intersect(Target, Range("O100")) Is Nothing Then
ActiveSheet.Range("O100").Value = "ü"
Cancel = True
End If
End If
If ActiveSheet.Range("O100").Text < "0" Then
If Not Intersect(Target, Range("P100")) Is Nothing Then
ActiveSheet.Range("P100").Value = "ü"
Cancel = True
End If
End If
'----------------------------------------------------------------------------------------------
If ActiveSheet.Range("P101").Text < "0" Then
If Not Intersect(Target, Range("O101")) Is Nothing Then
ActiveSheet.Range("O101").Value = "ü"
Cancel = True
End If
End If
If ActiveSheet.Range("O101").Text < "0" Then
If Not Intersect(Target, Range("P101")) Is Nothing Then
ActiveSheet.Range("P101").Value = "ü"
Cancel = True
End If
End If
'----------------------------------------------------------------------------------------------
If ActiveSheet.Range("P102").Text < "0" Then
If Not Intersect(Target, Range("O102")) Is Nothing Then
ActiveSheet.Range("O102").Value = "ü"
Cancel = True
End If
End If
If ActiveSheet.Range("O102").Text < "0" Then
If Not Intersect(Target, Range("P102")) Is Nothing Then
ActiveSheet.Range("P102").Value = "ü"
Cancel = True
End If
End If
'----------------------------------------------------------------------------------------------
If ActiveSheet.Range("P111").Text < "0" Then
If Not Intersect(Target, Range("O111")) Is Nothing Then
ActiveSheet.Range("O111").Value = "ü"
Cancel = True
End If
End If
If ActiveSheet.Range("O111").Text < "0" Then
If Not Intersect(Target, Range("P111")) Is Nothing Then
ActiveSheet.Range("P111").Value = "ü"
Cancel = True
End If
End If
'----------------------------------------------------------------------------------------------
If ActiveSheet.Range("P112").Text < "0" Then
If Not Intersect(Target, Range("O112")) Is Nothing Then
ActiveSheet.Range("O112").Value = "ü"
Cancel = True
End If
End If
If ActiveSheet.Range("O112").Text < "0" Then
If Not Intersect(Target, Range("P112")) Is Nothing Then
ActiveSheet.Range("P112").Value = "ü"
Cancel = True
End If
End If
'----------------------------------------------------------------------------------------------
If ActiveSheet.Range("P113").Text < "0" Then
If Not Intersect(Target, Range("O113")) Is Nothing Then
ActiveSheet.Range("O113").Value = "ü"
Cancel = True
End If
End If
If ActiveSheet.Range("O113").Text < "0" Then
If Not Intersect(Target, Range("P113")) Is Nothing Then
ActiveSheet.Range("P113").Value = "ü"
Cancel = True
End If
End If
'----------------------------------------------------------------------------------------------
If ActiveSheet.Range("P114").Text < "0" Then
If Not Intersect(Target, Range("O114")) Is Nothing Then
ActiveSheet.Range("O114").Value = "ü"
Cancel = True
End If
End If
If ActiveSheet.Range("O114").Text < "0" Then
If Not Intersect(Target, Range("P114")) Is Nothing Then
ActiveSheet.Range("P114").Value = "ü"
Cancel = True
End If
End If
'----------------------------------------------------------------------------------------------
If ActiveSheet.Range("P115").Text < "0" Then
If Not Intersect(Target, Range("O115")) Is Nothing Then
ActiveSheet.Range("O115").Value = "ü"
Cancel = True
End If
End If
If ActiveSheet.Range("O115").Text < "0" Then
If Not Intersect(Target, Range("P115")) Is Nothing Then
ActiveSheet.Range("P115").Value = "ü"
Cancel = True
End If
End If
'----------------------------------------------------------------------------------------------
If ActiveSheet.Range("P116").Text < "0" Then
If Not Intersect(Target, Range("O116")) Is Nothing Then
ActiveSheet.Range("O116").Value = "ü"
Cancel = True
End If
End If
If ActiveSheet.Range("O116").Text < "0" Then
If Not Intersect(Target, Range("P116")) Is Nothing Then
ActiveSheet.Range("P116").Value = "ü"
Cancel = True
End If
End If
'----------------------------------------------------------------------------------------------
If ActiveSheet.Range("P117").Text < "0" Then
If Not Intersect(Target, Range("O117")) Is Nothing Then
ActiveSheet.Range("O117").Value = "ü"
Cancel = True
End If
End If
If ActiveSheet.Range("O117").Text < "0" Then
If Not Intersect(Target, Range("P117")) Is Nothing Then
ActiveSheet.Range("P117").Value = "ü"
Cancel = True
End If
End If
'----------------------------------------------------------------------------------------------
If ActiveSheet.Range("P126").Text < "0" Then
If Not Intersect(Target, Range("O126")) Is Nothing Then
ActiveSheet.Range("O126").Value = "ü"
Cancel = True
End If
End If
If ActiveSheet.Range("O126").Text < "0" Then
If Not Intersect(Target, Range("P126")) Is Nothing Then
ActiveSheet.Range("P126").Value = "ü"
Cancel = True
End If
End If
'----------------------------------------------------------------------------------------------
If ActiveSheet.Range("P127").Text < "0" Then
If Not Intersect(Target, Range("O127")) Is Nothing Then
ActiveSheet.Range("O127").Value = "ü"
Cancel = True
End If
End If
If ActiveSheet.Range("O127").Text < "0" Then
If Not Intersect(Target, Range("P127")) Is Nothing Then
ActiveSheet.Range("P127").Value = "ü"
Cancel = True
End If
End If
'----------------------------------------------------------------------------------------------
If ActiveSheet.Range("P128").Text < "0" Then
If Not Intersect(Target, Range("O128")) Is Nothing Then
ActiveSheet.Range("O128").Value = "ü"
Cancel = True
End If
End If
If ActiveSheet.Range("O128").Text < "0" Then
If Not Intersect(Target, Range("P128")) Is Nothing Then
ActiveSheet.Range("P128").Value = "ü"
Cancel = True
End If
End If
'----------------------------------------------------------------------------------------------
If ActiveSheet.Range("P129").Text < "0" Then
If Not Intersect(Target, Range("O129")) Is Nothing Then
ActiveSheet.Range("O129").Value = "ü"
Cancel = True
End If
End If
If ActiveSheet.Range("O129").Text < "0" Then
If Not Intersect(Target, Range("P129")) Is Nothing Then
ActiveSheet.Range("P129").Value = "ü"
Cancel = True
End If
End If
'----------------------------------------------------------------------------------------------
If ActiveSheet.Range("P130").Text < "0" Then
If Not Intersect(Target, Range("O130")) Is Nothing Then
ActiveSheet.Range("O130").Value = "ü"
Cancel = True
End If
End If
If ActiveSheet.Range("O130").Text < "0" Then
If Not Intersect(Target, Range("P130")) Is Nothing Then
ActiveSheet.Range("P130").Value = "ü"
Cancel = True
End If
End If
'----------------------------------------------------------------------------------------------
If ActiveSheet.Range("P131").Text < "0" Then
If Not Intersect(Target, Range("O131")) Is Nothing Then
ActiveSheet.Range("O131").Value = "ü"
Cancel = True
End If
End If
If ActiveSheet.Range("O131").Text < "0" Then
If Not Intersect(Target, Range("P131")) Is Nothing Then
ActiveSheet.Range("P131").Value = "ü"
Cancel = True
End If
End If
'----------------------------------------------------------------------------------------------
If ActiveSheet.Range("P132").Text < "0" Then
If Not Intersect(Target, Range("O132")) Is Nothing Then
ActiveSheet.Range("O132").Value = "ü"
Cancel = True
End If
End If
If ActiveSheet.Range("O132").Text < "0" Then
If Not Intersect(Target, Range("P132")) Is Nothing Then
ActiveSheet.Range("P132").Value = "ü"
Cancel = True
End If
End If
'----------------------------------------------------------------------------------------------
If ActiveSheet.Range("P141").Text < "0" Then
If Not Intersect(Target, Range("O141")) Is Nothing Then
ActiveSheet.Range("O141").Value = "ü"
Cancel = True
End If
End If
If ActiveSheet.Range("O141").Text < "0" Then
If Not Intersect(Target, Range("P141")) Is Nothing Then
ActiveSheet.Range("P141").Value = "ü"
Cancel = True
End If
End If
'----------------------------------------------------------------------------------------------
If ActiveSheet.Range("P142").Text < "0" Then
If Not Intersect(Target, Range("O142")) Is Nothing Then
ActiveSheet.Range("O142").Value = "ü"
Cancel = True
End If
End If
If ActiveSheet.Range("O142").Text < "0" Then
If Not Intersect(Target, Range("P142")) Is Nothing Then
ActiveSheet.Range("P142").Value = "ü"
Cancel = True
End If
End If
'----------------------------------------------------------------------------------------------
If ActiveSheet.Range("P143").Text < "0" Then
If Not Intersect(Target, Range("O143")) Is Nothing Then
ActiveSheet.Range("O143").Value = "ü"
Cancel = True
End If
End If
If ActiveSheet.Range("O143").Text < "0" Then
If Not Intersect(Target, Range("P143")) Is Nothing Then
ActiveSheet.Range("P143").Value = "ü"
Cancel = True
End If
End If
'----------------------------------------------------------------------------------------------
If ActiveSheet.Range("P144").Text < "0" Then
If Not Intersect(Target, Range("O144")) Is Nothing Then
ActiveSheet.Range("O144").Value = "ü"
Cancel = True
End If
End If
If ActiveSheet.Range("O144").Text < "0" Then
If Not Intersect(Target, Range("P144")) Is Nothing Then
ActiveSheet.Range("P144").Value = "ü"
Cancel = True
End If
End If
'----------------------------------------------------------------------------------------------
If ActiveSheet.Range("P145").Text < "0" Then
If Not Intersect(Target, Range("O145")) Is Nothing Then
ActiveSheet.Range("O145").Value = "ü"
Cancel = True
End If
End If
If ActiveSheet.Range("O145").Text < "0" Then
If Not Intersect(Target, Range("P145")) Is Nothing Then
ActiveSheet.Range("P145").Value = "ü"
Cancel = True
End If
End If
'----------------------------------------------------------------------------------------------
If ActiveSheet.Range("P146").Text < "0" Then
If Not Intersect(Target, Range("O146")) Is Nothing Then
ActiveSheet.Range("O146").Value = "ü"
Cancel = True
End If
End If
If ActiveSheet.Range("O146").Text < "0" Then
If Not Intersect(Target, Range("P146")) Is Nothing Then
ActiveSheet.Range("P146").Value = "ü"
Cancel = True
End If
End If
'----------------------------------------------------------------------------------------------
If ActiveSheet.Range("P147").Text < "0" Then
If Not Intersect(Target, Range("O147")) Is Nothing Then
ActiveSheet.Range("O147").Value = "ü"
Cancel = True
End If
End If
If ActiveSheet.Range("O147").Text < "0" Then
If Not Intersect(Target, Range("P147")) Is Nothing Then
ActiveSheet.Range("P147").Value = "ü"
Cancel = True
End If
End If
'----------------------------------------------------------------------------------------------
If ActiveSheet.Range("P156").Text < "0" Then
If Not Intersect(Target, Range("O156")) Is Nothing Then
ActiveSheet.Range("O156").Value = "ü"
Cancel = True
End If
End If
If ActiveSheet.Range("O156").Text < "0" Then
If Not Intersect(Target, Range("P156")) Is Nothing Then
ActiveSheet.Range("P156").Value = "ü"
Cancel = True
End If
End If
'----------------------------------------------------------------------------------------------
If ActiveSheet.Range("P157").Text < "0" Then
If Not Intersect(Target, Range("O157")) Is Nothing Then
ActiveSheet.Range("O157").Value = "ü"
Cancel = True
End If
End If
If ActiveSheet.Range("O157").Text < "0" Then
If Not Intersect(Target, Range("P157")) Is Nothing Then
ActiveSheet.Range("P157").Value = "ü"
Cancel = True
End If
End If
'----------------------------------------------------------------------------------------------
If ActiveSheet.Range("P158").Text < "0" Then
If Not Intersect(Target, Range("O158")) Is Nothing Then
ActiveSheet.Range("O158").Value = "ü"
Cancel = True
End If
End If
If ActiveSheet.Range("O158").Text < "0" Then
If Not Intersect(Target, Range("P158")) Is Nothing Then
ActiveSheet.Range("P158").Value = "ü"
Cancel = True
End If
End If
'----------------------------------------------------------------------------------------------
If ActiveSheet.Range("P159").Text < "0" Then
If Not Intersect(Target, Range("O159")) Is Nothing Then
ActiveSheet.Range("O159").Value = "ü"
Cancel = True
End If
End If
If ActiveSheet.Range("O159").Text < "0" Then
If Not Intersect(Target, Range("P159")) Is Nothing Then
ActiveSheet.Range("P159").Value = "ü"
Cancel = True
End If
End If
'----------------------------------------------------------------------------------------------
If ActiveSheet.Range("P160").Text < "0" Then
If Not Intersect(Target, Range("O160")) Is Nothing Then
ActiveSheet.Range("O160").Value = "ü"
Cancel = True
End If
End If
If ActiveSheet.Range("O160").Text < "0" Then
If Not Intersect(Target, Range("P160")) Is Nothing Then
ActiveSheet.Range("P160").Value = "ü"
Cancel = True
End If
End If
'----------------------------------------------------------------------------------------------
If ActiveSheet.Range("P161").Text < "0" Then
If Not Intersect(Target, Range("O161")) Is Nothing Then
ActiveSheet.Range("O161").Value = "ü"
Cancel = True
End If
End If
If ActiveSheet.Range("O161").Text < "0" Then
If Not Intersect(Target, Range("P161")) Is Nothing Then
ActiveSheet.Range("P161").Value = "ü"
Cancel = True
End If
End If
'----------------------------------------------------------------------------------------------
If ActiveSheet.Range("P162").Text < "0" Then
If Not Intersect(Target, Range("O162")) Is Nothing Then
ActiveSheet.Range("O162").Value = "ü"
Cancel = True
End If
End If
If ActiveSheet.Range("O162").Text < "0" Then
If Not Intersect(Target, Range("P162")) Is Nothing Then
ActiveSheet.Range("P162").Value = "ü"
Cancel = True
End If
End If
'----------------------------------------------------------------------------------------------
If ActiveSheet.Range("P171").Text < "0" Then
If Not Intersect(Target, Range("O171")) Is Nothing Then
ActiveSheet.Range("O171").Value = "ü"
Cancel = True
End If
End If
If ActiveSheet.Range("O171").Text < "0" Then
If Not Intersect(Target, Range("P171")) Is Nothing Then
ActiveSheet.Range("P171").Value = "ü"
Cancel = True
End If
End If
'----------------------------------------------------------------------------------------------
If ActiveSheet.Range("P172").Text < "0" Then
If Not Intersect(Target, Range("O172")) Is Nothing Then
ActiveSheet.Range("O172").Value = "ü"
Cancel = True
End If
End If
If ActiveSheet.Range("O172").Text < "0" Then
If Not Intersect(Target, Range("P172")) Is Nothing Then
ActiveSheet.Range("P172").Value = "ü"
Cancel = True
End If
End If
'----------------------------------------------------------------------------------------------
If ActiveSheet.Range("P173").Text < "0" Then
If Not Intersect(Target, Range("O173")) Is Nothing Then
ActiveSheet.Range("O173").Value = "ü"
Cancel = True
End If
End If
If ActiveSheet.Range("O173").Text < "0" Then
If Not Intersect(Target, Range("P173")) Is Nothing Then
ActiveSheet.Range("P173").Value = "ü"
Cancel = True
End If
End If
'----------------------------------------------------------------------------------------------
If ActiveSheet.Range("P174").Text < "0" Then
If Not Intersect(Target, Range("O174")) Is Nothing Then
ActiveSheet.Range("O174").Value = "ü"
Cancel = True
End If
End If
If ActiveSheet.Range("O174").Text < "0" Then
If Not Intersect(Target, Range("P174")) Is Nothing Then
ActiveSheet.Range("P174").Value = "ü"
Cancel = True
End If
End If
'----------------------------------------------------------------------------------------------
If ActiveSheet.Range("P175").Text < "0" Then
If Not Intersect(Target, Range("O175")) Is Nothing Then
ActiveSheet.Range("O175").Value = "ü"
Cancel = True
End If
End If
If ActiveSheet.Range("O175").Text < "0" Then
If Not Intersect(Target, Range("P175")) Is Nothing Then
ActiveSheet.Range("P175").Value = "ü"
Cancel = True
End If
End If
'----------------------------------------------------------------------------------------------
If ActiveSheet.Range("P176").Text < "0" Then
If Not Intersect(Target, Range("O176")) Is Nothing Then
ActiveSheet.Range("O176").Value = "ü"
Cancel = True
End If
End If
If ActiveSheet.Range("O176").Text < "0" Then
If Not Intersect(Target, Range("P176")) Is Nothing Then
ActiveSheet.Range("P176").Value = "ü"
Cancel = True
End If
End If
'----------------------------------------------------------------------------------------------
If ActiveSheet.Range("P177").Text < "0" Then
If Not Intersect(Target, Range("O177")) Is Nothing Then
ActiveSheet.Range("O177").Value = "ü"
Cancel = True
End If
End If
If ActiveSheet.Range("O177").Text < "0" Then
If Not Intersect(Target, Range("P177")) Is Nothing Then
ActiveSheet.Range("P177").Value = "ü"
Cancel = True
End If
End If
'----------------------------------------------------------------------------------------------
If ActiveSheet.Range("P186").Text < "0" Then
If Not Intersect(Target, Range("O186")) Is Nothing Then
ActiveSheet.Range("O186").Value = "ü"
Cancel = True
End If
End If
If ActiveSheet.Range("O186").Text < "0" Then
If Not Intersect(Target, Range("P186")) Is Nothing Then
ActiveSheet.Range("P186").Value = "ü"
Cancel = True
End If
End If
'----------------------------------------------------------------------------------------------
If ActiveSheet.Range("P187").Text < "0" Then
If Not Intersect(Target, Range("O187")) Is Nothing Then
ActiveSheet.Range("O187").Value = "ü"
Cancel = True
End If
End If
If ActiveSheet.Range("O187").Text < "0" Then
If Not Intersect(Target, Range("P187")) Is Nothing Then
ActiveSheet.Range("P187").Value = "ü"
Cancel = True
End If
End If
'----------------------------------------------------------------------------------------------
If ActiveSheet.Range("P188").Text < "0" Then
If Not Intersect(Target, Range("O188")) Is Nothing Then
ActiveSheet.Range("O188").Value = "ü"
Cancel = True
End If
End If
If ActiveSheet.Range("O188").Text < "0" Then
If Not Intersect(Target, Range("P188")) Is Nothing Then
ActiveSheet.Range("P188").Value = "ü"
Cancel = True
End If
End If
'----------------------------------------------------------------------------------------------
If ActiveSheet.Range("P189").Text < "0" Then
If Not Intersect(Target, Range("O189")) Is Nothing Then
ActiveSheet.Range("O189").Value = "ü"
Cancel = True
End If
End If
If ActiveSheet.Range("O189").Text < "0" Then
If Not Intersect(Target, Range("P189")) Is Nothing Then
ActiveSheet.Range("P189").Value = "ü"
Cancel = True
End If
End If
'----------------------------------------------------------------------------------------------
If ActiveSheet.Range("P190").Text < "0" Then
If Not Intersect(Target, Range("O190")) Is Nothing Then
ActiveSheet.Range("O190").Value = "ü"
Cancel = True
End If
End If
If ActiveSheet.Range("O190").Text < "0" Then
If Not Intersect(Target, Range("P190")) Is Nothing Then
ActiveSheet.Range("P190").Value = "ü"
Cancel = True
End If
End If
'----------------------------------------------------------------------------------------------
If ActiveSheet.Range("P191").Text < "0" Then
If Not Intersect(Target, Range("O191")) Is Nothing Then
ActiveSheet.Range("O191").Value = "ü"
Cancel = True
End If
End If
If ActiveSheet.Range("O191").Text < "0" Then
If Not Intersect(Target, Range("P191")) Is Nothing Then
ActiveSheet.Range("P191").Value = "ü"
Cancel = True
End If
End If
'----------------------------------------------------------------------------------------------
If ActiveSheet.Range("P192").Text < "0" Then
If Not Intersect(Target, Range("O192")) Is Nothing Then
ActiveSheet.Range("O192").Value = "ü"
Cancel = True
End If
End If
If ActiveSheet.Range("O192").Text < "0" Then
If Not Intersect(Target, Range("P192")) Is Nothing Then
ActiveSheet.Range("P192").Value = "ü"
Cancel = True
End If
End If
'----------------------------------------------------------------------------------------------
If ActiveSheet.Range("P201").Text < "0" Then
If Not Intersect(Target, Range("O201")) Is Nothing Then
ActiveSheet.Range("O201").Value = "ü"
Cancel = True
End If
End If
If ActiveSheet.Range("O201").Text < "0" Then
If Not Intersect(Target, Range("P201")) Is Nothing Then
ActiveSheet.Range("P201").Value = "ü"
Cancel = True
End If
End If
'----------------------------------------------------------------------------------------------
If ActiveSheet.Range("P202").Text < "0" Then
If Not Intersect(Target, Range("O202")) Is Nothing Then
ActiveSheet.Range("O202").Value = "ü"
Cancel = True
End If
End If
If ActiveSheet.Range("O202").Text < "0" Then
If Not Intersect(Target, Range("P202")) Is Nothing Then
ActiveSheet.Range("P202").Value = "ü"
Cancel = True
End If
End If
'----------------------------------------------------------------------------------------------
If ActiveSheet.Range("P203").Text < "0" Then
If Not Intersect(Target, Range("O203")) Is Nothing Then
ActiveSheet.Range("O203").Value = "ü"
Cancel = True
End If
End If
If ActiveSheet.Range("O203").Text < "0" Then
If Not Intersect(Target, Range("P203")) Is Nothing Then
ActiveSheet.Range("P203").Value = "ü"
Cancel = True
End If
End If
'----------------------------------------------------------------------------------------------
If ActiveSheet.Range("P204").Text < "0" Then
If Not Intersect(Target, Range("O204")) Is Nothing Then
ActiveSheet.Range("O204").Value = "ü"
Cancel = True
End If
End If
If ActiveSheet.Range("O204").Text < "0" Then
If Not Intersect(Target, Range("P204")) Is Nothing Then
ActiveSheet.Range("P204").Value = "ü"
Cancel = True
End If
End If
'----------------------------------------------------------------------------------------------
If ActiveSheet.Range("P205").Text < "0" Then
If Not Intersect(Target, Range("O205")) Is Nothing Then
ActiveSheet.Range("O205").Value = "ü"
Cancel = True
End If
End If
If ActiveSheet.Range("O205").Text < "0" Then
If Not Intersect(Target, Range("P205")) Is Nothing Then
ActiveSheet.Range("P205").Value = "ü"
Cancel = True
End If
End If
'----------------------------------------------------------------------------------------------
If ActiveSheet.Range("P206").Text < "0" Then
If Not Intersect(Target, Range("O206")) Is Nothing Then
ActiveSheet.Range("O206").Value = "ü"
Cancel = True
End If
End If
If ActiveSheet.Range("O206").Text < "0" Then
If Not Intersect(Target, Range("P206")) Is Nothing Then
ActiveSheet.Range("P206").Value = "ü"
Cancel = True
End If
End If
'----------------------------------------------------------------------------------------------
If ActiveSheet.Range("P207").Text < "0" Then
If Not Intersect(Target, Range("O207")) Is Nothing Then
ActiveSheet.Range("O207").Value = "ü"
Cancel = True
End If
End If
If ActiveSheet.Range("O207").Text < "0" Then
If Not Intersect(Target, Range("P207")) Is Nothing Then
ActiveSheet.Range("P207").Value = "ü"
Cancel = True
End If
End If
'----------------------------------------------------------------------------------------------
If ActiveSheet.Range("P216").Text < "0" Then
If Not Intersect(Target, Range("O216")) Is Nothing Then
ActiveSheet.Range("O216").Value = "ü"
Cancel = True
End If
End If
If ActiveSheet.Range("O216").Text < "0" Then
If Not Intersect(Target, Range("P216")) Is Nothing Then
ActiveSheet.Range("P216").Value = "ü"
Cancel = True
End If
End If
'----------------------------------------------------------------------------------------------
If ActiveSheet.Range("P217").Text < "0" Then
If Not Intersect(Target, Range("O217")) Is Nothing Then
ActiveSheet.Range("O217").Value = "ü"
Cancel = True
End If
End If
If ActiveSheet.Range("O217").Text < "0" Then
If Not Intersect(Target, Range("P217")) Is Nothing Then
ActiveSheet.Range("P217").Value = "ü"
Cancel = True
End If
End If
'----------------------------------------------------------------------------------------------
If ActiveSheet.Range("P218").Text < "0" Then
If Not Intersect(Target, Range("O218")) Is Nothing Then
ActiveSheet.Range("O218").Value = "ü"
Cancel = True
End If
End If
If ActiveSheet.Range("O218").Text < "0" Then
If Not Intersect(Target, Range("P218")) Is Nothing Then
ActiveSheet.Range("P218").Value = "ü"
Cancel = True
End If
End If
'----------------------------------------------------------------------------------------------
If ActiveSheet.Range("P219").Text < "0" Then
If Not Intersect(Target, Range("O219")) Is Nothing Then
ActiveSheet.Range("O219").Value = "ü"
Cancel = True
End If
End If
If ActiveSheet.Range("O219").Text < "0" Then
If Not Intersect(Target, Range("P219")) Is Nothing Then
ActiveSheet.Range("P219").Value = "ü"
Cancel = True
End If
End If
'----------------------------------------------------------------------------------------------
If ActiveSheet.Range("P220").Text < "0" Then
If Not Intersect(Target, Range("O220")) Is Nothing Then
ActiveSheet.Range("O220").Value = "ü"
Cancel = True
End If
End If
If ActiveSheet.Range("O220").Text < "0" Then
If Not Intersect(Target, Range("P220")) Is Nothing Then
ActiveSheet.Range("P220").Value = "ü"
Cancel = True
End If
End If
'----------------------------------------------------------------------------------------------
If ActiveSheet.Range("P221").Text < "0" Then
If Not Intersect(Target, Range("O221")) Is Nothing Then
ActiveSheet.Range("O221").Value = "ü"
Cancel = True
End If
End If
If ActiveSheet.Range("O221").Text < "0" Then
If Not Intersect(Target, Range("P221")) Is Nothing Then
ActiveSheet.Range("P221").Value = "ü"
Cancel = True
End If
End If
'----------------------------------------------------------------------------------------------
If ActiveSheet.Range("P222").Text < "0" Then
If Not Intersect(Target, Range("O222")) Is Nothing Then
ActiveSheet.Range("O222").Value = "ü"
Cancel = True
End If
End If
If ActiveSheet.Range("O222").Text < "0" Then
If Not Intersect(Target, Range("P222")) Is Nothing Then
ActiveSheet.Range("P222").Value = "ü"
Cancel = True
End If
End If
'----------------------------------------------------------------------------------------------
If ActiveSheet.Range("P231").Text < "0" Then
If Not Intersect(Target, Range("O231")) Is Nothing Then
ActiveSheet.Range("O231").Value = "ü"
Cancel = True
End If
End If
If ActiveSheet.Range("O231").Text < "0" Then
If Not Intersect(Target, Range("P231")) Is Nothing Then
ActiveSheet.Range("P231").Value = "ü"
Cancel = True
End If
End If
'----------------------------------------------------------------------------------------------
If ActiveSheet.Range("P232").Text < "0" Then
If Not Intersect(Target, Range("O232")) Is Nothing Then
ActiveSheet.Range("O232").Value = "ü"
Cancel = True
End If
End If
If ActiveSheet.Range("O232").Text < "0" Then
If Not Intersect(Target, Range("P232")) Is Nothing Then
ActiveSheet.Range("P232").Value = "ü"
Cancel = True
End If
End If
'----------------------------------------------------------------------------------------------
If ActiveSheet.Range("P233").Text < "0" Then
If Not Intersect(Target, Range("O233")) Is Nothing Then
ActiveSheet.Range("O233").Value = "ü"
Cancel = True
End If
End If
If ActiveSheet.Range("O233").Text < "0" Then
If Not Intersect(Target, Range("P233")) Is Nothing Then
ActiveSheet.Range("P233").Value = "ü"
Cancel = True
End If
End If
'----------------------------------------------------------------------------------------------
If ActiveSheet.Range("P234").Text < "0" Then
If Not Intersect(Target, Range("O234")) Is Nothing Then
ActiveSheet.Range("O234").Value = "ü"
Cancel = True
End If
End If
If ActiveSheet.Range("O234").Text < "0" Then
If Not Intersect(Target, Range("P234")) Is Nothing Then
ActiveSheet.Range("P234").Value = "ü"
Cancel = True
End If
End If
'----------------------------------------------------------------------------------------------
If ActiveSheet.Range("P235").Text < "0" Then
If Not Intersect(Target, Range("O235")) Is Nothing Then
ActiveSheet.Range("O235").Value = "ü"
Cancel = True
End If
End If
If ActiveSheet.Range("O235").Text < "0" Then
If Not Intersect(Target, Range("P235")) Is Nothing Then
ActiveSheet.Range("P235").Value = "ü"
Cancel = True
End If
End If
'----------------------------------------------------------------------------------------------
If ActiveSheet.Range("P236").Text < "0" Then
If Not Intersect(Target, Range("O236")) Is Nothing Then
ActiveSheet.Range("O236").Value = "ü"
Cancel = True
End If
End If
If ActiveSheet.Range("O236").Text < "0" Then
If Not Intersect(Target, Range("P236")) Is Nothing Then
ActiveSheet.Range("P236").Value = "ü"
Cancel = True
End If
End If
'----------------------------------------------------------------------------------------------
If ActiveSheet.Range("P237").Text < "0" Then
If Not Intersect(Target, Range("O237")) Is Nothing Then
ActiveSheet.Range("O237").Value = "ü"
Cancel = True
End If
End If
If ActiveSheet.Range("O237").Text < "0" Then
If Not Intersect(Target, Range("P237")) Is Nothing Then
ActiveSheet.Range("P237").Value = "ü"
Cancel = True
End If
End If
'----------------------------------------------------------------------------------------------
If ActiveSheet.Range("P246").Text < "0" Then
If Not Intersect(Target, Range("O246")) Is Nothing Then
ActiveSheet.Range("O246").Value = "ü"
Cancel = True
End If
End If
If ActiveSheet.Range("O246").Text < "0" Then
If Not Intersect(Target, Range("P246")) Is Nothing Then
ActiveSheet.Range("P246").Value = "ü"
Cancel = True
End If
End If
'----------------------------------------------------------------------------------------------
If ActiveSheet.Range("P247").Text < "0" Then
If Not Intersect(Target, Range("O247")) Is Nothing Then
ActiveSheet.Range("O247").Value = "ü"
Cancel = True
End If
End If
If ActiveSheet.Range("O247").Text < "0" Then
If Not Intersect(Target, Range("P247")) Is Nothing Then
ActiveSheet.Range("P247").Value = "ü"
Cancel = True
End If
End If
'----------------------------------------------------------------------------------------------
If ActiveSheet.Range("P248").Text < "0" Then
If Not Intersect(Target, Range("O248")) Is Nothing Then
ActiveSheet.Range("O248").Value = "ü"
Cancel = True
End If
End If
If ActiveSheet.Range("O248").Text < "0" Then
If Not Intersect(Target, Range("P248")) Is Nothing Then
ActiveSheet.Range("P248").Value = "ü"
Cancel = True
End If
End If
'----------------------------------------------------------------------------------------------
If ActiveSheet.Range("P249").Text < "0" Then
If Not Intersect(Target, Range("O249")) Is Nothing Then
ActiveSheet.Range("O249").Value = "ü"
Cancel = True
End If
End If
If ActiveSheet.Range("O249").Text < "0" Then
If Not Intersect(Target, Range("P249")) Is Nothing Then
ActiveSheet.Range("P249").Value = "ü"
Cancel = True
End If
End If
'----------------------------------------------------------------------------------------------
If ActiveSheet.Range("P250").Text < "0" Then
If Not Intersect(Target, Range("O250")) Is Nothing Then
ActiveSheet.Range("O250").Value = "ü"
Cancel = True
End If
End If
If ActiveSheet.Range("O250").Text < "0" Then
If Not Intersect(Target, Range("P250")) Is Nothing Then
ActiveSheet.Range("P250").Value = "ü"
Cancel = True
End If
End If
'----------------------------------------------------------------------------------------------
If ActiveSheet.Range("P251").Text < "0" Then
If Not Intersect(Target, Range("O251")) Is Nothing Then
ActiveSheet.Range("O251").Value = "ü"
Cancel = True
End If
End If
If ActiveSheet.Range("O251").Text < "0" Then
If Not Intersect(Target, Range("P251")) Is Nothing Then
ActiveSheet.Range("P251").Value = "ü"
Cancel = True
End If
End If
'----------------------------------------------------------------------------------------------
If ActiveSheet.Range("P252").Text < "0" Then
If Not Intersect(Target, Range("O252")) Is Nothing Then
ActiveSheet.Range("O252").Value = "ü"
Cancel = True
End If
End If
If ActiveSheet.Range("O252").Text < "0" Then
If Not Intersect(Target, Range("P252")) Is Nothing Then
ActiveSheet.Range("P252").Value = "ü"
Cancel = True
End If
End If
'----------------------------------------------------------------------------------------------
If ActiveSheet.Range("P261").Text < "0" Then
If Not Intersect(Target, Range("O261")) Is Nothing Then
ActiveSheet.Range("O261").Value = "ü"
Cancel = True
End If
End If
If ActiveSheet.Range("O261").Text < "0" Then
If Not Intersect(Target, Range("P261")) Is Nothing Then
ActiveSheet.Range("P261").Value = "ü"
Cancel = True
End If
End If
'----------------------------------------------------------------------------------------------
If ActiveSheet.Range("P262").Text < "0" Then
If Not Intersect(Target, Range("O262")) Is Nothing Then
ActiveSheet.Range("O262").Value = "ü"
Cancel = True
End If
End If
If ActiveSheet.Range("O262").Text < "0" Then
If Not Intersect(Target, Range("P262")) Is Nothing Then
ActiveSheet.Range("P262").Value = "ü"
Cancel = True
End If
End If
'----------------------------------------------------------------------------------------------
If ActiveSheet.Range("P263").Text < "0" Then
If Not Intersect(Target, Range("O263")) Is Nothing Then
ActiveSheet.Range("O263").Value = "ü"
Cancel = True
End If
End If
If ActiveSheet.Range("O263").Text < "0" Then
If Not Intersect(Target, Range("P263")) Is Nothing Then
ActiveSheet.Range("P263").Value = "ü"
Cancel = True
End If
End If
'----------------------------------------------------------------------------------------------
If ActiveSheet.Range("P264").Text < "0" Then
If Not Intersect(Target, Range("O264")) Is Nothing Then
ActiveSheet.Range("O264").Value = "ü"
Cancel = True
End If
End If
If ActiveSheet.Range("O264").Text < "0" Then
If Not Intersect(Target, Range("P264")) Is Nothing Then
ActiveSheet.Range("P264").Value = "ü"
Cancel = True
End If
End If
'----------------------------------------------------------------------------------------------
If ActiveSheet.Range("P265").Text < "0" Then
If Not Intersect(Target, Range("O265")) Is Nothing Then
ActiveSheet.Range("O265").Value = "ü"
Cancel = True
End If
End If
If ActiveSheet.Range("O265").Text < "0" Then
If Not Intersect(Target, Range("P265")) Is Nothing Then
ActiveSheet.Range("P265").Value = "ü"
Cancel = True
End If
End If
'----------------------------------------------------------------------------------------------
If ActiveSheet.Range("P266").Text < "0" Then
If Not Intersect(Target, Range("O266")) Is Nothing Then
ActiveSheet.Range("O266").Value = "ü"
Cancel = True
End If
End If
If ActiveSheet.Range("O266").Text < "0" Then
If Not Intersect(Target, Range("P266")) Is Nothing Then
ActiveSheet.Range("P266").Value = "ü"
Cancel = True
End If
End If
'----------------------------------------------------------------------------------------------
If ActiveSheet.Range("P267").Text < "0" Then
If Not Intersect(Target, Range("O267")) Is Nothing Then
ActiveSheet.Range("O267").Value = "ü"
Cancel = True
End If
End If
If ActiveSheet.Range("O267").Text < "0" Then
If Not Intersect(Target, Range("P267")) Is Nothing Then
ActiveSheet.Range("P267").Value = "ü"
Cancel = True
End If
End If
'----------------------------------------------------------------------------------------------
If ActiveSheet.Range("P276").Text < "0" Then
If Not Intersect(Target, Range("O276")) Is Nothing Then
ActiveSheet.Range("O276").Value = "ü"
Cancel = True
End If
End If
If ActiveSheet.Range("O276").Text < "0" Then
If Not Intersect(Target, Range("P276")) Is Nothing Then
ActiveSheet.Range("P276").Value = "ü"
Cancel = True
End If
End If
'----------------------------------------------------------------------------------------------
If ActiveSheet.Range("P277").Text < "0" Then
If Not Intersect(Target, Range("O277")) Is Nothing Then
ActiveSheet.Range("O277").Value = "ü"
Cancel = True
End If
End If
If ActiveSheet.Range("O277").Text < "0" Then
If Not Intersect(Target, Range("P277")) Is Nothing Then
ActiveSheet.Range("P277").Value = "ü"
Cancel = True
End If
End If
'----------------------------------------------------------------------------------------------
If ActiveSheet.Range("P278").Text < "0" Then
If Not Intersect(Target, Range("O278")) Is Nothing Then
ActiveSheet.Range("O278").Value = "ü"
Cancel = True
End If
End If
If ActiveSheet.Range("O278").Text < "0" Then
If Not Intersect(Target, Range("P278")) Is Nothing Then
ActiveSheet.Range("P278").Value = "ü"
Cancel = True
End If
End If
'----------------------------------------------------------------------------------------------
If ActiveSheet.Range("P279").Text < "0" Then
If Not Intersect(Target, Range("O279")) Is Nothing Then
ActiveSheet.Range("O279").Value = "ü"
Cancel = True
End If
End If
If ActiveSheet.Range("O279").Text < "0" Then
If Not Intersect(Target, Range("P279")) Is Nothing Then
ActiveSheet.Range("P279").Value = "ü"
Cancel = True
End If
End If
'----------------------------------------------------------------------------------------------
If ActiveSheet.Range("P280").Text < "0" Then
If Not Intersect(Target, Range("O280")) Is Nothing Then
ActiveSheet.Range("O280").Value = "ü"
Cancel = True
End If
End If
If ActiveSheet.Range("O280").Text < "0" Then
If Not Intersect(Target, Range("P280")) Is Nothing Then
ActiveSheet.Range("P280").Value = "ü"
Cancel = True
End If
End If
'----------------------------------------------------------------------------------------------
If ActiveSheet.Range("P281").Text < "0" Then
If Not Intersect(Target, Range("O281")) Is Nothing Then
ActiveSheet.Range("O281").Value = "ü"
Cancel = True
End If
End If
If ActiveSheet.Range("O281").Text < "0" Then
If Not Intersect(Target, Range("P281")) Is Nothing Then
ActiveSheet.Range("P281").Value = "ü"
Cancel = True
End If
End If
'----------------------------------------------------------------------------------------------
If ActiveSheet.Range("P282").Text < "0" Then
If Not Intersect(Target, Range("O282")) Is Nothing Then
ActiveSheet.Range("O282").Value = "ü"
Cancel = True
End If
End If
If ActiveSheet.Range("O282").Text < "0" Then
If Not Intersect(Target, Range("P282")) Is Nothing Then
ActiveSheet.Range("P282").Value = "ü"
Cancel = True
End If
End If
End Sub
|