Tipps & Tricks 18.04.2000, 21:15 Uhr

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

Mit Excel habe ich eine Debitorenliste aufgebaut. In den Zelle C3 bis O3 wird festgehalten was eine Person so alles konsumiert(z.B. Hr. Muster). Nun möchte ich in der Zelle Q3 das Datum ausgeben, wann Hr. Muster das letzte Mal etwas konsumiert hat. Das Datum sollte auch nach einem Neustart der Debitorenliste noch gesetzt bleiben.
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



Kommentare
Es sind keine Kommentare vorhanden.