Excel VBA Frage

Dropbox
Siehe Beispieldatei:

Private Sub Worksheet_Change(ByVal Target As Range)

If Target.Column = 2 And Target.Row <= 31 And Range("A" & Target.Row).Value = "" Then

Range("A" & Target.Row).Formula = "=TODAY()"
Range("A" & Target.Row).Formula = Range("A" & Target.Row).Value

End If


End Sub

Also sobald man den Zelleninhalt in Spalte B (Zeile 1-31) ändert, wird geprüft ob die Spalte A in der gleichen Zeile leer ist. Wenn ja, wird das Tagesdatum eingetragen.
Weiß nicht 100% ob es das ist, was du willst, vielleicht ist aber ja auch ein Denkanstoß dabei...

So und nicht anders. ♠_thumbsup:

Wenn das bereits einmal eingetragene Datum dann nicht bei jedem neuen Eintrag mitgeändert wird, ist das genau das was ich brauche. Weil ansonsten hätte ich auch =heute() nehmen und die erneute Änderung blocken können, wobei ich auch nicht weiß wie das geht.

Vielen Dank!

Nö, wird nicht mit übernommen, da der Wert von heute (Today, Spalte 5) in der darunterliegenden Codespalte ja fixiert wird

Original von Renne01
Wenn das bereits einmal eingetragene Datum dann nicht bei jedem neuen Eintrag mitgeändert wird, ist das genau das was ich brauche. Weil ansonsten hätte ich auch =heute() nehmen und die erneute Änderung blocken können, wobei ich auch nicht weiß wie das geht.

Vielen Dank!

Wie wärs damit:

cells(target.row,1)=date

Jetzt hab ich ein anderes Problem. Am Ende jeden Monats werden die Gesamtwinnings in die Tabelle monatliche Ergebnisse kopiert. In B36 der Tabelle für die täglichen Aufzeichnungen steht die Summe der Winnings von Tag 1 bis 31. Den Wert aus B36 übernehme ich in die monatliche Tabelle. Das passiert jeden Monat für Jannuar, Februar,... Dezember.

Sheets("monatlicheAufzeichnungen").Range("B4") = Sheets("taeglicheAufzeichnungen").Range("B36").Value

Nur wenn ich am Monatsende die Zellen füfs neue Monat leere, wirkt sich das auch auf die zweite Tabelle aus, was nicht passieren darf.

Nochmals danke. Wer will kann das Ding gerne haben, wenns fertig ist. Als Gegenleistung sozusagen.