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
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
Mein excel ist auf englisch, vielleicht hilft der Anhang?:)
(14.06.2017, 15:24)Gast 123 schrieb: [ -> ]auch auf die Gefahr mich zu blamieren, ich habe keine Ahnung was das ist: Data Validation
Data Validation = Gültigkeitsprüfung/Datenüberprüfung
Hallo
jetzt bin ich etwas schlauer, aber da fehlt mir leider das technische Wissen um helfen zu können
mfg Gast 123
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.
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
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.
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. ...
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.