ich bräuchte ein Makro, welches mir den Inhalt einer Zelle D5,D6,D7 etc.(ist ein veränderbarer Text) kopiert
und diesen in einer anderen Zelle unter dem Inhalt in einer neuen Zeile und dem aktuellen Datum hinzufügt.
Beispiel:
Eingabe gestern:
Zelle D5 „Test1“ soll in Zelle F5 so eingefügt werden: „DatumHeute: Test1“
Eingabe heute:
Zelle D5 „Test2“ soll in Zelle F5 so eingefügt werden: „DatumGestern:Test1“ – neue Zeile – „DatumHeute: Test2“
Kurz: in Spalte D5 (Status) steht der aktuelle Status, in Spalte F sieht man den Verlauf des Status.
Das dann für alle Zeilen mit Inhalt.
Kann mir jemand helfen?
Danke und schöne Grüße
Brigitte ?
Da würde ich jede Veränderung der relvanten Zellen als Ereignis - Prozedur in etwa so behandeln
Option Explicit
Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Column <> 4 Or Target.Row < 5 Or Target.Count > 1 Then Exit Sub
History Target
End Sub
Private Sub History(myCell As Range)
Dim c As Range, arr() As String, x As Long, Flag As Boolean
Set c = myCell.Offset(, 2)
If c.Value = "" Then
c.Value = Format(Date, "DD.MM.YY:") & myCell.Value
Else
arr = Split(c.Value, vbLf)
For x = LBound(arr) To UBound(arr)
If Left(arr(x), 9) = Format(Date, "DD.MM.YY:") Then
arr(x) = Left(arr(x), 9) & myCell.Value
Flag = True
Exit For
End If
Next x
If Flag = False Then
ReDim Preserve arr(LBound(arr) To UBound(arr) + 1)
arr(UBound(arr)) = Format(Date, "DD.MM.YY:") & myCell.Value
End If
c.Value = Join(arr, vbLf)
End If
End Sub
|