Thema Datum  Von Nutzer Rating
Antwort
Rot Automatischer Eintrag von Datum und Username
07.02.2018 17:08:59 Wolfgang
NotSolved
07.02.2018 17:34:09 Werner
NotSolved

Ansicht des Beitrags:
Von:
Wolfgang
Datum:
07.02.2018 17:08:59
Views:
124
Rating: Antwort:
  Ja
Thema:
Automatischer Eintrag von Datum und Username
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

Ihre Antwort
  • Bitte beschreiben Sie Ihr Problem möglichst genau und ausführlich
  • Codeschnipsel am besten über den Code-Button im Text-Editor einfügen
  • Die Angabe der Emailadresse ist freiwillig und wird nur verwendet, um Sie bei Antworten auf Ihren Beitrag zu benachrichtigen
  • Bitte markieren Sie Ihre Anfrage als erledigt wenn Ihnen geholfen wurde
Thema: Name: Email:

 
 

Thema Datum  Von Nutzer Rating
Antwort
Rot Automatischer Eintrag von Datum und Username
07.02.2018 17:08:59 Wolfgang
NotSolved
07.02.2018 17:34:09 Werner
NotSolved