Live-Forum - Die aktuellen Beiträge
Anzeige
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Inhaltsverzeichnis

Klick auf Zellen zählen

Forumthread: Klick auf Zellen zählen

Klick auf Zellen zählen
12.10.2004 14:37:39
Klaus
Hallo, Excellenzen!
Ich will/muß Fragebögen auswerten. Rd. 500 Fragebögen mit 134 Fragen und zu jeder ein Kreuzchen in den Spalten 1 bis 6 dahinter.
Mir schwebt vor, ein Muster des Fragebogens als Exceltabelle zur Erfassung anzulegen und daneben eine gleich aufgebaute Tabelle zum Zählen der Kreuzchen.

Dann soll bei jedem Klick auf eine Zelle der Erfassungstabelle in der Nachbar-Tabelle der Zähler um 1 erhöht werden (Ausgangswert ist natürlich 0).
Von VBA hab' ich nicht so viel Dunst, um das Problem zu lösen.
(Und zu faul, um mit Strichlisten manuell zu arbeiten, bin ich auch.;-)))
Oder habt Ihr eine ganz andere Idee?
(Im Forumsarchiv hab ich schon "gewühlt" - nix passendes dabei!)
Gruß!
Klaus
Anzeige

7
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Klick auf Zellen zählen
12.10.2004 14:39:53
Udo
Das sollte ganz einfach mit ZÄHLENWENN() zu lösen sein.
Udo
AW: Klick auf Zellen zählen
12.10.2004 14:40:28
Jan
Hi Klaus,

Stell mal ein Beispiel des Fragebogens ins Forum. Wir wollen nicht gern im
Trüben fischen.

Jan
AW: Klick auf Zellen zählen
12.10.2004 15:38:34
Klaus
Ok, ist 'n bischen schwer vorzustellen, was ich will.
Deshalb hier die Datei mit einem kurzen Beispiel.

Die Datei https://www.herber.de/bbs/user/11995.xls wurde aus Datenschutzgründen gelöscht

Ich will also beim Zählen der Kreuzchen nicht jedesmal eine 1 eintippen, sondern ganz einfach nur auf die entsprechende Stelle der Erfassungstabelle Klicken und Excel zählt dann für mich.
Jetzt klar?
Danke!
Klaus
Anzeige
AW: Klick auf Zellen zählen
12.10.2004 18:03:28
Ingolf
Hallo Klaus,
hab dir mal was zusammengebastelt. Geklickte Zellen werden mit "X" markiert. Wenn der Fragebogen komplett und korrekt eingegeben ist, auf den Button "Addieren" ganz unten klicken, dann verschwinden die "X" wieder und auf der rechten Seite sind die entsprechenden Zellen um 1 erhöht worden.
https://www.herber.de/bbs/user/12002.xls
Gruß Ingolf
Anzeige
AW: Klick auf Zellen zählen
12.10.2004 19:06:55
Klaus
Hallo, Ingolf!
Hört sich gut an, sieht gut aus - aber: funzt nicht.
Beim Start des Makros kommt die Meldung "Variablen nicht definiert".
Denke, dass sp und ze definiert werden müssen als ganzzahlig.
Aber wie, das ist meine Schwachstelle. Kannst Du noch mal helfen?
Danke!
Klaus
Anzeige
AW: Klick auf Zellen zählen
12.10.2004 19:12:19
Reinhard
Hi Klaus,

Private Sub cmdOK_Click()
dim sp as integer
dim ze as integer
Range("C6").Select
For sp = 0 To 5
For ze = 0 To 133
If ActiveCell.Offset(ze, sp) = "X" Then
ActiveCell.Offset(ze, sp + 9) = ActiveCell.Offset(ze, sp + 9) + 1
End If
Next ze
Next sp
Range("C6:H139").ClearContents
End Sub

Anzeige
AW: Klick auf Zellen zählen
12.10.2004 19:21:30
Klaus
Danke Ingolf, Danke Reinhard!!!
Es funzt! ... und macht die ganze Auswerterei einfacher.
Denke, dass die Lösung auch anderen weiterhelfen kann.
(So geht Ihr in die Geschichte, sprich in das Archiv ein ;-)))
Nochmal vielen Dank!
Klaus
;
Anzeige

