Live-Forum - Die aktuellen Beiträge
Datum
Titel
28.03.2024 21:12:36
28.03.2024 18:31:49
Anzeige
Archiv - Navigation
428to432
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
428to432
428to432
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Inhaltsverzeichnis

mehrfach hochzählen

mehrfach hochzählen
19.05.2004 09:15:18
Josef
Hallo!
Mit folgendem Code wird nach jeder Eingabe in Zelle A1 in B1 hochgezählt und in C1 wie oft hochgezählt wurde.
Wenn ich jedoch z.B. daselbe auch in Zelle A2;B2;C2 , wie müßte ich bitte hier den Code ergänzen?

Private Sub Worksheet_Change(ByVal Target As Excel.Range)
If Target.Address <> "$A$1" Then Exit Sub
If Target.Cells.Count > 1 Then Exit Sub
If IsEmpty(Target) Then Exit Sub
If Not IsNumeric(Target.Value) Then Exit Sub
Application.EnableEvents = False
On Error GoTo ERRORHANDLER
Target.Offset(0, 1).Value = _
Target.Offset(0, 1).Value + Target.Value
Target.Offset(0, 2).Value = _
Target.Offset(0, 2).Value + 1
ERRORHANDLER:
Application.EnableEvents = True
End Sub

Danke
Josef

5
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: mehrfach hochzählen
19.05.2004 09:21:58
Matthias
Hallo Josef,
ersetze diese Zeile:
If Target.Address  "$A$1" Then Exit Sub
durch diese:
If Intersect(Target, Range("A1:A2")) Is Nothing Then Exit Sub
Gruß Matthias
AW: mehrfach hochzählen
19.05.2004 09:46:54
Josef
Hallo Matthias!
Danke für Deine schnelle Hilfe.
Was müßte man noch tun, wenn ich z.B.
A1 = Eingabe;B1;C1;
A2 = Eingabe;B2;C2;
sowie auch in
D1 = Eingabe;E1;F1;
D2 = Eingabe;E2;F2;
das seleb erreichen möchte?
Danke
Josef
AW: mehrfach hochzählen
19.05.2004 10:13:45
Matthias
Hallo Josef,
dann so:
   If Intersect(Target, Range("A1:A2")) Is Nothing And _
Intersect(Target, Range("D1:D2")) Is Nothing _
Then Exit Sub
und wenn du auch G1 und G2 brauchst:
   If Intersect(Target, Range("A1:A2")) Is Nothing And _
Intersect(Target, Range("D1:D2")) Is Nothing And _
Intersect(Target, Range("G1:G2")) Is Nothing _
Then Exit Sub
den Rest kannst Du dir jetzt aber selbst ausdenken ;-)
Grüße,
Matthias
Anzeige
AW: mehrfach hochzählen
19.05.2004 10:40:36
Josef
Hallo Matthias!
Danke für Deine Hilfe, klappt bestens
Josef
Danke für die Rückmeldung - o.T.
19.05.2004 10:47:26
Matthias
:-)

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige