Hallo,
ich brühte immer noch vor einem Problem.
In Spalte "A" wird etwas eingetragen (Alphanumerisch), wenn das passiert ist soll
in Spalte " I " in der entsprechend selben Zeile aktuelles Datum und Uhrzeit eingetragen werden.
Soweit hab ich das schon hinbekommen A / I -Kombination.
Jetzt benötige ich das Gleiche noch für die J / K und L / M.
Also in Spalte "J" wird etwas eingetragen in Spalte "K" soll
dann in der selben Zeile daneben das aktuelle Datum und die Uhrzeit stehen,
Analog für L / M, in Spalte "L" wird etwas in eine Zeile eingetragen,
in Spalte "M" in der entsprechenden Zeile das Datum und die Uhrzeit.
Hab schon einiges ausprobiert es funktioniert aber nicht so.
Hier mal der code für A / I - Kombination:
Option Explicit
Private Sub Worksheet_Change(ByVal Target As Excel.Range)
Set Target = Intersect(Target, Columns("A"))
If Target Is Nothing Then Exit Sub
Dim rngCell1 As Excel.Range
On Error GoTo SafeExit
Application.EnableEvents = False
For Each rngCell1 In Target.Cells
If Trim$(rngCell1.Value) <> "" Then
rngCell1.Offset(, 1).FormulaR1C1 = "=VLOOKUP(RC[-1],Stammdaten!C[-1]:C,2,false)"
rngCell1.Offset(, 8) = Format(Now(), "DD.MM.YY") & " / " & Format(Now(), "hh:mm")
End If
Next
SafeExit:
Application.EnableEvents = True
End Sub
|