Immer noch nicht
30.10.2003 14:34:45
Daniel
Hi Hajo
Leider gehts immer noch nicht. Nach dem ich den zweiten Bereich rausgenommen habe, kam zwar keine Fehlermeldung mehr, aber der zweite Skript funktioniert immer noch nicht.
Ich poste mal den ganze Script hier. Es sind noch ein paar Sache davor drin. Vielleicht liegt der Fehler ja dort.
Vielen Dank
Private Sub Worksheet_Change(ByVal Target As Range)
'Sponsorship
If Target.Address(0, 0) = "F29" Then
If Target = "Nein" Then Rows("30:70").Hidden = True
If Target = "Ja" Then Rows("30:70").Hidden = False
If Target = "Ja" Then Range("F34").Value = "Ja"
If Target = "Ja" Then Range("F41").Value = "Ja"
If Target = "Ja" Then Range("F49").Value = "6"
If Target = "Ja" Then Range("F48").Value = "Ja"
If Target = "Ja" Then Range("F62").Value = "Ja"
End If
'Indikativ
If Target.Address(0, 0) = "F34" Then
If Target = "Nein" Then Rows("35:38").Hidden = True
If Target = "Ja" Then Rows("35:38").Hidden = False
End If
'Abdikativ
If Target.Address(0, 0) = "F41" Then
If Target = "Nein" Then Rows("42:45").Hidden = True
If Target = "Ja" Then Rows("42:45").Hidden = False
End If
'Reminder
If Target.Address(0, 0) = "F48" Then
If Target = "Nein" Then Rows("49:58").Hidden = True
If Target = "Ja" Then Range("F49").Value = "6"
If Target = "Ja" Then Rows("49:58").Hidden = False
End If
If Target.Address(0, 0) = "F49" Then
If Target = "1" Then Rows("53:58").Hidden = True
If Target = "2" Then Rows("53:58").Hidden = True
If Target = "3" Then Rows("53:58").Hidden = False
If Target = "3" Then Rows("56:58").Hidden = True
If Target = "4" Then Rows("53:58").Hidden = False
If Target = "4" Then Rows("56:58").Hidden = True
If Target = "5" Then Rows("53:58").Hidden = False
If Target = "6" Then Rows("53:58").Hidden = False
End If
'Promotrailer
If Target.Address(0, 0) = "F62" Then
If Target = "Nein" Then Rows("63:70").Hidden = True
If Target = "Ja" Then Rows("63:70").Hidden = False
End If
'Exklusivinseln
If Target.Address(0, 0) = "F75" Then
If Target = "Nein" Then Rows("76:97").Hidden = True
If Target = "Ja" Then Rows("76:97").Hidden = False
If Target = "Ja" Then Range("F79").Value = "Ja"
If Target = "Ja" Then Range("F93").Value = "Ja"
If Target = "Ja" Then Range("F80").Value = "6"
End If
'Preminder
If Target.Address(0, 0) = "F79" Then
If Target = "Nein" Then Rows("80:89").Hidden = True
If Target = "Ja" Then Range("F80").Value = "6"
If Target = "Ja" Then Rows("80:89").Hidden = False
End If
If Target.Address(0, 0) = "F80" Then
If Target = "1" Then Rows("84:89").Hidden = True
If Target = "2" Then Rows("84:89").Hidden = True
If Target = "3" Then Rows("84:89").Hidden = False
If Target = "3" Then Rows("87:89").Hidden = True
If Target = "4" Then Rows("84:89").Hidden = False
If Target = "4" Then Rows("87:89").Hidden = True
If Target = "5" Then Rows("84:89").Hidden = False
If Target = "6" Then Rows("84:89").Hidden = False
End If
'Abspannspot
If Target.Address(0, 0) = "F93" Then
If Target = "Nein" Then Rows("94:96").Hidden = True
If Target = "Ja" Then Rows("94:96").Hidden = False
End If
'Infomercials
If Target.Address(0, 0) = "F101" Then
If Target = "Nein" Then Rows("102:147").Hidden = True
If Target = "Ja" Then Range("F102").Value = "15"
If Target = "Ja" Then Rows("102:147").Hidden = False
End If
If Target.Address(0, 0) = "F102" Then
If Target = "1" Then Rows("106:147").Hidden = True
If Target = "2" Then Rows("106:147").Hidden = False
If Target = "2" Then Rows("109:147").Hidden = True
If Target = "3" Then Rows("106:147").Hidden = False
If Target = "3" Then Rows("112:147").Hidden = True
If Target = "4" Then Rows("106:147").Hidden = False
If Target = "4" Then Rows("115:147").Hidden = True
If Target = "5" Then Rows("106:147").Hidden = False
If Target = "5" Then Rows("118:147").Hidden = True
If Target = "6" Then Rows("106:147").Hidden = False
If Target = "6" Then Rows("121:147").Hidden = True
If Target = "7" Then Rows("106:147").Hidden = False
If Target = "7" Then Rows("124:147").Hidden = True
If Target = "8" Then Rows("106:147").Hidden = False
If Target = "8" Then Rows("127:147").Hidden = True
If Target = "9" Then Rows("106:147").Hidden = False
If Target = "9" Then Rows("130:147").Hidden = True
If Target = "10" Then Rows("106:147").Hidden = False
If Target = "10" Then Rows("133:147").Hidden = True
If Target = "11" Then Rows("106:147").Hidden = False
If Target = "11" Then Rows("136:147").Hidden = True
If Target = "12" Then Rows("106:147").Hidden = False
If Target = "12" Then Rows("139:147").Hidden = True
If Target = "13" Then Rows("106:147").Hidden = False
If Target = "13" Then Rows("142:147").Hidden = True
If Target = "14" Then Rows("106:147").Hidden = False
If Target = "14" Then Rows("145:147").Hidden = True
If Target = "15" Then Rows("106:147").Hidden = False
End If
' Start Kalender
If Intersect(Target, Range("F15")) Is Nothing Then Exit Sub
If Range("F15").Value = "Automatisch" Then
Range("BK15:BN26").Copy _
Destination:=Range("X15:AA26")
ElseIf Range("F15").Value = "Manuell" Then
Range("X15:AA15").Select
MsgBox ("Bitte geben Sie die Sendungen pro Monat manuell ein")
'Range("X15:AA26").ClearContents
Range("BP15:BS26").Copy _
Destination:=Range("X15:AA26")
ElseIf Range("F15").Value <> "" Then
Range("F15").Select
MsgBox ("Automatisch oder Manuell wählen")
Range("F15").ClearContents
End If
' Preisgruppe Samstag
If Intersect(Target, Range("F22")) Is Nothing Then Exit Sub
If Range("F22").Value = "Ja" Then
Range("BK36:BR36").Copy _
Destination:=Range("T36:AA36")
ElseIf Range("F22").Value = "Nein" Then
Range("T36:AA36").Select
MsgBox ("Bitte geben Sie die Sendungen pro Monat manuell ein")
'Range("T36:AA36").ClearContents
Range("BT36:CA36").Copy _
Destination:=Range("T36:AA36")
ElseIf Range("F22").Value <> "" Then
Range("F22").Select
MsgBox ("Automatisch oder Manuell wählen")
Range("F22").ClearContents
End If
End Sub