|
Hallo,
ich habe den folgenden Code bei mir eingefügt, und das funktioniert auch wunderbar.
Nun meine Frage, kann man den so stricken das dieser auch für die Spalten "J"
und "L" funktioniert? Also wenn J nicht leer dann setze in Spalte K aktuelles
Datum und Uhrzeit und das Gleiche bei "L" dann bei M .
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(, 7) = Environ("Username")
rngCell1.Offset(, 8) = Format(Now(), "DD.MM.YY") & " / " & Format(Now(), "hh:mm")
rngCell1.Offset(, 1).Select
Selection.Copy
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Application.CutCopyMode = False
rngCell1.Offset(, 2).Select
End If
Next
SafeExit:
Application.EnableEvents = True
End Sub
|