VBA: Datum Tauschen wenn Task ausgewählt

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

Danke für deine Hilfe und Geduld Herbert. Es hat fast so funktioniert wie ich es wollte. Das Startdatum wird wie gewünscht durch das Enddatum des anderen ausgewählten Tasks überschrieben. Jetzt wollte ich noch, dass das vorhergehende Datum in die Zelle daneben geschrieben wird, damit es nicht verloren geht. Wenn ich in der Spalte H den ausgewählten Task lösche soll das vorherige Datum wieder in F eingetragen werden.
Ich habe den Code jetzt so angepasst, dass er all das macht wie ich es wollte. Aber es ist wohl nur Zufall gewesen, weil ganz verstehe ich ihn nicht. Könntest du dir bitte die Datei/Code anschauen und mir sagen ob das so passt oder nicht irgendwo ein Denkfehler drin ist. Wozu brauch ich eigentlich die beiden Zeilen Application.EnableEvents = False und Application.EnableEvents = true

Private Sub Worksheet_Change(ByVal Target As Range)
Dim sTask$, iRow%, iTaskRow%       '% = Integer / $ = String
If Target.Column = 8 Then                 'Zielspalte 8
sTask = Target.Value                       'Inhalt übergeben
iTaskRow = Range("E:E").Find(What:=sTask).Row           'Suche Inhalte in Spalte E
If Cells(Target.Row, 8)  "" Then                     'Ab hier bin ich mir unsicher.  _
Ich hätte die If Else Bedingungen genau umgekehrt geschrieben
Application.EnableEvents = False
Cells(Target.Row, 7) = Cells(Target.Row, 6).Value               'Inhalt übergeben
Cells(Target.Row, 6) = Cells(iTaskRow, 9).Value                   'Inhalt übergeben
Application.EnableEvents = True
Else
Application.EnableEvents = False
Cells(Target.Row, 6) = Cells(Target.Row, 7).Value             'Inhalt übergeben
Cells(Target.Row, 7).Clear                                                      ' _
Zelle leeren
Application.EnableEvents = True
End If
End If
End If
End If
End Sub

https://www.herber.de/bbs/user/145169.xlsm
Grüße
MarC

Hallo Herbert,
die Projektaufgaben/Themen stehen in der Spalte B. Jedes Thema hat ein Start Datum (Spalte C) und ein End Datum (Spalte F) also wann es beginnt und abgeschlossen sein soll. In der Spalte E kann ich zu jedem Projektthema eine andere Projektaufgabe auswählen die den Start/Beginn beeinflusst.
Bezogen auf das Beispiel in der Datei ist es so. Projektaufgabe "3.Papier" startet am 12.01.2021. Jetzt habe ich aber in der Spalte E die Projektaufgabe "5. Gurke" ausgewählt. Das heißt der Starttermin von der Projektaufgabe 3. ist abhängig vom Enddatum des Projektes 5. Somit verschiebt sich der Start von 12.01. auf 08.05.
Und es tut mir leid das ich "H" angegeben habe das ist komplett falsch. Ich weiß nicht wie ich auf H komme und wo ich da mit meinen Gedanken war sorry. Ich habe die Datei nochmal angepasst und hochgeladen.
https://www.herber.de/bbs/user/145168.xlsm

Beliebteste Forumthreads (12 Monate)

VBA: Datum Tauschen wenn Task ausgewählt

15 Beiträge zum Forumthread Beiträge zu diesem Forumthread

VBA Beispiele zu verwandten Themen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

15
Beiträge zum Forumthread

Beiträge zu diesem Forumthread