Anzeige
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender

Forumthread: Zähler erstellen

Zähler erstellen
03.02.2005 14:39:56
Bambi
Hi Boardies,
Folgendes Problem. Ich möchte in einem Excel Arbeitsblatt einen Zähler erstellen (bsw. in Zelle B1), der wenn ich in Zelle C1 die Taste y drücke um eins nach obengesetzt wird, resp. wenn ich die Taste x drücke, eins nach unten gesetzt wird! Das ganze sollte wie folgt aussehen.
Spalte A Name/Vornamen
Spalte B Zähler
Spalte C Taste für Tastendruck (x od. y-Taste)
Vielen Dank für eure Hilfe!
Bambi
Anzeige

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

Betreff
Datum
Anwender
Anzeige
AW: Zähler erstellen
03.02.2005 14:45:16
GeorgK
Hallo,
leg zwei Schaltflächen an. Vielleicht so

Private Sub CommandButton1_Click()
Range("B1").Value = Range("B1").Value + 1
End Sub


Private Sub CommandButton2_Click()
Range("B1").Value = Range("B1").Value - 1
End Sub

Grüße
GeorgK
Anzeige
AW: Zähler erstellen
Bambi
Hi GeorgK,
vielen Dank für deine Lösung klappt eigentlich wunderbar. Gleichwohl nochmals, wäre es möglich dies über Tasten zu gewährleisten? Falls ja, könntest du mir ebenfalls ein Codebeispiel liefern? Vielen Dank nochmals!
Gruss Bambi
AW: Zähler erstellen
GeorgK
Hallo,
hier mal ein Ansatz,
Zaehler erfolgt in B1, wenn in A1 X oder y.
VBA, Tabellenblatt:

Private Sub Worksheet_Change(ByVal Target As Excel.Range)
If Cells(Target.Row, Target.Column) = "x" Then Call Machwas
If Cells(Target.Row, Target.Column) = "y" Then Call Machwas2
End Sub

In ein Modul:
Sub Machwas()
Range("B1").Value = Range("B1").Value + 1
End Sub
Sub Machwas2()
Range("B1").Value = Range("B1").Value - 1
End Sub
Grüße
GeorgK
Anzeige
AW: Zähler erstellen
Galenzo
Hallo
noch bequemer finde ich das "Drehfeld" aus dem Menü "Formular"
Blende dir mal diese Menüleiste mit "Ansicht/Symbolleisten/Formular" ein.
Dort findest du "Drehfeld" (Icon mit Pfeil hoch/Pfeil runter drauf)
Klickst du drauf und klickst dann auf's Tabellenblatt.
Nun hast du ein "Drehfeld" erstellt.
Rechtsklick darauf bringt dich zum Menü - Steuerelement formatieren.
Dort kannst du noch folgendes einstellen: Min-Wert, Max-Wert, Schrittweite - und ganz wichtig: die zellverknüpfung. Dort wählst du deine Zelle B1 aus, die ja verändert werden soll.
Ich hoffe, du kannst das verwenden.
Viel Erfolg!
Anzeige
;
Anzeige
Anzeige

Infobox / Tutorial

Zähler in Excel erstellen


Schritt-für-Schritt-Anleitung

Um einen Zähler in Excel zu erstellen, der auf Tasteneingaben reagiert, kannst Du die folgende VBA-Lösung verwenden. Hier sind die Schritte:

  1. Öffne Excel und gehe zu dem Arbeitsblatt, in dem Du den Zähler erstellen möchtest.
  2. Aktiviere die Entwicklertools:
    • Gehe zu "Datei" > "Optionen" > "Menüband anpassen".
    • Aktiviere das Kontrollkästchen für "Entwicklertools".
  3. Öffne den VBA-Editor:
    • Klicke auf "Entwicklertools" und dann auf "Visual Basic".
  4. Füge den folgenden Code in das entsprechende Arbeitsblatt ein:
Private Sub Worksheet_Change(ByVal Target As Excel.Range)
    If Cells(Target.Row, Target.Column) = "x" Then Call Machwas
    If Cells(Target.Row, Target.Column) = "y" Then Call Machwas2
End Sub

Sub Machwas()
    Range("B1").Value = Range("B1").Value + 1
End Sub

Sub Machwas2()
    Range("B1").Value = Range("B1").Value - 1
End Sub
  1. Schließe den VBA-Editor und teste die Eingaben in Zelle A1, indem Du "x" oder "y" eingibst.

Häufige Fehler und Lösungen

  • Fehler: Der Zähler reagiert nicht auf die Eingaben.

    • Lösung: Stelle sicher, dass der VBA-Code im richtigen Arbeitsblatt eingefügt wurde und dass die Makros aktiviert sind.
  • Fehler: Der Zähler wird nicht korrekt aktualisiert.

    • Lösung: Überprüfe, ob die Zelle B1 korrekt als Zähler festgelegt ist und ob die Eingabe in Zelle A1 tatsächlich "x" oder "y" ist.

Alternative Methoden

Eine einfachere Möglichkeit, einen Zähler in Excel einzubauen, wäre die Verwendung von Schaltflächen. Hier ist eine kurze Anleitung:

  1. Füge zwei Schaltflächen hinzu:
    • Gehe zu "Entwicklertools" > "Einfügen" und wähle "Schaltfläche (Formularsteuerelement)".
  2. Füge den folgenden VBA-Code hinzu:
Private Sub CommandButton1_Click()
    Range("B1").Value = Range("B1").Value + 1
End Sub

Private Sub CommandButton2_Click()
    Range("B1").Value = Range("B1").Value - 1
End Sub
  1. Verlinke die Schaltflächen mit den entsprechenden Makros.

Praktische Beispiele

  • Zähler für Umfragen: Verwende den Zähler in B1, um die Anzahl der "Ja" und "Nein" Antworten zu zählen.
  • Zähler für Aufgaben: Zähle, wie viele Aufgaben Du bereits erledigt hast, indem Du die entsprechenden Tasten drückst.

Tipps für Profis

  • Nutze Drehfelder aus dem Menü „Formular“, um den Zähler visuell ansprechender zu gestalten. Diese lassen sich einfach in das Arbeitsblatt einfügen und können direkt mit der Zelle B1 verknüpft werden.
  • Dokumentiere die Excel Historie, um Änderungen und Anpassungen am Zähler nachverfolgen zu können.

FAQ: Häufige Fragen

1. Wie kann ich den Zähler auf eine andere Zelle anwenden?
Ändere einfach die Referenz Range("B1") im VBA-Code auf die gewünschte Zelle, z.B. Range("C1").

2. Funktioniert dieser Zähler in allen Excel-Versionen?
Ja, dieser VBA-Code funktioniert in den meisten modernen Excel-Versionen, die Makros unterstützen. Achte darauf, dass die Entwicklertools aktiviert sind.

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