|
Hallo,
ich bin ein absoluter VBA Anfänger.
Trotzdem bin ich durch eine kleine Recherche zu einem Code gekommen der mir bei der Eingabe eines Wertes in Spalte N in Nachbarspalte O Datum und Uhrzeit angibt.
CODE:
Private Sub Worksheet_Change(ByVal Target As Range)
'Update 20140722
Dim WorkRng As Range
Dim Rng As Range
Dim xOffsetColumn As Integer
Set WorkRng = Intersect(Application.ActiveSheet.Range("N:N"), 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 = Now
Rng.Offset(0, xOffsetColumn).NumberFormat = "dd-mm-yyyy, hh:mm:ss"
Else
Rng.Offset(0, xOffsetColumn).ClearContents
End If
Next
Application.EnableEvents = True
End If
End Sub
Nun möchte ich eigentlich das selbe für die Spalte H nur das durch drücken einer Taste in einer Zeile von Spalte H mir das Datum nicht in der Nachbarspalte/zeile angegeben werden soll, sonder halt in der selben Zeile.
Kann mir dabei jemand helfen :D.
Vielen vielen Dank für eure Hilfe im Vorraus.
LG
|