AW: Datum in Tabelle übernehmen
20.10.2007 22:18:00
Peter
Hallo Volker,
bei gleichen Voraussetzungen, wie geschildert, hier eine Version mit Hinweisen für den Benutzer:
Private Sub CommandButton2_Click()
Dim rZelle As Range
If Me.TextBox1.Value "" Then
If IsDate(Me.TextBox1.Value) Then
With Worksheets("Tabelle1").Range("A1:A31")
Set rZelle = .Find(CDate(Me.TextBox1.Value), LookIn:=xlValues, Lookat:=xlWhole)
If Not rZelle Is Nothing Then
.Range("A" & rZelle.Row).Select ' die gefundene Zelle markieren
Else
MsgBox "Das gesuchte Datum """ & _
Format(CDate(Me.TextBox1.Value), "dd.mm.yyyy") & _
""" wurde nicht gefunden.", _
48, " Hinweis für " & Application.UserName
With TextBox1
.SetFocus
.SelStart = 0
.SelLength = Len(.Text)
End With
End If
End With
Else
MsgBox "Das Datum ist kalendarisch falsch!", _
48, " Hinweis für " & Application.UserName
With TextBox1
.SetFocus
.SelStart = 0
.SelLength = Len(.Text)
End With
End If
Else
MsgBox "Ohne Datum können Sie kein Datum suchen!", _
48, " Hinweis für " & Application.UserName
TextBox1.SetFocus
End If
End Sub
Gruß Peter