ein Hallo und ein Gruß läst den Beitrag gleich viel freundlicher ausehen.
Ich sehe trotzt Brille nichts von Deinem Code.
GHruß Hajo
Private Sub Worksheet_Change(ByVal Target As Excel.Range)
If Intersect([A3:J3] And [L3:Z3], Target) Is Nothing Then Exit Sub
[K3] = Date
ich würde folgenden Code benutzen.
Gruß Hajo
bei mir läuft es auf beiden Rechner Fehlerfrei. Hast Du es mal im Einzelschritt laufen lassen?? Ist die Tabelle viellleicht geschützt??
Falls Code vorhanden wurde er getestet unter Betriebssystem Windows 2000 Pro und Excel Version 2003 Beta 2.
Bitte kein Mail, Probleme sollen im Forum gelöst werden.
Microsoft MVP für Excel
Das Forum lebt auch von den Rückmeldungen.
Coder:
Option Explicit
Private Sub Worksheet_Change(ByVal Target As Excel.Range)
If Intersect([A3:J3], Target) Is Nothing And _
Intersect([L3:Z3], Target) Is Nothing Then Exit Sub
[K3] = Date
End Sub
hätte man dies nicht gleich im ersten Beitrag schreiben können. Das hätte viel arbeit gespart.
Ich habe genug Zeit investiert.
Falls Code vorhanden wurde dieser getestet unter Betriebssystem XP Pro und Excel Version XP SBE.
Bitte kein Mail, Probleme sollen im Forum gelöst werden.
Microsoft MVP für Excel
Das Forum lebt auch von den Rückmeldungen.
Die erweiterte Suchfunktion hilft dir, gezielt die besten Antworten zu finden
Suche nach den besten AntwortenEntdecke unsere meistgeklickten Beiträge in der Google Suche
Top 100 Threads jetzt ansehen