Zellinhalt bei Mausklick um 1 erhöhen

Forumthread: Zellinhalt bei Mausklick um 1 erhöhen

08.01.2005 12:45:31

Peter

Hallo ihr Excelspezialisten,
ich habe ein Problem mit dem ich als VBA-Lusche nicht zurechtkomme.
Ich muß eine Statistik aus Formularen eingeben und möchte, daß bei einem Mausklick auf eine Zelle der Inhalt um 1 erhöht wird (also die Klicks zählen). Es gibt da sicher eine relativ einfache Möglichkeit - nur weiß ich sie nicht.
Für jede Hilfe dazu bin ich sehr dankbar!!
Peter

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

AW: Zellinhalt bei Mausklick um 1 erhöhen

08.01.2005 13:28:17

Cardexperte

Hello Peter, dies Makro kommt in die Tabelle, wenn nicht alle Zellen sollt man mit
If Not Intersect(Target, Range("e:e")) Is Nothing das auf Spaltenm beschränken!


Private Sub Worksheet_SelectionChange(ByVal Target As Range)
ActiveCell.Value = ActiveCell.Value + 1
End Sub

aber Achtung immer wenn du eine Zelle anklickst wird der Wert um 1 erhöht
m.M. wäre besser das mit doppelklicK zu machen, dh.


Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
ActiveCell.Value = ActiveCell.Value + 1
End Sub

Gruss WS

AW: Zellinhalt bei Mausklick um 1 erhöhen

09.01.2005 02:50:02

Peter

Hallo Cardexperte,
dank dir recht schön für die VBA-Zeilen!! Ich hab den Code in mein Worksheet einfügen wollen (im Worksheet - Makro - Create), hab ihm einen Namen gegeben (Worksheet_BeforeDoubleClick) und habe den "ByVal Target..."-Teil in die Klammer eingefügt. Das hat die VBA-Umgebung noch ohne Murren hingenommen - Jaaa! Nur leider war dann das Makro verschwunden! Wie krieg ich denn das gebacken?
Du siehst, ich hab wirklich herzlich wenig Ahnung von Excel-Makros, ich brauch sie so selten. Kannst du mir da noch einmal raten?
Danke im voraus!!!
Peter

AW: Zellinhalt bei Mausklick um 1 erhöhen

09.01.2005 09:30:05

Cardexperte

Hello Peter,
wieso verschwunden? Es muss da sein, also hier noch mal ganz ausführlich:
1. du markierst die 3 Zeilen (die mit Doppelklick) und fügst die in die Zwischenablage von Windows (Strg+c) ein
2. du gehst in Excel rein,dann Alt+F11-Taste (es kommt der VBA-Editor)
3. auf der linken Seite steht dann VBA-Projekt, hier gibt es DieseArbeitsmappe, dann die ganzen Mappen die in deiner Exceldatei drin sind (in der Form Name (ist der Name des Reiters unten in Excel), dann kommt (Tabelle1) usw.
4. du wählst die Mappe (Doppelklick!!), wo die Zellen bei Doppelklick um 1 erhöht werden sollen aus
5. in das Fenster fügst du aus der Zwischenablage den Code ein
das wars!!
Wenn beim nächsten Aufruf dieses Makro nicht sichtbar ist, dann ist das normal, denn bei (Allgemein) kommt nur immer der VBA Code und nur dieser wird standardmäßig angezeigt, wenn du meinen Code wieder sehen willst, dann dort wo (Allgemein) steht auf Workbook umschalten und der Code steht dann drin!
noch 2 kleine Hinweise:
Fehlermeldungen habe ich nicht ! abgefangen, d.h. wenn du auf eine Zelle klickst, wo ein Text drinsteht, dann kommt eine Fehlermeldung (genauso wie in Excel), da zu einem Text keine Zahl dazu addiert werden kann,
und dies Makro bezieht sich auf alle Zellen in dem Blatt, besser wäre es, dass das Makro nur bezogen wird auf die Zellen, wo um 1 erhöht werden soll (wenn Datenstruktur immer gleich), das wird mit if not intersect usw. gemacht.
Gruss WS

AW: Zellinhalt bei Mausklick um 1 erhöhen

09.01.2005 12:31:43

Peter

Hallo Cardexperte,
Halleluja!!! Wenn man's den Unkundigen nur langsam genug erklärt, schaffen sie's auch!! Und so ward auch mir, dank deiner Schritt-für-Schritt-Anleitung, Erfolg beschieden!!! :-))
Danke recht herzlich dafür!!! Hab ich wieder was gelernt, nämlich daß es gar nix bringt wenn man ein Makro ins falsche Arbeitsblatt kopiert!!! ;-)
Schöne Zeit und danke nochmal!
Peter

