Anzeige
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Vorheriger Thread
Vorheriger Thread
Rückwärts Blättern
736to740
736to740
Aktuelles Verzeichnis
Verzeichnis Übersicht
Verzeichnis Übersicht
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Makro für "Zähler"

Forumthread: Makro für "Zähler"

Makro für "Zähler"
02.03.2006 09:48:15
Stefan
hallo an alle,
ich habe folgende frage/bitte:
gibt es ein makro, das auf tastendruck (am besten wäre die enter-taste) in einer zelle einfach den vorhandenen, x-beliebigen zahlenwert (nur ganze zahlen, keine komma-stellen erforderlich) um 1 erhöht, also einfach je tastendruck um eins "weiterzählt"...
vielen dank für eure auskunft/hilfe im voraus!
lg
stefan
Anzeige

6
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Makro für "Zähler"
02.03.2006 09:56:42
serge
Hi Stefan
versuch es mit einen Buton und

Sub plus()
With Range("a1")
.Value = .Value + 1
End With
End Sub

Gruss Serge
AW: Makro für "Zähler"
02.03.2006 10:02:03
Dr.
Oder Du nimmst einfach ein Drehfeld ("Spinbutton") aus der Steuerelement-Toolbox!
AW: Makro für "Zähler"
02.03.2006 10:13:25
Stefan
hallo dr. und serge,
vielen dank für eure raschen antworten! leider bin - ehrlich gestanden - zu blöd, um das mit den buttons auszuprobieren (hab´s g´rad versucht...;-)
gäbe es denn vielleicht die möglichkeit eines shortcuts oder eines einfachen tastendruckes (zB taste "+"), um einfach in der zelle, in der ich gerade bin +1 zu addieren. (und wenn ich zb plus 5 eintragen muss, dann einfach 5 tastendrucke hintereinander in der gleichen zelle)
der punkt ist, dass ich diese funktion für eine statistik-aufstellung im excel mit sehr vielen feldern brauchen würde - so wäre es, glaube ich, am einfachsten.
wäre euch sehr dankbar, wenn ihr mir evtl. so ein beispiel-file übermitteln könntet.
vielen dank im voraus!
lg
stefan
Anzeige
AW: Makro für "Zähler"
02.03.2006 17:33:29
Stefan
hallo leute,
herzlichen dank, ihr habt mir sehr geholfen!
beste grüße
stefan
AW: Makro für "Zähler"
02.03.2006 10:06:59
Harald
Hi Stefan,
Oder mach's per Doppelklick.
Der Code gehört ins Blattmodul und bezieht sich auf A1.

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
If Target.Address(0, 0) = "A1" Then Range("a1") = Range("a1").Value + 1
Cancel = True
End Sub

Gruss Harald
Anzeige
;
Anzeige

Infobox / Tutorial

Makro für einen Excel Zähler erstellen

Schritt-für-Schritt-Anleitung

  1. Öffne Excel und gehe zum entsprechenden Arbeitsblatt.

  2. Drücke ALT + F11, um den VBA-Editor zu öffnen.

  3. Füge ein neues Modul hinzu:

    • Klicke mit der rechten Maustaste auf "VBAProject (deineDatei.xlsx)".
    • Wähle "Einfügen" und dann "Modul".

  4. Füge den folgenden Code ein:

    Sub plus()
   With Range("A1")
       .Value = .Value + 1
   End With
End Sub

    Dieser Code erhöht den Wert in der Zelle A1 um 1, wenn das Makro ausgeführt wird.

  5. Speichere das Skript und schließe den VBA-Editor.

  6. Füge einen Button hinzu, um das Makro auszuführen:

    • Gehe zu "Entwicklertools" und wähle "Einfügen".
    • Wähle einen Button aus und ziehe ihn auf das Arbeitsblatt.
    • Weisen das Makro plus zu.

  7. Teste das Makro, indem du auf den Button klickst.

Häufige Fehler und Lösungen

  • Fehler: "Makro kann nicht gefunden werden"

    • Stelle sicher, dass das Makro korrekt gespeichert wurde und die Datei als "xlsm" gespeichert ist.

  • Fehler: Zelle bleibt unverändert

    • Überprüfe, ob die Zelle A1 tatsächlich einen Zahlenwert enthält. Das Makro funktioniert nur mit ganzen Zahlen.

Alternative Methoden

  • Doppelklick-Methode: Du kannst auch einen Doppelklick auf die Zelle A1 verwenden, um den Wert um 1 zu erhöhen. Füge dazu diesen Code ins Blattmodul ein:

    Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
   If Target.Address(0, 0) = "A1" Then
       Range("A1") = Range("A1").Value + 1
       Cancel = True
   End If
End Sub

  • Spinbutton verwenden: Ein Drehfeld (Spinbutton) aus der Steuerelement-Toolbox kann ebenfalls verwendet werden, um den Wert in einer Zelle zu erhöhen.

Praktische Beispiele

  1. Einfacher Zähler: Erstelle ein Makro, das den Wert in der Zelle A1 um 1 erhöht.

  2. Zähler für mehrere Zellen: Du kannst das Skript anpassen, um Werte in mehreren Zellen gleichzeitig zu erhöhen, indem du eine Schleife verwendest, um durch die Zellen zu iterieren.

    Sub plusMehrere()
   Dim Zelle As Range
   For Each Zelle In Range("A1:A10")
       Zelle.Value = Zelle.Value + 1
   Next Zelle
End Sub

Tipps für Profis

  • Verwende Excel-Shortcuts, um schneller zu arbeiten. Du kannst das Makro auch mit einer Tastenkombination verknüpfen.
  • Dokumentiere dein Makro: Schreibe Kommentare im Code, um später die Funktionsweise des Makros besser zu verstehen.
  • Teste dein Excel Skript gründlich, um sicherzustellen, dass es in verschiedenen Szenarien funktioniert.

FAQ: Häufige Fragen

1. Wie kann ich das Makro auf eine andere Zelle anwenden? Du kannst die Adresse der Zelle im Code ändern, zum Beispiel Range("B1") anstelle von Range("A1").

2. Kann ich mehrere Zähler in einem Arbeitsblatt erstellen? Ja, du kannst für jede Zelle ein eigenes Makro erstellen oder das bestehende Makro anpassen, um mehrere Zellen zu berücksichtigen.

Beliebteste Forumthreads (12 Monate)

Jetzt das Excel-Portal bewerten: Deine Stimme zählt!
Anzeige
Anzeige
Anzeige