Office: (Office 2013) Brauche Hilfe bei Überlauf Fehler

Muss das noch mal hoch holen. Ich habe leider nach wie vor keine Lösung gefunden. Auch das "Reinigen" mit ENTF hilft nicht. Was aber merkwürdig ist, wenn ich die Formel von

Code:

If Target.Cells(1).Address(False, False) = "D6" Then
        If Target = Application.Round(Range("E6") / Range("E5"), 4) Then
            ActiveSheet.Unprotect ("123")
            Range("D25").Locked = False
            Range("D25").Select
            ActiveSheet.Protect ("123")
        End If
    End If

in

Code:

If Target.Cells(1).Address(False, False) = "D6" Then
        If Target = Range("U6") Then
            ActiveSheet.Unprotect ("123")
            Range("D25").Locked = False
            Range("D25").Select
            ActiveSheet.Protect ("123")
        End If
    End If

erhalte ich den Laufzeitfehler 13 "Typen unverträglich"

Ich kann es einfach nicht nachvollziehen.

 

Hallo Naddus,

probier mal
If Target.Address = Range("U6") Then

Gruß,
Lutz

 

Ohne oder mit

Code:

If Target.Cells(1).Address(False, False) = "D6" Then

davor?

 

Blöde Frage, ich muss excel ja auch sagen welche Zelle es betrifft. Das ruft aber auch den Laufzeitfehler 13 "Typen unverträglich" hervor.

 

Hm...
Andererseits macht natürlich auch die Abfrage keinen Sinn... Welche Zelle ist aktiv, D6 oder U6?
Muss natürlich korrekt heißen:
If Target.Cells(1).Address(False, False) = "U6" Then

Gruß,
Lutz