Wenn Zellinhalt leer, dann andere Zelle löschen VBA

[diving_excel]

Guten Morgen!

Ich habe einen Code bei dem, wenn der Wert in I3 leer wird, der Zellinhalt in J3 gelöscht werden soll.

Leider funktioniert der noch nicht so wie erhofft, habe ich einen Fehler?


Danke & Gruß

Code:

Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Address(0, 0) = "I3" Then
   If Worksheets("Tabelle1").Range("I3").Value = "" Then
      Worksheets("Tabelle1").Range("J3").ClearContents
   End If
End If
End Sub

[BoskoBiati]

Hi,

Leider funktioniert der noch nicht so wie erhofft,

Was funktioniert nicht?
Wo steht der Code?

Code:

Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Address = "I3" and Range("I3") = "" Then Worksheets("Tabelle1").Range("J3").ClearContents

End Sub

[diving_excel]

Code steht im Codefenster der Tabelle1, wenn ich den Wert lösche passiert leider nichts. 

Das klingt ja erst mal so als wäre mein Code richtig?

[BoskoBiati]

Hi,

wie änderst Du den Inhalt von I3?

[diving_excel]

Ich lösche ihn, indem ich die Zelle manuell auswähle und entfernen drücke.

[BoskoBiati]

Hi,

kleine Ursache, große Wirkung:

Code:

If Target.Address = "$I$3" And Target.Value = "" Then Range("J3").ClearContents

[Käpt'n Blaubär]

Hallo,

If Target.Address(0, 0) = "I3" Then

was für eine Adressse könnte das denn sein?
Ich behaupte mal, daß das der Fehler ist.

[BoskoBiati]

Hi Peter,

Nein.

Code:

If Target.Address(0, 0) = "I3" And Target.Value = "" Then Range("J3").ClearContents

If Target.Address = "$I$3" And Target.Value = "" Then Range("J3").ClearContents

Das (0,0) macht aus der Adresse einen relativen Bezug.

[Steffl]

Hallo Edgar,

gelöscht, da Antwort falsch war.

[diving_excel]

@ BoskoBiati 

Wenn ich meinen Code an deinen Vorschlag anpasse bekomme ich die Fehlermeldung: Laufzeitfehler 13, Typen unverträglich.

Hab mal folgendes versucht, leider auch ohne erfolg:

Code:

Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Address = "$I$3" Then
   If Target.Value = "" Then
       Range("J3").ClearContents
   End If
End If

End Sub

Leider kann ich die Datei nicht hochladen, da sie sehr umfangreich ist und sensible Daten enthält, sorry dafür.