Microsoft Excel

Herbers Excel/VBA-Archiv

Änderungsdatum | Herbers Excel-Forum


Betrifft: Änderungsdatum von: georg burk
Geschrieben am: 25.01.2010 11:04:13

Hallo,

ich habe in a1, c1, e1 usw. Werte in den Zellen.

Nur wenn die Werte aktualisiert werden, soll in den Nachbarzellen das aktuelle Änderungsdatum eingetragen werden.

Beim bloßen Öffnen oder Lesen der Daten soll das Datum nicht geändert werden.

Kann man das mit VBA realisieren?

Bin für alle Hinweise dankbar

Gruß

Georg

  

Betrifft: AW: Änderungsdatum von: Rudi Maintaire
Geschrieben am: 25.01.2010 11:13:08

Hallo,

Kann man das mit VBA realisieren?

Ja. Worksheet_Change-Prozedur.

Gruß
Rudi


  

Betrifft: AW: Änderungsdatum von: Christian
Geschrieben am: 25.01.2010 11:15:15

Hallo Georg,
im Change Ereignis das Target prüfen und im Offset "Date oder "Now" eintragen.
Gruß Christian


  

Betrifft: AW: Änderungsdatum von: georg burk
Geschrieben am: 25.01.2010 11:24:59

Hallo Christian,

könntest du mir bitte erklären wie ich das Target prüfen kann und wo das Offset ist

Gruß

Georg


  

Betrifft: AW: Änderungsdatum von: Christian
Geschrieben am: 25.01.2010 11:37:11

hallo,
Target ist der gewählte Bereich - im WorsheetChange wird "Target" bereits als Parameter übergeben.
Deinen Zielbereich (wo du das Datum eintragen willst) kann du einfach mittels Offset festlegen.
Bei "VBA-gut" sollte das aber bekannt sein.
Gruß
Christian


  

Betrifft: AW: Änderungsdatum von: georg burk
Geschrieben am: 25.01.2010 11:41:55

Hallo Christian,

bitte kein Ablenkungsmanöver, hast du für mich ein Beispiel parat?

Gruß
Georg


  

Betrifft: AW: Änderungsdatum von: Tino
Geschrieben am: 25.01.2010 11:45:04

Hallo,
z. Bsp. so

kommt als Code in Tabelle

Option Explicit 
 
Private Sub Worksheet_Change(ByVal Target As Range) 
Dim Bereich As Range 
 
Set Bereich = Intersect(Rows(1), Target) 
 
If Not Bereich Is Nothing Then 
    Application.EnableEvents = False 
    For Each Bereich In Bereich 
        If Bereich.Column Mod 2 = 1 Then 
            Bereich.Offset(1, 0) = Now 
        End If 
    Next Bereich 
    Application.EnableEvents = True 
End If 
End Sub 
Gruß Tino


  

Betrifft: AW: Änderungsdatum von: georg burk
Geschrieben am: 25.01.2010 11:49:26

Danke Tino, Super!


Beiträge aus den Excel-Beispielen zum Thema "Änderungsdatum"