Funktion: If condi. cell a true write date cell b

Public Function WriteFinishDate(rngQuelle As Range, Optional rngZiel As Range) If rngQuelle(1, 1).Value = "" Then Exit Function If rngQuelle(1, 1).Value = 0.75 Then rngZiel(1, 1).Value = Date End If End Function

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

Public Function TakeComment(rngQuelle As Range, Optional rngZiel As Range) If rngZiel Is Nothing Then Set rngZiel = Application.Caller End If If rngQuelle(1, 1).Text = "" Then Exit Function With rngZiel If Not .Comment Is Nothing Then .Comment.Delete End If .AddComment rngQuelle(1, 1).Text End With End Function

Hi
OK, eine Funktion muss technisch gesehen nicht zwingend einen Rückgabewert haben (es geht beides, Sub und Function). Hier eine Abhandlung (zwar auf Basis dBASE, aber den Ratschlag am Ende würde ich auch für VBA beherzigen):
https://cantaria.de/dbase-tricks/unterschied-von-prozeduren-und-funktionen/
Daher zwei Ratschläge zur Verwendung von Prozeduren und Funktionen:
1. verwenden Sie niemals denselben Namen für eine function und eine procedure.
2. verwenden Sie immer eine function, wenn die Routine einen Wert zurückliefert, und verwenden Sie immer eine procedure wenn kein Ergebnis zurückgegeben wird.
rngQuelle ist sowohl bei TakeComment, wie auch bei WriteFinishDate nicht optional. Same same...
Wie soll denn deine Funktion aufgerufen werden?
a) Change Event willst du nicht
b) UDF mit Rückgabewert direkt in der Zelle willst du scheinbar auch nicht
c) mittels anderem Makro, OK geht. Aber die kleine If-Then Abfrage kannst du auch gleich in den Code integrieren.
d) als volatile Tabellenfunktion? Da wäre ein Change-Event performanter, weil du gezielt die Target-Range abfragen kannst
cu
Chris

Habe es jetzt doch mit dem Change Event gelöst.
Code ist nicht von mir habe ihn nur modifiziert.
Option Explicit ' Variablendefinition erforderlich

Private Sub Worksheet_Change(ByVal Target As Excel.Range)
' wird im definierten Bereich ein Wert geändert, wird in der
' nächsten Spalte das Datum eingetragen
Dim RaBereich As Range                          ' Variable für überwachten Bereich
Dim RaZelle As Range                            ' Variable für Zelle die zur Zeit  _
bearbeitet wird
Set RaBereich = Range("tbl_LOP[Progress]")          ' Bereich der Wirksamkeit
Set RaBereich = Intersect(RaBereich, Range(Target.Address))
If Not RaBereich Is Nothing Then
Application.ScreenUpdating = False          ' Bildschirm abschalten
Application.EnableEvents = False            ' Reaktion auf Eingabe abschalten
For Each RaZelle In RaBereich               ' Schleife über alle veränderten Zellen im ü _
berwachten Bereich
If RaZelle.Value = 0.75 Then
RaZelle.Offset(0, 8) = Date         ' Datum eintragen
ElseIf RaZelle.Value = 1 _
And RaZelle.Offset(0, 8)  0 Then      'Bei Wechsel von 75% auf 100%
GoTo Ende                           ' Nichts tun
Else
RaZelle.Offset(0, 8) = ""           'Bei zurücksetzen auf

Beliebteste Forumthreads (12 Monate)

Funktion: If condi. cell a true write date cell b

4 Beiträge zum Forumthread Beiträge zu diesem Forumthread

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

4
Beiträge zum Forumthread

Beiträge zu diesem Forumthread