Guten Morgen zusammen,
ich habe bereits gestern meine Datei gepostet und sehr gute Hilfe vom User Nepumuk erhalten.
Da ich das bestehende Problem meine nun eingrenzen zu können, habe ich jetzt einen neuen Thread erstellt und versuche etwas präzisiere Angaben zu machen.
Es geht um Spalte 7, dort ist eine Datenüberprüfungsliste mit begrenzter Eingabe: Zahl 1 bis 5 und "X".
Der nachfolgende Abschnitt soll eigentlich sicherstellen, dass ...
- NUR wenn ich "x" oder "X" eingebe (bei "x" soll automatisch Großschreibung erzeugt werden) soll das heutige Datum hinterlegt werden (unter Spalte 7 + 12).
Wenn ich derzeit Eingabe "1" tätige, wird das Datum nicht eingefügt. Steht aber bereits ein "X" in Spalte 7, wird auch bei einer Zahleneingabe das Datum eingefügt.
Bei Zahleneingabe soll einfach gar nichts hinsichtlich dem Code-Abschnitt passieren.
Weder Datum einfügen noch Formel einfügen, da die Formel bereits standardmäßig hinterlegt ist.
Dim objRang As Range, objCell As Range Set objRang = Intersect(Columns(7), Target) If Not objRang Is Nothing Then For Each objCell In objRang If UCase$(objCell.Value = "X") Then objCell.Offset(0, 12).Value = Date Else Target.Offset(0, 12).FormulaR1C1Local = "=WENN(ZS6"""";""FORMEL"";"""")" End If Next End If
https://www.herber.de/bbs/user/128828.xlsm
Ich hoffe ich habe es genau genug geschildert!
Im Voraus vielen Dank für die mögliche Hilfe.
Gruß,
Christian