Infobox / Tutorial

Klick auf Zellen zählen in Excel


Schritt-für-Schritt-Anleitung

Um einen Mausklick-Zähler in Excel zu erstellen, folge diesen Schritten:

  1. Erstelle die Erfassungstabelle: Lege eine Tabelle an, in der du die Kreuzchen für deine Fragen einträgst.

  2. Erstelle die Zähltabelle: Daneben sollte eine zweite Tabelle liegen, die die Zählung der Kreuzchen anzeigt.

  3. Öffne den VBA-Editor: Drücke ALT + F11, um den VBA-Editor zu öffnen.

  4. Füge ein Modul hinzu: Klicke mit der rechten Maustaste auf VBAProject (dein Arbeitsblatt) und wähle Einfügen > Modul.

  5. Gib den Code ein: Kopiere den folgenden Code in das Modul:

    Private Sub Worksheet_SelectionChange(ByVal Target As Range)
       If Not Intersect(Target, Range("C6:H139")) Is Nothing Then
           If Target.Value = "X" Then
               Target.Offset(0, 9).Value = Target.Offset(0, 9).Value + 1
           End If
       End If
    End Sub
  6. Schließe den VBA-Editor: Speichere deine Änderungen und schließe den Editor.

  7. Teste den Zähler: Klicke in deiner Erfassungstabelle auf eine Zelle, um zu sehen, wie die Zählung automatisch in der Zähltabelle aktualisiert wird.


Häufige Fehler und Lösungen

  • Fehler: "Variablen nicht definiert"

    • Lösung: Achte darauf, dass alle Variablen, wie sp und ze, im Code als Integer definiert sind.
  • Fehler: Zähler erhöht sich nicht

    • Lösung: Überprüfe, ob der Code korrekt in das Modul eingefügt wurde und dass die Zellen in der richtigen Range liegen.

Alternative Methoden

Falls du keine VBA-Lösungen nutzen möchtest, kannst du auch die Excel-Funktion ZÄHLENWENN() verwenden. Diese Methode erfordert allerdings, dass du die Kreuzchen manuell eingibst, was nicht so effizient ist wie der Mausklick-Zähler.

Beispiel für die Verwendung von ZÄHLENWENN():

=ZÄHLENWENN(C6:H139, "X")

Praktische Beispiele

Hier ist ein einfaches Beispiel, um zu veranschaulichen, wie du eine Excel-Strichliste mit einem Mausklick-Zähler umsetzen kannst:

  1. Erfassungstabelle: Erstelle eine Tabelle in den Zellen C6 bis H139.
  2. Zähltabelle: Verwende die Zellen J6 bis J11 für die Zählung.
  3. Klicke auf eine Zelle in der Erfassungstabelle, um das Zählen zu testen.

Tipps für Profis

  • Nutze Formulare: Ein Formular kann die Benutzerfreundlichkeit erhöhen, indem du eine Schaltfläche hinzufügst, die das Zählen und Zurücksetzen der Zähler erleichtert.
  • Daten validieren: Verwende Datenvalidierung, um sicherzustellen, dass nur die gewünschten Werte eingegeben werden.

FAQ: Häufige Fragen

1. Kann ich das Zählen in mehreren Blättern durchführen?
Ja, du kannst den gleichen VBA-Code in mehreren Arbeitsblättern verwenden, indem du ihn in jedem Blatt-Modul anpasst.

2. Funktioniert das auch in Excel Online?
Leider unterstützt Excel Online keine VBA-Makros, daher musst du diese Funktionalität in der Desktop-Version nutzen.

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Entdecke mehr
Finde genau, was du suchst

Die erweiterte Suchfunktion hilft dir, gezielt die besten Antworten zu finden

Suche nach den besten Antworten
Unsere beliebtesten Threads

Entdecke unsere meistgeklickten Beiträge in der Google Suche

Top 100 Threads jetzt ansehen
Anzeige