AW: InputBox zu Datum
12.12.2005 19:36:13
Heiko
Hallo Eve,
das könnte z.B. so gehen:
Sub Search_Date()
Dim rngFind As Range
Dim strFirstAddress As String
Dim strFind As String
strFind = InputBox("Geben Sie das gesuchte Datum ein !", " Datum ", "01.01.2005")
If UCase(strFind) = "FALSE" Or strFind = "FALSCH" Or strFind = "" Then Exit Sub
If IsDate(strFind) = False Then
MsgBox "Der eingegebene Wert ist kein Datum, Makro wird abgebrochen !", vbCritical
Exit Sub
End If
With Worksheets("Sheet1").UsedRange
Set rngFind = .Find(CDate(strFind), LookIn:=xlValues)
If Not rngFind Is Nothing Then
strFirstAddress = rngFind.Address
Do
Worksheets("Sheet1").Activate
rngFind.Select
Exit Sub
Loop While Not rngFind Is Nothing And rngFind.Address <> strFirstAddress
End If
End With
With Worksheets("Sheet2").UsedRange
Set rngFind = .Find(CDate(strFind), LookIn:=xlValues)
If Not rngFind Is Nothing Then
strFirstAddress = rngFind.Address
Do
Worksheets("Sheet2").Activate
rngFind.Select
Exit Sub
Loop While Not rngFind Is Nothing And rngFind.Address <> strFirstAddress
End If
End With
If MsgBox("Datum '" & strFind & "' nicht vorhanden, soll eine Kopie von Sheet 1 erstellt werden ?", vbInformation + vbYesNo) = vbYes Then
Worksheets("Sheet1").Copy After:=Worksheets(Worksheets.Count)
End If
End Sub
Gruß Heiko
PS: Rückmeldung wäre nett