Datum fest eintragen
andreas
ich habe folgendes Problem mit einer Patienten-Tabelle:
In den spalten A bis F werden Name und weitere Daten von Patienten erfasst. In der Spalte G wird durch eine Formel die noch offenen Einheiten (Behandlungsstunden) berechnet. Ist der Wert in Spalte G = 0 wird automatisch ende in die Spalte G eingetragen.
So und jetzt zu meinem Problem, ich hätte gerne das in Spalte H das Datum des Tages eingetragen wird an dem die letzte Behandlung statt fand, also sobald in Spalte G ende steht.
Ich hoffe ich habe es nicht zu unübersichtlich beschrieben.
Ich habe mich mit diesem Problem jetzt schon 2 Wochen rumgeschlagen und finde keine passende Lösung. Die Suchfunktion hat mich auch nicht weiter gebracht als zu folgender Erkenntnis.
Folgendes geht leider auch nicht:
Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Column = 7 Then
If Target.Value >= "ende" Or Target.Value = "ende" Then Target.Offset(O, 1).Value = _
Date
End If
End SubWürde mich über eine Lösung sehr freuen.
Gruß Andreas
Anzeige