Hallo Leute,
bin gerade echt am Verzweifeln.
Möchte in eine Liste bei Eintrag automatisch je in eine Spalten Datum und Username eintragen lassen.
Die Prüfung soll bei zwei Spalten erfolgen ( H und I ) und die automatischen Einträge sollen dann in
Spalte L und M erfolgen.
Private Sub Worksheet_Change(ByVal Target As Range)
Dim lRow As Integer, i As Integer
Dim rngz As Range
Dim rngAllData4 As Range
Dim Kst() As Variant
lRow = ActiveSheet.Cells(Rows.Count, 4).End(xlUp).Row
Set rngAllData4 = Range(Cells(7, 12), Cells(lRow, "M"))
'Erst einmal alles freigeben
ActiveSheet.Unprotect
rngAllData4.Locked = False
On Error GoTo Ende
Application.EnableEvents = False
For Each rngz In Application.Intersect(Columns("H:I"), Target).Cells
rngz.Offset(0, 4).Value = Date
Target.Offset(0, 5) = VBA.Environ("Username")
Next rngz
Ende:
'Kst
If restrictIt(Target) Then
Kst = arrKst(Target)
If Kst(1) Then
With Target.EntireRow
.Cells(6).Value = Kst(6)
.Cells(7).Value = Kst(7)
.Cells(8).Value = Kst(4)
.Cells(9).Value = Kst(5)
End With
End If
End If
Application.EnableEvents = True
'Sperren
ActiveSheet.Unprotect
rngAllData4.Locked = True
End Sub
Das Script funktioniert soweit. Nur wenn ich I eintrage füllt es mir Spalte M und N statt in L und M.
Passiert durch den Offset Befehl.
Wie kann ich das umgehen bzw so ändern das es funktioniert.
Für Antworten bzw. Rückfragen bin ich unter Wolfgang-Maier1@gmx.de erreichbar.
Danke schonmal im Voraus.
Lg
Wolfgang
|