Hallo Werner,
ok, ich hab es hinbekommen
ich habe die Zeile
Target.Offset(, -3).Resize(1, 5).Copy
auf
Target.Offset(, -5).Resize(1, 5).Copy
geändert.
Dadurch funktioniert es jetzt
hier nochmal der gesamte für mich funktionierende Code für die Nachwelt.
PS Danke!
Private Sub Workbook_SheetChange(ByVal Sh As Object, ByVal Target As Range)
Dim loLetzte As Long
If Sh.Name Like "Projekt*" Then
If Target.Column = 6 Then
If UCase(Target) = "YES" Then
With Worksheets("master")
loLetzte = .Cells(.Rows.Count, "A").End(xlUp).Offset(1).Row
.Range("A" & loLetzte) = Date
.Range("B" & loLetzte) = Format(Time, "HH:MM:SS")
Target.Offset(, -5).Resize(1, 5).Copy
.Range("C" & loLetzte).PasteSpecial Paste:=xlPasteValuesAndNumberFormats
End With
End If
End If
End If
Application.CutCopyMode = False
End Sub
|