Live-Forum - Die aktuellen Beiträge
Datum
Titel
28.03.2024 21:12:36
28.03.2024 18:31:49
Anzeige
Archiv - Navigation
1204to1208
Aktuelles Verzeichnis
Verzeichnis Index
Übersicht Verzeichnisse
Vorheriger Thread
Rückwärts Blättern
Nächster Thread
Vorwärts blättern
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Inhaltsverzeichnis

Eingaben in Bereichen zählen

Eingaben in Bereichen zählen
Frank
Hallo zusammen!
Mit folgendem Makro überprüfe ich, ob in den Spalten 3 und 10 Änderungen vorgenommen werden. Bei jeder Änderung wird der Wert in der mit Namen versehenen Zelle ("INPUT_CHECK") um 1 erhöht:
Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Colum = 3 Or Target.Column = 10 Then
Range("INPUT_CHECK").Value = Range("INPUT_CHECK").Value + 1
End If
End Sub
Frage: Kann ich statt Spalten auch nicht-zusammenhängende Ranges abprüfen? Targt.Range scheint nicht zu funktionieren...
Vielen Dank schonmal!
Frank

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

Betreff
Benutzer
Anzeige
AW: Eingaben in Bereichen zählen
10.03.2011 10:01:34
Rudi
Hallo,
mit Intersect.
If Not Intersect (Target, Range("B3"), Range("F6"), Range("C4")) Is Nothing Then
Gruß
Rudi
mit der Intersect-Methode
10.03.2011 10:01:46
Tino
Hallo,
dies könnte man so machen.
Beispiel:
Private Sub Worksheet_Change(ByVal Target As Range)
Dim rngRange As Range
'hier Deinen Bereich eintragen der überwacht werden soll
Set rngRange = Intersect(Range("B3:C9,E3:G9,I3:K9"), Target)
If Not rngRange Is Nothing Then
Application.EnableEvents = False
Range("INPUT_CHECK").Value = Range("INPUT_CHECK").Value + 1
Application.EnableEvents = True
End If
End Sub
Gruß Tino
Anzeige
AW: Eingaben in Bereichen zählen
10.03.2011 10:05:22
Frank
VIELEN DANK AN EUCH BEIDE!

299 Forumthreads zu ähnlichen Themen

Anzeige
Anzeige
Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige