Excel-Benutzerformular, Zelle suchen und Datum einfügen

Question

Ich habe ein Benutzerformular, das ich verwenden möchte, um eine bestimmte Zelle basierend auf dem zu finden, was in dem Benutzerformular eingegeben wird. Sobald die Zelle gefunden ist, muss ich ein Datum in eine entsprechende Zelle in derselben Zeile (andere Spalte) wie die oben erwähnte Zelle einfügen, die lokalisiert werden muss.

Hier ist der Code, den ich habe, aber es scheint keine bestimmte Zelle zu finden, und stattdessen fügt einfach ein Datum in Spalte E an, was scheint, eine zufällige Zeile zu sein.

Nach dem Code, ich versuche zu finden, was auf dem Benutzerformular in Colonyid.Value eingegeben wird. Sobald ich in der Arbeitsmappe gefunden habe, muss ich CloseDate.Value (automatisch gefüllt mit dem heutigen Datum) in Spalte E in derselben Zeile wie Colonyid.Value eingeben.

Ich kann mit einem generischen Beispiel arbeiten, aber ich bevorzuge, wenn möglich, meinen Code als Startblock zu verwenden.

Answer 1

funktioniert dies für mich

Private Sub CommandButton1_Click() 
    Dim this As String 

    Dim rng As Range 
    Dim rcell As Range 

    If ISnUll(Me.TextBox1.Value) = False Then 
     this = Me.TextBox1.Value 
    ElseIf ISnUll(Me.TextBox1.Value) = true Then 
     MsgBox "Input is required for operation. Please enter a value" 
     Exit Sub 
    End if 

    Set rng = ThisWorkbook.Sheets("Sheet2").Range("E:E") 
    For Each rcell In rng.Cells 
    If rcell.Value <> vbNullString Then 
     If rcell.Value = this Then 
      rcell.Offset(0, 4).Value = Now() 
     End If 
    End If 
    Next rcell 
End Sub