Excel - Aktuelles Datum in eine bestimmte Zelle der selben Zeile einfügen

Kopieren Sie den nachfolgenden Code. Öffnen Sie in ihrem Excel-Sheet das Menü Extras/Makro/Visual-Basic-Editor, und fügen Sie den kopierten Code dort ein. Danach können Sie das Makro über Extras/Anpassen einer Schaltfläche in Ihrer Symbolleiste zuweisen. Wie das geht, können Sie in einem älteren Kummerkasten nachlesen [1].

Und hier der Makro-Code "AktDatEintr" zum kopieren:

(Bitte Beachten Sie, dass die "_" am Ende einer Zeile bedeuten, dass dort die Zeile aus Platzgründen umgebrochen worden ist!)

Sub AktDatEintr()

Dim Antwort As Variant

Dim rngCell as Range

With ActiveSheet

Application.ActiveCell.Select

For Each rngCell In Selection

If IsNumeric(rngCell.Value)_

And rngCell.Value > 0 Then

Antwort = MsgBox("Wollen Sie das Datum_

in dieser Zeile ändern?",_

vbYesNo,"Datum ändern?")

If Antwort = vbYes Then

.Range("Q" & rngCell.Row).Value_

= Format(Now(), "dd.mm.yy")

Else

Exit Sub

End If

End If

Next

End With

End Sub