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:
857		 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 ausführlich. (Wichtige Info z.B.: Office Version, Betriebssystem, Wo genau kommen Sie nicht weiter)
  • Bitte helfen Sie ebenfalls wenn Ihnen geholfen werden konnte und markieren Sie Ihre Anfrage als erledigt (Klick auf Häckchen)
  • Bei Crossposting, entsprechende Links auf andere Forenbeiträge beifügen / nachtragen
  • 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
Thema: Name: Email:



  • Bitte beschreiben Sie Ihr Problem möglichst ausführlich. (Wichtige Info z.B.: Office Version, Betriebssystem, Wo genau kommen Sie nicht weiter)
  • Bitte helfen Sie ebenfalls wenn Ihnen geholfen werden konnte und markieren Sie Ihre Anfrage als erledigt (Klick auf Häckchen)
  • Bei Crossposting, entsprechende Links auf andere Forenbeiträge beifügen / nachtragen
  • 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

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