Zählen
22.04.2008 16:23:00
Torsten
Hallo,
ich hab mal ne Frage.
Besteht die Möglichkeit durch anklicken einer Zelle einen Zählvorgang auszulösen.
D.h. z.B.
Die leere Zelle A1 ein mal anklicken in Zelle A1 steht dann die Zahl 1, Zelle A1 noch mal anklicken dann steht dort die Zahl 2, Zelle A1 zum 3. Mal anklicken und siehe da. Es steht die Zahl 3 in Zelle A1.
Das ganze soll bis zur Zahl 99 funktionieren.
Ausserdem soll es auch in A2, A3 und A4 funktionieren.
Für Hilfe wäre ich sehr dankbar
Torsten Krüger
Als Antwort erhielt ich folgendes.
Hallo,
eine alternative mit dem Doppel klick Ereignis.
Dabei kann die Zelle auch die aktive bleiben ohne
zuvor erst eine andere Zelle zu aktivieren.
Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
If Not Intersect(Target, Range("A1:A4")) Is Nothing Then
If Target = 99 Then
Target = ""
Else
Target = Target + 1
End If
End If
Cancel = True
End Sub
Jetzt meine weiterführende Frage kann ich auch irgendwie mehrere Zellbereiche einbinden?
D.h. im obigen Beispiel sind es die Zellen A1 A4.
Jetzt soll das noch zusätzlich bei B4 B20, bei C3 C22 und z.B. bei D220 D223 funktionieren.
Wie müsste ich das einfügen?
Danke im voraus
Torsten Krüger