Bereich(Wenn Zelle leer dann Text)
17.10.2013 12:03:15
Steffen
ich hoffe Ihr könnt mir weiterhelfen.
In meiner Excel Datei möchte ich einen Bereich prüfen lassen, sobald hier eine
Formel gelöscht wird und keine Text eingegeben wurde, soll die Formel wieder gesetzt werden.
Bis jetzt sieht mein Code so aus:
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Application.Intersect(Target, Range("B11:B24")) Is Nothing Then
Range(Target.Address).FormulaLocal = "=WENN(ISTFEHLER(SVERWEIS(C17;Eichgebühr;2;0));""; _
_
_
SVERWEIS(C17;Eichgebühr;2;0))"
End If
End Sub
Ich weiß nur noch nicht wie ich die Range(Target.Address) richtig setze, so das er den Wert in die leere Zelle schreibt, statt auf den Bereich.
Vielen Dank!
Gruß steffen