Thema Datum  Von Nutzer Rating
Antwort
Rot Automatisch Datum bei änderung der Zelle (mehrfach)
 16.03.2017 10:57:43 Zafer
NotSolved
16.03.2017 11:01:05 Zafer
NotSolved

Ansicht des Beitrags:
Von:
Zafer		 Datum:
16.03.2017 10:57:43		 Views:
1127		 Rating:
     
Antwort:
  Ja
Thema:
Automatisch Datum bei änderung der Zelle (mehrfach)
Hallo Zusammen, ich kenne mich nicht mit VBA's aus und habe jedoch im netz folgendes gefunden um meinen Wunsch teilweise zu erfüllen: Private Sub Worksheet_Change(ByVal Target As Range) If Intersect(Target, Range("B155:B500")) Is Nothing Then Exit Sub If Target.Count > 1 Then Exit Sub 'Bearbeiten mehrerer Zeilen wird abgefangen If Target = "" Then Cells(Target.Row, 1).ClearContents Else: Cells(Target.Row, 1).Value = Date End If End Sub Ich habe eine Tabelle mit 19 Spalten (A bis S) in welcher von mir täglich daten eingepflegt oder aktualisiert werden. In Spalte A soll das Datum eingetragen werden, wenn ich in Spalte B etwas reinschreibe. Dieses Datum sollte sich danach nicht mehr aktualisieren. In Spalte R wird täglich der Status geändert. In Spalte S soll dementsprechend immer das Datum eingetragen werden, wenn eine Änderung in Spalte R erfolgt. Folgendes habe ich bereits ausprobiert, jedoch Ohne erfolg...(erster Teil funktioniert noch, zweiter nicht) wo ist mein denkfehler? Wie gesagt, ich arbeite das erste mal mit VBA's Private Sub Worksheet_Change(ByVal Target As Range) If Intersect(Target, Range("B155:B500")) Is Nothing Then Exit Sub If Target.Count > 1 Then Exit Sub 'Bearbeiten mehrerer Zeilen wird abgefangen If Target = "" Then Cells(Target.Row, 1).ClearContents Else: Cells(Target.Row, 1).Value = Date End If If Intersect(Target, Range("R155:R500")) Is Nothing Then Exit Sub If Target.Count > 1 Then Exit Sub 'Bearbeiten mehrerer Zeilen wird abgefangen If Target = "" Then Cells(Target.Row, 19).ClearContents Else: Cells(Target.Row, 19).Value = Date End If End Sub VIELEN DANK IM VORRAUS!

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 Automatisch Datum bei änderung der Zelle (mehrfach)
 16.03.2017 10:57:43 Zafer
NotSolved
16.03.2017 11:01:05 Zafer
NotSolved