Code erweitern
#1
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.


Angehängte Dateien Thumbnail(s)
   
Antworten Top
#2
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.
[-] Folgende(r) 1 Nutzer sagt Danke an BigJane für diesen Beitrag:
  • Enrico
Antworten Top
#3
Das funktioniert Perfekt wie es soll. Vielen Dank.
Antworten Top
#4
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
Zum übersetzen von Excel Formeln:

http://dolf.trieschnigg.nl/excel/index.p...gids=en+de
Antworten Top


Gehe zu:


Benutzer, die gerade dieses Thema anschauen: 1 Gast/Gäste