Office: Laufzeitfehler 13

Guten Tag,

ich habe folgendes Makro in meine Excel eingepflegt:

Private Sub Worksheet_Change
If Target.Address "$U$3" Or (Target.Value 1 And Target.Value 2 And Target.Value 3) Then Exit Sub
Range("D24*biggrin.gif*27").EntireRow.Hidden = False
Select Case Range("U3").Value
Case Is = 1
Range("D24*biggrin.gif*27").EntireRow.Hidden = True
Case Is = 2
Range("D25*biggrin.gif*27").EntireRow.Hidden = True
Case Is = 3
Range("D24").EntireRow.Hidden = True
End Select
End Sub

Das Makro läuft auch soweit, allerdings wird bei verschiedenen Aktionen (z.B. Inhalt versch. Zellen manuell sowie mit Makro löschen; Zellen einfügen etc.) eine Fehlermeldung angezeigt. Es erscheint Laufzeitfehler 13: Typen unverträglich. Wie kann ich hier das MAkro abändern, um den Fehler zu beheben? Wie gesagt, dass Makro funtiobiert soweit eigentlich. Öffne ich den Debugger wird die folgende Zeile aus dem Makro gelb markiert:

If Target.Address "$U$3" Or (Target.Value 1 And Target.Value 2 And Target.Value 3)

Vielen Dank für eure Hilfe.

:)

 

Hallo,

teste mal:

Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Address = "$U$3" Then
If Target.Value = 1 Or Target.Value = 2 Or Target.Value = 3 Then
Range("D24:D27").EntireRow.Hidden = False
Select Case Target.Value
Case Is = 1
Range("D24:D27").EntireRow.Hidden = True
Case Is = 2
Range("D25:D27").EntireRow.Hidden = True
Case Is = 3
Range("D24").EntireRow.Hidden = True
End Select
End If
End If
End Sub

In den anderen Makros die in die Tabelle schreiben kannst du das auslösen der Event-Routine so unterdrücken:

Application.EnableEvents = False

Am Ende des Makros wieder auf True setzen !!!!

P.S.: Überprüfe die Adressen der Zellen die ausgeblendet werden, ich konnte die wegen der Grinseköpfe nur raten.

 

Hat super funktioniert. Dankeschön *Smilie

 

Neues Problem. Beim schreibschützen einzelner Zeilen in dem Arbeitsblatt kommt folgende Meldung:

Laufzeitfehler 1004
Die Hidden-Eigenschaft des Range-Objektes kann nicht festgelegt werden.

Die folgende Zeile wird gelb im Debugger markiert:

Range("D24*biggrin.gif*27").EntireRow.Hidden = False

 

Hallo,

heb einfach den Blattschutz vor dem Ausblenden auf. Beispiel:

Private Sub Worksheet_Change(ByVal Target As Range)
Const SHEET_PASSWORD As String = "geheim"
If Target.Address = "$U$3" Then
If Target.Value = 1 Or Target.Value = 2 Or Target.Value = 3 Then
Call Unprotect(Password:=SHEET_PASSWORD)
Range("D24:D27").EntireRow.Hidden = False
Select Case Target.Value
Case Is = 1
Range("D24:D27").EntireRow.Hidden = True
Case Is = 2
Range("D25:D27").EntireRow.Hidden = True
Case Is = 3
Range("D24").EntireRow.Hidden = True
End Select
Call Protect(Password:=SHEET_PASSWORD)
End If
End If
End Sub