Automatisch Zelle ergänzen bei Eingabe

[Lucker11]

Hallo zusammen,

ich möchte mein Excelblatt so gestalten, dass bei neuen Kommentaren immer das Datum vor meinen Kommentar geschrieben wird. Um es auf den Screenshot bedeutet dies:
- immer wenn ich in Spalte C und D etwas eintrage, dann wird vor diesen Eintrag das heutige Datum geschrieben. Ich schreibe also "Test 2" in die Zelle und das wird automatisch in 'heutigesDatum' + "Test 2" umgewandelt.

Was muss ich in die Blatteinstellungen/ Blattprogrammierungen schreiben, damit ich zu diesem Ergebnis komme?

Vielen Dank für Eure Hilfe :)

[Gast 123]

Hallo

den VBA Editor öffnen, in deine gewünschte Tabelle diesen Code eingeben, und dich überraschen lassen.  Das ist alles.  Viel Spass beim testen ...

Code:

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If InStr(Target.Address, ":") Then Exit Sub
If Target.Value = Empty Then Exit Sub

If Target.Column = 3 Or Target.Column = 4 Then
   Target.Value = Date & " " & Target.Value
End If
End Sub

mfg Gast 123

[Fennek]

Hallo,

mein Verständnis war, dass Kommentare geändert werden sollen. Das wäre dann in etwas so:

Code:

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
With Me
    If .Comments.Count > .Range("A1") Then
        Tx = Me.Comments(Me.Comments.Count).Text
        Tx = Now & " " & Tx
        Me.Comments(Me.Comments.Count).Text Tx, , 1
        Debug.Print .Comments(.Comments.Count).Text
       
        Me.Range("A1") = .Comments.Count
    End If
End With
End Sub

Der Index darf aber nicht in A1 stehen, sondern in einem Property des Sheets.

mfg

[Lucker11]

Wahnsinn, vielen Dank für die schnelle Antwort :)

---

Hallo

den VBA Editor öffnen, in deine gewünschte Tabelle diesen Code eingeben, und dich überraschen lassen.  Das ist alles.  Viel Spass beim testen ...

Code:

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If InStr(Target.Address, ":") Then Exit Sub
If Target.Value = Empty Then Exit Sub

If Target.Column = 3 Or Target.Column = 4 Then
   Target.Value = Date & " " & Target.Value
End If
End Sub

mfg Gast 123

Wahnsinn, vielen Dank für die schnelle Antwort :)

Wenn ich dann ein neues Tabellenblatt mit VBA erstelle, kann ich diesen Code dann von Anfang an in dem Tabellenblatt hinterlegen? :)

[Gast 123]

Hallo

Ja, am besten wenn du das Blatt zur Vorlage machst, wie RPP63 es rät.  Als .xltm speicherst.  Dann ist das Makro direkt drin wenn du die Vorlage lädst.

mfg Gast 123

[Lucker11]

Es gibt jetzt noch ein Problem. Ich schreibe etwas in die Zelle und das Datum wird nicht direkt ergänzt. Erst, wenn ich die Zelle auswähle, wird das Datum ergänzt.

Wie bekomme ich eine sofortige Ergänzung hin?

Vielen Dank :)

[schauan]

Hallöchen,

im Beispiel hast Du ...Worksheet_SelectionChange..., zu deutsch ...
Weiterhin gibt es ...Worksheet_Change...