Microsoft Excel

Herbers Excel/VBA-Archiv

Bewerten Sie hier bitte das Excel-Portal

Der kurze Weg zum Ziel: Auftragsprogrammierung

Aktualisierungsdatum

Betrifft: Aktualisierungsdatum von: Jochen Bode
Geschrieben am: 09.10.2014 11:20:27

Hallo Excel-Freunde,
ich brauche mal wieder eure Hilfe.
Wenn ich in einer Tabelle Daten in einer Zeile ändere möchte dass das Änderungsdatum in der gleichen Zeile eingetragen wird.

Beispiel:
Zeile B2 - Q2 Ergebnis in R2 das Änderungsdatum
Zeile B4 - Q4 Ergebnis in R4 das Änderungsdatum
Zeile B8 - Q8 Ergebnis in R8 das Änderungsdatum
usw.
Ich hoffe dass mir irgendjemand in der großen Excel-Familie helfen kann.

Danke im Voraus
Jochen

  

Betrifft: AW: Aktualisierungsdatum von: Matthias L
Geschrieben am: 09.10.2014 11:36:15

Hallo Jochen


Code gehört ins entsprechende Tabellenblatt

Private Sub Worksheet_Change(ByVal Target As Range)
If Not Intersect(Target, Range("B2:Q8")) Is Nothing And Target.Count = 1 Then
 Select Case Target.Row
  Case Is = 2, 4, 8
   Cells(Target.Row, "R") = Date
 End Select
End If
End Sub
Gruß Matthias


  

Betrifft: AW: Aktualisierungsdatum von: Jochen Bode
Geschrieben am: 09.10.2014 12:26:20

Hallo Matthias,
habe mich mal wieder falsch ausgedrückt, Entschultigung.
Es sollen natürlich alle Zeilen berücksichtigt werden. Der Bereich ist von B2 - Q1001.
Das Änderungsdatum
Gruß
Jochen


  

Betrifft: AW: Aktualisierungsdatum von: Matthias L
Geschrieben am: 09.10.2014 13:02:35

Hallo

Dann reicht das so:

Private Sub Worksheet_Change(ByVal Target As Range)
 If Not Intersect(Target, Range("B2:Q1001")) Is Nothing And Target.Count = 1 Then
  Cells(Target.Row, "R") = Date
 End If
End Sub
Gruß Matthias


  

Betrifft: AW: Aktualisierungsdatum von: Jochen Bode
Geschrieben am: 09.10.2014 13:19:06

Danke Matthias, so ist genau wie ich es haben wollte.


  

Betrifft: AW: Aktualisierungsdatum von: simonek
Geschrieben am: 11.10.2014 09:04:40

Hallo zusammen der code ist interessant.
Das heißt, wenn jemand was in der Zeile was ändert, wird das Datum in R aktualisiert.oder?
Wie bekomme ich den private sub in die schaltfläche rein? Denn ich sehe den Code beim Makro zuteilen nicht:-(

LG simone