Hinweis bei späterer Terminänderung

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

Hallo Robert,
die Schwierigkeit liegt daran, den bisherige Wert abzufangen. Das erreicht man, in dem die Calculation temporär auf Manual gesetzt wird.
Folgende Code gehört in dem Code-pane der Worksheet Stammdaten.

Private Calc_Mem
Private Sub Worksheet_Activate()
Calc_Mem = Application.Calculation
Application.Calculation = xlCalculationManual
End Sub
Private Sub Worksheet_Deactivate()
On Error Resume Next
Application.Calculation = Calc_Mem
End Sub
Private Sub Worksheet_Change(ByVal Target As Range)
Dim AlterEintrag
Dim NeuerEintrag
AlterEintrag = Target.EntireRow.Range("A1").Value
Target.Worksheet.Calculate
NeuerEintrag = Target.EntireRow.Range("A1").Value
If Target.Column = 2 Or Target.Column = 3 Then
Application.EnableEvents = False
Worksheets("Terminübersicht").Cells.Replace LookAt:=xlWhole, _
What:=AlterEintrag, _
Replacement:=NeuerEintrag
Application.EnableEvents = True
End If
End Sub

Was passiert:
_ wenn auf "Stammdaten" gewechselt wird, schaltet sich die Berechnung auf Manual. Aktueller Zustand wird vorher gespeichert.
_ es wird die bisherige Werte in Spalte A gelesen,
_ dann berechnet,
_ neue Werte in Spalte A gelesen,
_ wenn der "Change" die Spalte 2 oder 3 betrifft, wird auf Tabelle "Terminübersicht" der alte Text durch den neuen ersetzt.
_ beim Verlassen des Blattes "Stammdaten" wird das bisherige Berechnungsmodeus wieder eingestellt.
Viel Erfolg damit. Auf Rückmeldung freut man sich.
VG
Yal

Hallo Robert,
zu 1
dass der Code immer anspringt, liegt wahrscheinlich daran, dass Du es nicht im Code-Pane vom Blatt "Stammdaten" abgelegt hast, sondern wahrschienlich im Code-Pane von "Diese Arbeitsmappe", weil sonst würde es nicht reagieren, wenn irgenwas auf dem Blatt "Terminübersicht" geändert wird.
zu 2
Die Deaktivierung der autom. Berechnung gilt nur zwischen dem Moment, wo Du zum Blatt "Stammdaten" wechselst, bis Du diese wieder verlässt. In diesem Zustand, also wenn Du auf dem Blatt bist, passiert folgendes:
wenn Du eine Änderung an einer Formel oder Zahl machst, dann startet "Worksheet_Change". Worksheet_Change berechnet immer das Blatt "Stammdaten" neu. Nur das es davor und danach 2 Werte liest. Diese Werte haben nur eine Wirkung, wenn die Änderung in Spalte B or C stattgefunden haben. Daher sind sonstige Auswirkungen sehr begrenzt.
Man könnte auch zu Spalte= 2 order Spalte =3 hinzufügen, dass nur was gemacht werden soll, wenn AlterEintrag ungleich NeuerEintrag und wenn keine der beiden leer ist.
Performance-mässig spielt es eine kleine Rolle.
Auch vom Auswirkung: wichtig ist dabei, dass der Replace mit LookAt:=xlWhole. Sonst könnten einzelne Buchstaben ersetzt werden und wir hätten eventuell ein schöne Schlamassel.
VG
Yal

If Target.Column = 2 Or Target.Column = 3 Then If AlterEintrag NeuerEintrag Then Application.EnableEvents = False Worksheets("Terminübersicht").Cells.Replace LookAt:=xlWhole, _ What:=AlterEintrag, _ Replacement:=NeuerEintrag Application.EnableEvents = True End If End If

Beliebteste Forumthreads (12 Monate)

Hinweis bei späterer Terminänderung

10 Beiträge zum Forumthread Beiträge zu diesem Forumthread

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

10
Beiträge zum Forumthread

Beiträge zu diesem Forumthread