Tekst zoeken in rij (vba)

[royb73]

Beste,

Ik ben op zoek naar een code in Excel (VBA) die een bepaalde tekst zoekt. Momenteel heb ik de code:

Set WorkRng = Intersect(Application.ActiveSheet.Range("U:U"), Target)

In kolom U staat namelijk op rij 1 de tekst "Status".

Hoe kan ik de code aanpassen zodat in plaats van kolom "U" de tekst "status" zoekt?

De volledige code is:

Private Sub Worksheet_Change(ByVal Target As Range)

Dim WorkRng As Range
Dim Rng As Range
Dim xOffsetColumn As Integer

Set WorkRng = Intersect(Application.ActiveSheet.Range("U:U"), Target)
xOffsetColumn = 1

If Not WorkRng Is Nothing Then
    Application.EnableEvents = False
    For Each Rng In WorkRng
        If Not VBA.IsEmpty(Rng.Value) Then
            Rng.Offset(0, xOffsetColumn).Value = Date
            'Rng.Offset(0, xOffsetColumn).NumberFormat = "dd-mm-yyyy"
        Else
            Rng.Offset(0, xOffsetColumn).ClearContents
        End If
    Next
    Application.EnableEvents = True

End If

End Sub

Mvg

Roy

 

[edmoor]

Mij is niet duidelijk wat je nu precies waar wilt zoeken.
Je zal sowieso de kolom moeten opgeven.

 

[royb73]

Hoi Edmoor,

Ik heb een Excelbestand waar in de eerste rij aantal kolomnamen staan (o.a. werkstudenten, datum, status etc.). De code moet zoeken naar de tekst "Status" in 1e rij.
Bij het gereed melden, wordt de kolom ernaast automatisch voorzien van een datum zoals in de code is geschreven.

Doordat er wekelijks nieuwe studenten erbij komen of weggaan, wordt er steeds een kolom toegevoegd/verwijderd waardoor kolom U (kolomnaam "Status") variabel wordt. Ik wil de code (zoals aangegeven) aanpassen, zodat het zoekt naar de tekst "status".

Hoop dat het iets duidelijker is.

Mvg
Roy

 

[AD1957]

Zoiets?

Private Sub Worksheet_Change(ByVal Target As Range)
If Cells(1, Target.Column).Value = "Status" Then
 i = Target.Column
 
 If Not Intersect(Target, Range(Cells(2, i), Cells(Rows.Count, i))) Is Nothing Then
    If Target <> "" Then
       Target.Offset(, 1) = Format(Date, "dd-mm-yyyy")
    Else
       Target.Offset(, 1) = ""
    End If
 End If
End If
End Sub

 

[royb73]

Dank je.

Dit is wat ik zocht.

BEdankt voor je moeite.

Groeten,

Roy