Suchmakro

Forumthread: Suchmakro
2 Beiträge zu diesem Forumthread
Anzeige

Forumthread: Suchmakro

Suchmakro

25.09.2015 12:16:59

Florian

Guten Morgen zusammen,
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

2
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

AW: Suchmakro

25.09.2015 13:11:02

ChrisL
AW: Suchmakro

25.09.2015 13:38:42

Werner

AW: Suchmakro

25.09.2015 13:11:02

ChrisL

Hi Florian

Sub Suchmakro()
Dim c As Range
Dim firstAddress As String
Set c = Columns(5).Find(What:=Range("P1").Value, LookIn:=xlValues, LookAt:=xlWhole)
If Not c Is Nothing Then
firstAddress = c.Address
Do
If IsEmpty(c.Offset(0, 5)) Then c.Offset(0, 5) = Date
Set c = Columns(5).FindNext(c)
Loop While Not c Is Nothing And c.Address  firstAddress
End If
Range("P1").ClearContents
End Sub

cu
Chris

AW: Suchmakro

25.09.2015 13:38:42

Werner

Hallo Chris,
damit hast du mir auch weiter gehofen, war auch gerade auf der Suche nach so was. Danke.
Gruß Werner

Jetzt das Excel-Portal bewerten: Deine Stimme zählt!