Datums-Eingabe

23/07/2008 - 17:58 von Peter | Report spam
Hallo NG,

ich muss ein einer Tabelle hàufig ein Datum im Format z.B.12./13.07.08
eingeben. Könnte man das etwas automatisieren? Vielleicht mit dem
Steuerelement Kalender oder einem Zellformat?

Gruß Peter
 

Lesen sie die antworten

#1 {Boris}
24/07/2008 - 00:30 | Warnen spam
Hi Peter,

On 23 Jul., 17:58, Peter wrote:
Hallo NG,

ich muss ein einer Tabelle hàufig ein Datum im Format z.B.12./13.07.08
eingeben. Könnte man das etwas automatisieren? Vielleicht mit dem
Steuerelement Kalender oder einem Zellformat?



Bei weitem nicht ausgereift - aber als Ansatz:

Private Sub Worksheet_Change(ByVal Target As Range)
With Target
If .Column = 1 And .Count = 1 Then
If IsNumeric(.Value) And .Value <= 31 Then
If IsDate(DateSerial(Year(Now), Month(Now), .Value)) Then
Application.EnableEvents = False
.Value = .Value & "./" & DateSerial(Year(Now),
Month(Now), .Value + 1)
Application.EnableEvents = True
End If
End If
End If
End With
End Sub

Gehört ins Klassenmodul des entsprechenden Tabellenblattes und
gehorcht auf Eingaben in Spalte A.
Gibst Du eine Zahl zwischen 1 und 31 ein, wird Dein gewünschter Text
für den *aktuellen* Monat erzeugt.
Aktuell wird aus der Eingabe *12* beispielsweise 12./13.07.2008.

Grüße Boris

Ähnliche fragen