Excel 2000 vs. Excel XP
03.11.2003 20:04:58
Daniel
Ich habe ein Tool in XP gebastelt. Nun wird es aber hauptsächlich in Excel 200 verwendet. Doch dort kommt immer eine Fehlermeldung. Die Sache funktioniert zwar, aber es kommt zuerst eine Fehlermeldung:
Es geht dabei um folgendes Skript:
Private Sub Worksheet_Change(ByVal Target As Range)
'Sponsorship
If Target.Address(0, 0) = "F27" Then
If Target = "Nein" Then
Rows("28:68").Hidden = True
ElseIf Target = "Ja" Then
Rows("28:68").Hidden = False
Range("F32,F39,F46,F60").Value = "Ja"
Range("F47").Value = "6"
End If
'Indikativ
If Target.Address(0, 0) = "F32" Then
If Target = "Nein" Then Rows("33:36").Hidden = True
If Target = "Ja" Then Rows("33:36").Hidden = False
End If
'Abdikativ
If Target.Address(0, 0) = "F39" Then
If Target = "Nein" Then Rows("40:43").Hidden = True
If Target = "Ja" Then Rows("40:43").Hidden = False
End If
'Reminder
If Target.Address(0, 0) = "F46" Then
If Target = "Nein" Then Rows("47:56").Hidden = True
If Target = "Ja" Then Range("F47").Value = "6"
If Target = "Ja" Then Rows("47:56").Hidden = False
End If
If Target.Address(0, 0) = "F47" Then
If Target = "1" Then Rows("51:56").Hidden = True
If Target = "2" Then Rows("51:56").Hidden = True
If Target = "3" Then Rows("51:56").Hidden = False
If Target = "3" Then Rows("54:56").Hidden = True
If Target = "4" Then Rows("51:56").Hidden = False
If Target = "4" Then Rows("54:56").Hidden = True
If Target = "5" Then Rows("51:56").Hidden = False
If Target = "6" Then Rows("51:56").Hidden = False
End If
'Promotrailer
If Target.Address(0, 0) = "F60" Then
If Target = "Nein" Then Rows("61:63").Hidden = True
If Target = "Ja" Then Rows("61:63").Hidden = False
End If
'Exklusivinseln
If Target.Address(0, 0) = "F68" Then
If Target = "Nein" Then Rows("69:90").Hidden = True
If Target = "Ja" Then Rows("69:90").Hidden = False
If Target = "Ja" Then Range("F72").Value = "Ja"
If Target = "Ja" Then Range("F86").Value = "Ja"
If Target = "Ja" Then Range("F73").Value = "6"
End If
'Preminder
If Target.Address(0, 0) = "F72" Then
If Target = "Nein" Then Rows("73:82").Hidden = True
If Target = "Ja" Then Range("F73").Value = "6"
If Target = "Ja" Then Rows("73:82").Hidden = False
End If
If Target.Address(0, 0) = "F73" Then
If Target = "1" Then Rows("77:82").Hidden = True
If Target = "2" Then Rows("77:82").Hidden = True
If Target = "3" Then Rows("77:82").Hidden = False
If Target = "3" Then Rows("80:82").Hidden = True
If Target = "4" Then Rows("77:82").Hidden = False
If Target = "4" Then Rows("80:82").Hidden = True
If Target = "5" Then Rows("77:82").Hidden = False
If Target = "6" Then Rows("77:82").Hidden = False
End If
'Abspannspot
If Target.Address(0, 0) = "F86" Then
If Target = "Nein" Then Rows("87:89").Hidden = True
If Target = "Ja" Then Rows("87:89").Hidden = False
End If
'Infomercials
If Target.Address(0, 0) = "F94" Then
If Target = "Nein" Then Rows("95:140").Hidden = True
If Target = "Ja" Then Range("F95").Value = "15"
If Target = "Ja" Then Rows("95:140").Hidden = False
End If
If Target.Address(0, 0) = "F95" Then
If Target = "1" Then Rows("99:140").Hidden = True
If Target = "2" Then Rows("99:140").Hidden = False
If Target = "2" Then Rows("102:140").Hidden = True
If Target = "3" Then Rows("99:140").Hidden = False
If Target = "3" Then Rows("105:140").Hidden = True
If Target = "4" Then Rows("99:140").Hidden = False
If Target = "4" Then Rows("108:140").Hidden = True
If Target = "5" Then Rows("99:140").Hidden = False
If Target = "5" Then Rows("111:140").Hidden = True
If Target = "6" Then Rows("99:140").Hidden = False
If Target = "6" Then Rows("114:140").Hidden = True
If Target = "7" Then Rows("99:140").Hidden = False
If Target = "7" Then Rows("117:140").Hidden = True
If Target = "8" Then Rows("99:140").Hidden = False
If Target = "8" Then Rows("120:140").Hidden = True
If Target = "9" Then Rows("99:140").Hidden = False
If Target = "9" Then Rows("123:140").Hidden = True
If Target = "10" Then Rows("99:140").Hidden = False
If Target = "10" Then Rows("126:140").Hidden = True
If Target = "11" Then Rows("99:140").Hidden = False
If Target = "11" Then Rows("129:140").Hidden = True
If Target = "12" Then Rows("99:140").Hidden = False
If Target = "12" Then Rows("132:140").Hidden = True
If Target = "13" Then Rows("99:140").Hidden = False
If Target = "13" Then Rows("135:140").Hidden = True
If Target = "14" Then Rows("99:140").Hidden = False
If Target = "14" Then Rows("138:140").Hidden = True
If Target = "15" Then Rows("99:140").Hidden = False
End If
' Start Kalender
If Intersect(Target, Range("F13")) Is Nothing And _
Intersect(Target, Range("BK13:BN24")) Is Nothing Then Exit Sub
If Range("F13").Value = "Automatisch" Then
Range("BK13:BN24").Copy _
Destination:=Range("X13:AA24")
ElseIf Range("F13").Value = "Manuell" Then
Range("X13:AA13").Select
MsgBox ("Bitte geben Sie die Sendungen pro Monat manuell ein")
'Range("X13:AA24").ClearContents
Range("BP13:BS24").Copy _
Destination:=Range("X13:AA24")
ElseIf Range("F13").Value <> "" Then
Range("F13").Select
MsgBox ("Automatisch oder Manuell wählen")
Range("F13").ClearContents
End If
End Sub
Wenn der User jetzt z.B. F86 von Ja auf Nein wechselt da kommt folgende Fehlermeldung:
Laufzeitfehler 1004
Die Hidden-Eigenschaft des Range-Objektes kann nicht festgelegt werden.
Verstecken tun sich die Zelle aber trotz der Fehlermeldung. Also so schlimm ist es nicht. Nur ist es natürlich besser ohne Fehlermeldung.
Ich hoffe ich habe das Problem genau genug geschildert
vielen vielen Dank
Daniel.