c't 15/01
Sub Zieldatum()
Dim vntDatum As Variant
Dim vntTage As Variant
vntDatum = InputBox _
("Bezugsdatum:", , Date)
If vntDatum > "" Then
vntTage = InputBox _
("Zahlungsziel in Tagen:", , 30)
If vntTage > "" Then
Selection.TypeText _
Format(CDate(vntDatum) + _
CInt(vntTage), "short date")
End If
End If
End Sub
Das Makro fragt zunächst das gewünschte Bezugsdatum ab, wobei im Dialogfeld bereits das aktuelle Datum als Vorgabe erscheint. Danach erfolgt die Abfrage des Zahlungsziels; hier enthält das Textfeld einen Vorgabewert von 30 Tagen. Im Normalfall beschränken sich die notwendigen Eingaben also auf ein zweimaliges Drücken der Eingabetaste; ansonsten überschreiben Sie die Vorgaben einfach mit den gewünschten Werten. Die Kalkulation des Zieldatums erfolgt durch eine einfache Addition des Zahlungsziels auf das angegebene Datum. Dabei berücksichtigt die VBA-interne Datumsarithmetik automatisch die unterschiedlichen Monatslängen und Schaltjahre. Die Selection.TypeText-Anweisung fügt das Zieldatum an der aktuellen Position der Schreibmarke in das Dokument ein. Um das Makro bei Bedarf möglichst schnell starten zu können, weisen Sie ihm über Extras - Anpassen - Tastatur ein Tastenkürzel zu. (Ralf Nebelo/se)
Version zum Drucken | Per E-Mail versenden | Heft bestellen
Permalink: http://heise.de/-310540
Das aktuelle Heft ist jetzt im Handel erhältlich.
Ältere Artikel können Sie über unser Zeitschriften-Archiv bestellen.
RSS
