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
Hi,
Zitat: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
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?
Hi,
wie änderst Du den Inhalt von I3?
Ich lösche ihn, indem ich die Zelle manuell auswähle und entfernen drücke.
Hi,
kleine Ursache, große Wirkung:
Code:
If Target.Address = "$I$3" And Target.Value = "" Then Range("J3").ClearContents
Hallo,
Zitat: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.
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.
Hallo Edgar,
gelöscht, da Antwort falsch war.
@ 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.