Datum
22.07.2004 11:08:50
nina
Ich benutze den untenstehenden Code für ein Datum auf 12 Tabellenblättern
zu suchen. Ist es möglich,das wenn das Datum gefunden wurde, die Spalte wo das Datum steht, farbig zu hinterlegen ?
Danke Nina
Code:
Private Sub Datum_Suchen()
Dim C As Range, Ws As Worksheet, bolFound As Boolean
On Error Resume Next
CommandButton1.TakeFocusOnClick = False
For Each Ws In Worksheets
With Ws.Cells
Set C = .Find(Date, LookIn:=xlFormulas)
If Not C Is Nothing Then
Ws.Select
C.Select
bolFound = True
Exit Sub
End If
End With
Next
If Not bolFound Then
MsgBox "Datum wurde nicht gefunden!" & Space(10), 64, "gebe bekannt..."
End If
End Sub