Microsoft Office Forum [ www.Office-Fragen.de ] >> READONLY <<

Microsoft Office 2003-2019 => Excel => Thema gestartet von: Bartli am Februar 02, 2016, 15:53:26 Nachmittag

Titel: Excel Datum automatisch einfügen wenn sich Zelle ändert
Beitrag von: Bartli am Februar 02, 2016, 15:53:26 Nachmittag

Hallo

ich möchte in meiner Tabelle mit VBA immer, wenn ich bestimmte Zellen verändere in einer anderen bestimmten Zelle das  Datum eintragen. Dazu habe ich bereits einen VBA Code, dieser funktioniert so halbwegs, er ändert auch zufällig ein anderes Datum welches er nicht sollte:

Code: [Auswählen]

Private Sub Worksheet_Change(ByVal Target As Range)

  If Target = (Range("D11") Or Range("D12") Or Range("D13") Or Range("D14")) Then
  Range("D9").Value = Time
  End If
    If Target = (Range("E11") Or Range("E12") Or Range("E13") Or Range("E14")) Then
    Range("E9").Value = Time
    End If
        If Target = (Range("G11") Or Range("G12") Or Range("G13") Or Range("G14")) Then
        Range("G9").Value = Time
        End If
            If Target = (Range("I11") Or Range("I12") Or Range("I13") Or Range("I14")) Then
            Range("I9").Value = Time
            End If
                If Target = (Range("K11") Or Range("K12") Or Range("K13") Or Range("K14")) Then
                Range("K9").Value = Time
                End If
     
End Sub
Wie man im Code sieht versuche ich 4 mal 4 Zellen zu prüfen ob sich etwas geändert hat, als ich es mit nur einer Zelle ausprobiert habe, hat alles geklappt. Bei meiner Erweiterung auf den jetzigen  klappt es eben nicht mehr so zuverlässig. Hat jemand eine Lösung für mein Problem?

Titel: Antw: Excel Datum automatisch einfügen wenn sich Zelle ändert
Beitrag von: gmg-cc am Februar 02, 2016, 18:26:48 Nachmittag

Moin,

was mich betrifft: Wenn ich mich damit befassen soll, dann möchte ich eine (anonymisierte>) *.xlsm und eine klar definierte und strukturierte Beschreibung der Zielsetzung haben.

Titel: Antw: Excel Datum automatisch einfügen wenn sich Zelle ändert
Beitrag von: Herbert Grom am Februar 03, 2016, 17:24:03 Nachmittag

Hallo,

deine erste Zeile muss so aussehen:

If Target = (Range("D11") Or Target = Range("D12") Or Target = Range("D13") Or Target = Range("D14")) Then

Die anderen kriegst du dann sicher alleine hin, OK?

Servus