VBA If Formel "" dann nichts, sonst Erg.
14.03.2023 11:18:01
Daniel
ich suche schon eine Weile im Internet, allerdings ohne gewünschten Erfolg..
Ich habe im Bereich B5:B1000 Formeln stehen, die nur aktiv werden, wenn in der jeweiligen linken Nachbarzelle etwas eingetragen wird (Also z.B. Wenn in Zelle A35 Wert, Dann Ergebniswert in Zelle B35). Da das Ergebnis der Formel je nach Nutzer immer ein anderes ist, bräuchte ich eine Funktion, die mir das Ergebnis als solches in die jeweilige Zelle speichert, wenn mir die Formel einen Wert bringt, wenn die Formel allerdings keinen Wert bringt, da die Nachbarzelle ja leer ist, soll nichts passieren und die Formel weiterhin in der Zelle bleiben.
Also:
Wenn Ergebnis der Formel Leer " "
Dann Nichts machen, Formel stehen lassen
Wenn Formel einen Inhalt bringt
Dann Inhalt der Formel als fixen Wert ersetzen
Ich hab sowas ähnliches bereits schon im Einsatz, allerdings wird hier aus EINEM FIXEN Ergebnis einer Formel EIN FIXER Wert.
Sub ersetzen()
Dim Z As Range
Application.ScreenUpdating = False
Application.EnableEvents = False
For Each Z In ThisWorkbook.Worksheets("Tabelle1").Range("E6:U3500")
If UCase(Z.Value) = "*" Then Z.Value = "X"
Next
Application.ScreenUpdating = True
Application.EnableEvents = True
End Sub
Hoffe ihr könnt mir hier ein weiteres Mal weiterhelfen :)