Anzeige
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Anzeige
Inhaltsverzeichnis

Änderungen zählen über Bereich

Forumthread: Änderungen zählen über Bereich

Änderungen zählen über Bereich
11.05.2009 14:42:56
Peter
Hallo Spezialisten, habe hier folgenden Code gefunden und möchte diesen auf einen Bereich (a8:A250)anwenden und die Anzahl der Änderungen pro Zelle in der Zelle rechts (b8:b250) davon ausgeben. Kriegs aber nicht gebacken. Wer kann mir helfen ? Danke für jede Hilfe. Gruß Peter

Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Address  "$A$10" Then Exit Sub
Range("A1") = Range("A1") + 1
End Sub


Anzeige

3
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Änderungen zählen über Bereich
11.05.2009 14:51:49
D.Saster
Hallo,

Private Sub Worksheet_Change(ByVal Target As Range)
If Application.Intersect(Target, Range("A8:A250")) Is Nothing Then Exit Sub
Target.Offset(, 1) = Target.Offset(, 1) + 1
End Sub


Gruß
Dierk

AW: Änderungen zählen über Bereich
11.05.2009 14:52:17
Hajo_Zi
Halo Peter,
in Excel kannst Du auch mehr als eine Zelle mit einmal ändern.

Option Explicit
Private Sub Worksheet_Change(ByVal Target As Range)
'* H. Ziplies                                     *
'* 11.05.09                                       *
'* erstellt von Hajo.Ziplies@web.de               *
'* http://Hajo-Excel.de/
Dim RaBereich As Range, RaZelle As Range
' Bereich der Wirksamkeit
Set RaBereich = Range("B8:B250")
Set RaBereich = Intersect(RaBereich, Range(Target.Address))
If RaBereich Is Nothing Then Exit Sub
Range("A1") = Range("A1") + RaBereich.Count
Set RaBereich = Nothing
End Sub



Anzeige
AW: Änderungen zählen über Bereich
11.05.2009 15:37:27
Peter
Hallo Dierk, hallo Hajo,
Dierk: Passt. Besten Dank. Ich hatte den Target.offset-Teil vermasselt.
Hajo, Du hast mich mit Deiner Alternative auf eine weitere Idee gebracht. Geniale Idee. Danke.
Nochmals besten Dank. Peter

Forumthreads zu verwandten Themen

Anzeige
Anzeige