Zellenwert ändern mit Data Validation

[homtail]

Hallo miteinander, 

mein Vorhaben ist das Fristdatum in der TODO List durch Anklicken eines entsprechenden Buttons um einen Monat zu verlängern. 

So habe ich das geplant: 

In der Fristzelle füge ich eine Data Validation hinzu. Dabei soll aus der Drop Down List ausgewählt werden können: "Verlängern um 1 Monat"; "Verlängern um 2 Monate" 

Ich gehe davon aus, dass mit einem Makro umsetzen zu können, beispielsweise:

überprüfe die Zellen, falls "Verlängere um einen Monat" dann das eingetragene Datum + 1 Monat.  Wenn ich allerdings "Verlängern um 1 Monat" auswähle, dann wird das Datum in der Zelle ersetzt und man hat quasi gar kein Datum mehr. 


Kann mir jemand mit einem Tipp helfen?

Danke und Gruss  

hotmail

[Gast 123]

Hallo

auch auf die Gefahr mich zu blamieren, ich habe keine Ahnung was das ist:    Data Validation

Wenn ich eine Beispieldatei sehe mit den Zellen, ggf. DropDown, und wie die Lösung aussehen soll, faellt mir dazu vielleicht eine Lösung ein.  
Aber so, nur vom Lesen des Threads verstehe ich leider nicht viel von dieser Aufgabe.

mfg  Gast 123

[homtail]

Mein excel ist auf englisch, vielleicht hilft der Anhang?:)

[shift-del]

auch auf die Gefahr mich zu blamieren, ich habe keine Ahnung was das ist:    Data Validation

Data Validation = Gültigkeitsprüfung/Datenüberprüfung

[Gast 123]

Hallo

jetzt bin ich etwas schlauer, aber da fehlt mir leider das technische Wissen um helfen zu können

mfg Gast 123

[WillWissen]

Hi,

schau mal, ob das deinem Vorhaben hilft:

Tabelle1

	A	B	C	D	E	F	G
1	Datum	neuer Beginn	ToDo	Verlängert			Verlängerungen
2	05.05.2017	05.07.2017	Projekt 10 beginnen	2 Monate			1 Monat
3	18.05.2017	18.06.2017	Abrechnung Projekt 8	1 Monat			2 Monate
4	01.06.2017		Einforderung Gehaltserhöhung
5

Formeln der Tabelle

Zelle Formel B2 =WENN(D2="";"";WENN(D2="1 Monat";EDATUM(A2;1);EDATUM(A2;2)))

Datengültigkeit der Tabelle

Zelle Zulassen Daten Eingabe 1 Eingabe 2 D2 Liste =$G$2:$G$3

Bedingte Formatierungen der Tabelle

Zelle Nr.: / Bedingung Format A2 1. / Formel ist =B2<>"" Abc

Excel Tabellen im Web darstellen >> Excel Jeanie HTML 4.8

Mit der bedingten Formatierung streiche ich das Ursprungsdatum durch, das wird mit dem Tabellentool leider nicht abgebildet.

[homtail]

Hallo miteinander, 

Günther danke für den Vorschlag. 

Leider ist es nicht das was ich suche. Ich möchte nur eine Datumsspalte, die Frist,  haben.  Und die eingetragene Frist soll den jeweiligen Zellen mit einem Dropdownmenü um entweder einen oder zwei Monat/e verlängert werden.  Das ursprüngliche Datum soll nicht mehr zu sehen sein. Siehe auch den Anhang.

Vielen Dank:) 
homtail

[WillWissen]

Hi,

das geht IMHO nicht mit Bordmitteln. Hier wirst du wohl um den Einsatz von VBA nicht rumkommen; aber da müssen dir die Spezialisten helfen.

[schauan]

Hallöchen,

hier mal ein Beispiel. In der Tabelle gibt es folgende Gültigkeit:

Arbeitsblatt mit dem Namen 'Tabelle1'
	A
1	16.01.2018

Zelle	Gültigkeitstyp	Operator	Wert1	Wert2
A1	Liste		Verlängern um 1 Monat;Verlängern um 2 Monate

Diese Tabelle wurde mit Tab2Html (v2.5.0) erstellt. ©Gerd alias Bamberg

Im Codemodul der Tabelle steht das:

Code:

Public lastDate As Date

Private Sub Worksheet_Activate()
If ActiveCell.Column = 1 Then lastDate = ActiveCell.Value
End Sub

Private Sub Worksheet_Change(ByVal Target As Range)
Application.EnableEvents = False
If Target.Value = "Verlängern um 1 Monat" Then
  ActiveCell.Value = WorksheetFunction.EDate(lastDate, 1)
ElseIf Target.Value = "Verlängern um 2 Monate" Then
  ActiveCell.Value = WorksheetFunction.EDate(lastDate, 2)
End If
Application.EnableEvents = True
End Sub

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If ActiveCell.Column = 1 Then lastDate = ActiveCell.Value
End Sub

Eventuell musst Du auch noch in DieseArbeitsmappe beim Öffnen kontrollieren wo Du in Tabelle 1 stehst und ggf. das Datum übernehmen.
Der Nachteil hier ist, dass Du in der Zelle mit der Gültigkeit nun kein Datum mehr eintragen kannst. Du müsstest es irgendwo anders eintragen und per Kopieren + Inhalte Einfügen - Werte übertragen. Da müsste man schauen, wie man das umschifft. Man könnte die Gültigkeit z.B. erst nach Eingabe der Daten definieren o.a. ...

[WillWissen]

Hi André,

du weißt ja, VBA und ich - zwei Universen prallen aufeinander.  :32:

Du schreibst, dass der Nachteil bei deiner Lösung darin liegt, dass in den Gültigkeitszellen keine Einträge mehr möglich sind. Ist es eventuell denkbar, dass du in deinem Makro meinen Vorschlag aus diesem Thread  http://www.clever-excel-forum.de/Thread-...4#pid83524 einbauen kannst? Wie gesagt, habe keinen blassen Schimmer.