Infobox / Tutorial

Schritt-für-Schritt-Anleitung

Um den Zellinhalt bei einem Mausklick um 1 zu erhöhen, kannst Du ein einfaches VBA-Makro verwenden. Folge diesen Schritten:

Öffne den VBA-Editor: Drücke Alt + F11, um den VBA-Editor zu öffnen.
Wähle das passende Arbeitsblatt aus: Finde auf der linken Seite das VBA-Projekt, das Deine Excel-Datei repräsentiert. Doppelklicke auf das Arbeitsblatt (z.B. Tabelle1), wo Du das Makro anwenden möchtest.

Füge den folgenden Code ein:

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
    If Not Intersect(Target, Range("A1:A10")) Is Nothing Then
        ActiveCell.Value = ActiveCell.Value + 1
        Cancel = True ' Verhindert das Editieren der Zelle
    End If
End Sub

In diesem Beispiel wird der Zellinhalt nur in den Zellen A1 bis A10 erhöht. Du kannst den Bereich nach Bedarf anpassen.

Speichere Deine Änderungen: Schließe den VBA-Editor und speichere die Excel-Datei als Makro-fähige Arbeitsmappe (*.xlsm).

Häufige Fehler und Lösungen

Makro nicht sichtbar: Wenn Dein Makro nach dem Speichern nicht mehr angezeigt wird, stelle sicher, dass Du im VBA-Editor den Code unter der richtigen Arbeitsmappe eingefügt hast. Wechsel von "Allgemein" zu "Workbook", um Deinen Code zu sehen.
Fehlermeldungen: Wenn Du auf eine Zelle klickst, die Text enthält, erhältst Du eine Fehlermeldung. Um dies zu vermeiden, kannst Du eine Fehlerbehandlung hinzufügen oder die Eingabebereiche auf Zahlen beschränken.

Alternative Methoden

Eine alternative Methode zur Erhöhung des Zellinhalts ist die Verwendung eines Buttons:

Füge einen Button ein: Gehe zu Entwicklertools > Einfügen und wähle einen Button aus.

Schreibe ein Makro: Weise dem Button das folgende Makro zu:

Sub IncrementCell()
    ActiveCell.Value = ActiveCell.Value + 1
End Sub

Klicke auf den Button, um den Wert in der aktiven Zelle um 1 zu erhöhen.

Praktische Beispiele

Zählfunktion für Umfragen: Wenn Du eine Umfrage erstellst, kannst Du die Klicks auf bestimmte Antworten in den Zellen zählen.
Statistik-Daten: Verwende diese Methode, um die Anzahl von Besuchen oder Ereignissen in einem bestimmten Zeitraum zu verfolgen.

Tipps für Profis

Bereichsanpassung: Passe den Zellbereich im Code an, um nur spezifische Zellen zu zählen. Dies verbessert die Benutzerfreundlichkeit und reduziert Fehler.
Verwendung von Variablen: Du kannst auch Variablen verwenden, um den aktuellen Wert zu speichern und weiterzuverarbeiten, bevor Du ihn in die Zelle schreibst.

FAQ: Häufige Fragen

1. Wie kann ich das Makro nur auf bestimmte Zellen anwenden? Du kannst den Bereich im Code anpassen. Zum Beispiel Range("A1:A10") beschränkt das Makro auf diese Zellen.

2. Was ist, wenn ich das Makro nicht ausführen kann? Stelle sicher, dass Makros in Deiner Excel-Umgebung aktiviert sind. Überprüfe die Sicherheitseinstellungen unter Datei > Optionen > Trust Center.

3. Kann ich die Methode auch in Excel Online verwenden? Leider sind VBA-Makros nicht in Excel Online verfügbar. Diese Methode funktioniert nur in der Desktop-Version von Excel.

Beliebteste Forumthreads (12 Monate)

Zellinhalt bei Mausklick um 1 erhöhen

Forumthread: Zellinhalt bei Mausklick um 1 erhöhen

4 Beiträge zum Forumthread Beiträge zu diesem Forumthread

VBA Beispiele zu diesem und ähnlichen Themen

Infobox / Tutorial

Zellinhalt bei Mausklick um 1 erhöhen

Schritt-für-Schritt-Anleitung

Häufige Fehler und Lösungen

Alternative Methoden

Praktische Beispiele

Tipps für Profis

FAQ: Häufige Fragen

Beliebteste Forumthreads (12 Monate)

4
Beiträge zum Forumthread

Beiträge zu diesem Forumthread