Thema Datum  Von Nutzer Rating
Antwort
Rot Private Sub Worksheet_Change
21.05.2014 14:36:40 Steffi
NotSolved
21.05.2014 18:02:13 Gast52240
NotSolved
21.05.2014 18:29:13 Gast2974
NotSolved
21.05.2014 18:32:19 Gast60496
NotSolved
22.05.2014 09:55:46 Steffi
NotSolved

Ansicht des Beitrags:
Von:
Steffi
Datum:
21.05.2014 14:36:40
Views:
621
Rating: Antwort:
  Ja
Thema:
Private Sub Worksheet_Change

Hallo zusammen,

ich habe ein Problem und komme derzeit einfach nicht weiter...

 

Ich möchte auf meinem Tabellenblatt für die Zeilen 2 bis 500 überprüfen, ob etwas (in der gesamten Zeile, außer Spalte B) geändert wurde. Wenn etwas geändert wurde, dann soll in Spalte B in der entsprechenden Zeile das aktuelle Datum eingefügt werden.

Kann mir bitte jemand weiterhelfen? :)

 

Mein Code sieht bisher so aus:

 

Private Sub Worksheet_Change(ByVal Target As Excel.Range)


Dim i As Integer
For i = 2 To 500

If Intersect(Target, Range("A" & i, "C" & i & ":Y" & i)) Is Nothing Then
    Exit Sub
    Else: Cells(i, "B") = Date
End If
Next i

End Sub

 

 

Danke im Voraus! Gruß Steffi

 


Ihre Antwort
  • Bitte beschreiben Sie Ihr Problem möglichst genau und ausführlich
  • 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
  • Bitte markieren Sie Ihre Anfrage als erledigt wenn Ihnen geholfen wurde
Thema: Name: Email:

 
 

Thema Datum  Von Nutzer Rating
Antwort
Rot Private Sub Worksheet_Change
21.05.2014 14:36:40 Steffi
NotSolved
21.05.2014 18:02:13 Gast52240
NotSolved
21.05.2014 18:29:13 Gast2974
NotSolved
21.05.2014 18:32:19 Gast60496
NotSolved
22.05.2014 09:55:46 Steffi
NotSolved