Hallo Zusammen
hab eine Wenn Funktion geschrieben. Diese funktioniert auch soweit richtig. Ich möchte mit dieser ein gewisses Datum mit dem heutigen Datum vergleichen. Wenn das heutige Datum das gewisse Datum übersteigt
wird automatisch ein „Ü“ für Überschritten angezeigt. Wenn ein Datum innerhalb der Grenze eingegeben wird erscheint ein „E“ für erfüllt.
Mein Problem besteht darin, dass wenn die Datumsgrenze überschritten wurde das „E“ wieder durch ein „Ü“ ersetzt wird.
Kann mir jemand helfen, dass sobald der Wert „E“ in der Zelle steht dieser nicht mehr durch die Wenn Funktion geändert werden soll.
Vielen Dank
Bernhard
hab eine Wenn Funktion geschrieben. Diese funktioniert auch
soweit richtig. Ich möchte mit dieser ein gewisses Datum mit
dem heutigen Datum vergleichen. Wenn das heutige Datum das
gewisse Datum übersteigt
wird automatisch ein „Ü“ für Überschritten angezeigt. Wenn ein
Datum innerhalb der Grenze eingegeben wird erscheint ein „E“
für erfüllt.
Mein Problem besteht darin, dass wenn die Datumsgrenze
überschritten wurde das „E“ wieder durch ein „Ü“ ersetzt wird.
Kann mir jemand helfen, dass sobald der Wert „E“ in der Zelle
steht dieser nicht mehr durch die Wenn Funktion geändert
werden soll.
Hi Bernhard,
eine Möglichkeit:
Alt+F11, links bei „DiesArbeitsmappe“ doppelt klicken, Code einfügen, Editor schließen.
Option Explicit
'
Private Sub Workbook\_BeforeClose(Cancel As Boolean)
Dim Zelle As Range
With Worksheets("Tabelle1")
For Each Zelle In .UsedRange
If Zelle.Value = "E" Then
Zelle.Formula = ""
Zelle.Value = "E"
End If
Next Zelle
End With
End Sub
Gruß
Reinhard