Suchmakro
25.09.2015 10:16:59
Florian
ich habe folgendes Makro
Sub Suchmakro()
Dim Zelle$
On Error GoTo Fehler
Zelle = Columns("E:E").Find(What:=Range("P1").Value, LookIn:=xlValues, LookAt:=xlWhole). _
Address
Application.ScreenUpdating = False
Range(Zelle).Offset(, 5).Select
If IsEmpty(ActiveCell) Then
Range(Zelle).Offset(, 5) = Date
Range("P1").ClearContents
Range("P1").Select
Else: Range("P1").Select
End If
Exit Sub
Fehler:
On Error GoTo 0
End Sub
Jetzt kommt es vor, dass in Spalte "E" der Wert öfters vorkommt.
Ziel ist es, dass auch in den doppelten oder dreifachen werten das Datum angezeigt wird, wenn das Feld leer ist.
Leider habe ich mich eine Zeit lang damit nicht mehr beschäftigt und hoffe ihr könnt helfen :)
Danke & LG