VBA Datum ... Zell-Format-Problem
03.08.2016 15:17:48
udo
folgender CODE wird per Before-Rechtsklick-Ereignis angefahren :
If Cells(R, 46).Value = "" Then
Cells(R, 46).Value = Format(Date, "DD.MM. YYYY")
GoTo Cancel:
End If
If Cells(R, 46).Value "" Then
Cells(R, 46) = Cells(R, 46).Value + 7
GoTo Cancel:
End If
Ich habe dabei folgendes Verhalten
Ist die Zelle in Spalte 46 leer fügt er das Datum entsprechend der Anordnung
so auch ganz normal ein, soweit so gut ...
Die Erweiterung pro weiteren Rechtsklick auf die gleiche Zelle würde den Wert jeweils um eine Woche ( 7 Tage ) erweitern,
Und das geht scheinbar nur, wenn ich nach dem ersten RechtsKlick in eine zuvor leere Zelle - anschließend einen Doppelklick mache ( per Linksklick ) dadurch wird der "kann das sein Textwert ? " dann in den Datumwert umgedingst ?
weil danach zählt er dann bei jedem Weiteren RK auf die Zelle immer 7 Tage dazu, aber nur wenn ich eben den Doppelklick auf die Zelle mache nach dem ersten RK.
Kann ich dies irgendwie umgehen, dass ich den Doppelklick nicht machen muss ?
Sozusagen Inhalt zunächst wandeln dann aufaddieren ?
Das Format sollte dabei aber gleich bleiben (Format(Date, "DD.MM. YYYY")
Könnte mir bitte dabei Jemand behilflich sein, das übersteigt leider mein KnowHow
Wäre euch sehr dankbar für eure Hilfe.
Lieben Gruß
udo