Programm geschrieben (alter Code stört)

Private Sub Worksheet_Change(ByVal Target As Range) If Intersect(Target, Range("A7:A100")) Is Nothing Then Exit Sub If Target.Value <> "" Then Target.Offset(0, 8).Value = Date Else Target.Offset(0, 8).ClearContents End If End Sub

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

Hallo Denis,
Target ist keine Variable,sondern je nachdem wie eine Eingabe beendet wird entweder die letzte oder die aktive Zelle.
Im Normalfall ist es die Zelle die du gerade verlassen hast,wird die Eingabe aber oben mit dem grünen Häckchen neben der Eingabeleiste bendet,kann es auch die aktive Zelle sein.
Target ist immer nur eine Zelle,bei Zeile löschen wo ja mehrere Zellen nacheinander berechnet werden,gibt es dann deinen Fehler.
Hier mußt du dann wie von Gerd erwähnt,aus der Sub aussteigen.

If Target.Count >1 Then Exit Sub

zu deinem Code
in der ersten Zeile wird geprüft,ob sich Target im Bereich A7:A100 befindet,falls nicht wird die Sub verlassen.
Target.Offset(Zeile,Spalte)bedeutet nichts anderes als springe von Target aus nach Zeile(hoch/runter),Spalte(links/rechts)und mach was.
offset(0,8)= gleiche Zeile,8 Spalten nach rechts.
Hajo deinen Einwand kann ich nicht bestätigen.
in der Tabelle folgenden Code

Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Column > 1 Then Exit Sub
If Target.Count > 1 Then Exit Sub
If Target.Value <> "" Then Target.Offset(0, 2).Value = Date
End Sub

dann dein Beispiel ausgeführt, egal ob eine Zelle oder ganze Tabelle markiert, kein Fehler
Gruß Ewald

Hallo,
wir reden hier von Target in Bezug einer manuellen Änderung einer Zelle, also Auslösung des Change-Ereignisses.
Dazu vielleicht diese Erklärung von Pearson

Within the Worksheet_Change procedure, you can add any code that you want to take place when a cell value is changed. This event is raised automatically by Excel when a cell's value is changed either by user input or by other VBA code. It is not raised if the value of the cell is changed by a formula calculation in that cell. The Target parameter is a Range type object referring to the cell(s) that were changed. To use other events of the worksheet, select the event in the right hand dropdown at the top of the code pane. When you change this setting, VBA will insert the procedure shell in the code module for you, ensuring that the procedure is properly declared. Under no circumstances should you change anything in the Sub statement created by VBA. Doing so may cause the event not to work.
Dieses Makro zeigt das Target.Value nur eine Zelle kann

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
MsgBox Target.Address
MsgBox Target.Value
End Sub

Gruß Ewald

Private Sub Worksheet_Change(ByVal Target As Range) If Not Intersect(Target, Range("A7:A100")) Is Nothing Then If Target.Count = 1 Then On Error GoTo ERREXIT Application.EnableEvents = False If Target <> "" Then Target.Offset(0, 7) = Date Else Target.Offset(0, 7).ClearContents End If End If End If ERREXIT: Application.EnableEvents = True End Sub

Beliebteste Forumthreads (12 Monate)

Programm geschrieben (alter Code stört)

14 Beiträge zum Forumthread Beiträge zu diesem Forumthread

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

14
Beiträge zum Forumthread

Beiträge zu diesem Forumthread