Microsoft Excel

Herbers Excel/VBA-Archiv

Bewerten Sie hier bitte das Excel-Portal

Der kurze Weg zum Ziel: Auftragsprogrammierung

Bei "Worksheet_Change" aktuelles Datum in J3

Betrifft: Bei "Worksheet_Change" aktuelles Datum in J3 von: Bernd
Geschrieben am: 19.04.2008 20:37:34

Hallo verehrte Freaks,
ich hänge an einer Problemstellung zu Worksheet_Change.

Wenn auf dem Arbeitblatt "output" im Bereich B8:W90 eine Änderung erfolgt, soll in der Zelle J3 das aktulle Datum - also @heute() - eingetragen werden.

Für mich unlösbar - für Euch wahrscheinlich eine Kleinigkeit.

Grüße und Danke vorab,

Bernd

  

Betrifft: AW: Bei "Worksheet_Change" aktuelles Datum in J3 von: Daniel
Geschrieben am: 19.04.2008 20:42:10

Hi
dieses Makro ins Modul der Tabelle "output" schreiben:

Private Sub Worksheet_Change(ByVal Target As Range)
If Not Intersect(Target, Range("B8:W90")) Is Nothing Then Range("J3").Value = Date
End Sub



Gruß, Daniel


  

Betrifft: @ Daniel & Tino - vielen herzlichen Dank!!!! von: Bernd
Geschrieben am: 19.04.2008 20:51:01


Danke f.d schnelle und perfekte Antwort.

Grüße
Bernd


  

Betrifft: AW: Bei "Worksheet_Change" aktuelles Datum in J3 von: Tino
Geschrieben am: 19.04.2008 20:44:50

Hallo,
hiermit müsste es gehen, als Code in deine Tabelle "output"

Private Sub Worksheet_Change(ByVal Target As Range)
 If Not Intersect(Target, Range("B8:W90")) Is Nothing Then
 Application.EnableEvents = False
  Range("J3") = Date
 Application.EnableEvents = True
 End If
End Sub



Gruß
Tino


 

Beiträge aus den Excel-Beispielen zum Thema "Bei "Worksheet_Change" aktuelles Datum in J3"

Beim Öffnen der Arbeitsmappe auf aktuelles Datum prüfen