Code erweitern

[Enrico]

Hallo,

ich habe einen Code der auch wunderbar funktioniert.
Er bewirkt das soweit ein Wert eingegeben wird eine Spalte weiter die aktuelle Uhrzeit notiert wird.

Code:

Private Sub Worksheet_Change(ByVal Target As Range)

    If Intersect(Target, Range("E2:E20000,I2:I20000")) Is Nothing Then Exit Sub
    If Target.Count > 1 Then Exit Sub 'Bearbeiten mehrerer Zeilen wird abgefangen
    If Target = "" Then
        Target.Offset(0, 1).ClearContents
    Else
        Target.Offset(0, 1) = Format(Now, "hh:mm")
       
    End If
   
  End Sub

Wie müsste ich den Code ändern damit bei dem Wort "Steht" der erste Wert stehen bleibt und eine Spalte weiter die aktuelle Zeit gesetzt wird.

Im Anhang ein Bild um zu veranschaulichen was ich meine.

Vielen Dank vorab für eure Hilfe.

[BigJane]

Code:

Private Sub Worksheet_Change(ByVal Target As Range)

    If Intersect(Target, Range("E2:E20000,I2:I20000")) Is Nothing Then Exit Sub
    If Target.Count > 1 Then Exit Sub 'Bearbeiten mehrerer Zeilen wird abgefangen
    Select Case Target.Value
        Case Is = ""
            Target.Offset(0, 1).ClearContents
            Target.Offset(0, 2).ClearContents
        Case Is = "Steht"
            Target.Offset(0, 2) = Format(Now, "hh:mm")
        Case Is <> ""
            Target.Offset(0, 1) = Format(Now, "hh:mm")
    End Select

End Sub

Hi,

so zum Beispiel. Könntest du dann mit noch erweitern falls es noch mehr Fälle geben sollte. Beachte aber bitte er wählt den ersten Case der zutrifft also die Reihenfolge der Fälle ist wichtig, daher steht der 2. Fall vor dem 3. Fall um nicht zu viel ausschließen zu müssen.

[Enrico]

Das funktioniert Perfekt wie es soll. Vielen Dank.

[snb]

Code:

If not Intersect(Target, Range("E2:E20000,I2:I20000")) Is Nothing and Target.Count =1 Then
  Target.Offset(0, 1).resize(,2).ClearContents
  If target <>"" then Target.Offset(0, 1- (target="Steht")) = Format(Now, "hh:mm")
End Sub