Supportnet / Forum / Tabellenkalkulation
+1 in Excel
Frage
Hallo ich will in Excel eine Erfassung machen und zwar so, dass ich auf eine Schaltfläche klicken kann und dann jeweils in einem bestimmten Feld ein wert von 1 dazugezählt wird... wie muss ich das anstellen?
besten Dank
Thom@s
Antwort 1 von coros
Hi Thomas,
hier ein Lösungsvorschlag von mir. Bei diesem Vorschlag handelt es sich um eine VBA Lösung.
Es wird der Wert aus Zelle A1 ausgelesen und um die Zahl 1 erhöht. Füge den Code in ein Standardmodul ein und starte das Makro über eine Schaltfläche.
Wenn es sich um den Wert in einer anderen Zelle als A1 handelt, musst Du in der Zeile
Wert = Range("A1")
und
Range("A1") = Wert
die Zellbezeichnung, also A1, gegen die Zelle, um die es sich handelt, ändern.
Da ich nicht weiß, ob Du Dich mit VBA (Visual Basic) auskennst, kommt hier eine kurze Anweisung, wie Du den Code in Deine Tabelle bekommst.
1. Markiere die Anweisung aus diesem Beitrag und Kopiere (Strg c) diesen.
2. Klicke in Deiner Exceldatei in der Menüleiste nacheinander auf Extras => Makro => Visual Basic Editor oder drücke die Tastenkombination Alt F11
3. In dem neu geöffneten Fenster suche auf der linken Seite nach dem Eintrag VBA Projekt(Hier der Name Deiner Tabelle) und klicke doppelt auf diesen Eintrag
4. Klicke danach nacheinander in der Menüleiste auf Einfügen => Modul.
5. Füge nun die vorher kopierte Anweisung in das rechte leere Fenster ein.
Damit das Makro aufgerufen werden kann, füge in Dein Tabellenblatt oder in eine vorhandene oder neue Symbolleiste eine Schaltfläche ein. Klicke mit der rechten Maustaste auf die neu eingefügte Schaltfläche und wähle in dem Menü den Eintrag "Makro zuweisen…" aus. In dem dann geöffneten Fenster suchst Du den Namen des Makros (in Deinem Fall Wert_um_1_erhöhen) und klickst diesen doppelt an. Nach Betätigen der Schließen-Taste, kann das Makro über die neue Schaltfläche gestartet werden.
Da ich nicht weiß, ob Du weißt, wie man eine Befehlsschaltfläche in ein Tabellenblatt einfügst, kommt auch hierzu eine kurze Anweisung.
1. Gehe in der Menüleiste auf Ansicht => Symbolleiste => Steuerelement-Toolbox
2. Klicke auf die 6.Schaltfläche von links (Schaltflächenkommentar: Befehlsschaltfläche)
3. Positioniere die Schaltfläche in Deinem Tabellenblatt und passe gegebenenfalls die Größe an.
4. Klicke in der Symbolleiste auf die 3.Schaltfläche von links (Schaltflächenkommentar: Code anzeigen).
5. In das geöffnete Fenster schreibst Du zwischen die Texte “Private Sub CommandButton1_Click()“ und “End Sub“ in die Leerzeile Call Makroname oder nur der Makroname (in Deinem Fall Wert_um_1_erhöhen).
6. Klicke in der Symbolleiste auf die erste Schaltfläche von links um den Entwurfmodus zu beenden (Schaltflächenkommentar: Entwurfmodus beenden).
Wenn Du alles richtig gemacht hast, sollte das Makro, nachdem Du die Schaltfläche betätigt hast, abgearbeitet werden.
Du solltest zum Abschluss noch die Sicherheitseinstellung, die beim Öffnen der Datei abgefragt wird, kontrollieren. Klicke dazu nacheinander in der Menüleiste wieder auf Extras => Makro und dann auf Sicherheit.... Gehe, falls nicht schon angezeigt, auf die Registerkarte Sicherheitsstufe und schaue dort nach, ob die Einstellung Mittel aktiviert ist. Wenn nicht, aktiviere diese Einstellung, da sonst der Code nicht ausgeführt werden kann. Beim nächsten Öffnen Deiner Datei kommt eine Abfrage, ob Makros aktiviert oder deaktiviert werden sollen. Klicke auf aktivieren und der Code wird ausgeführt.
Ich hoffe, Du kommst klar. Wenn nicht, melde Dich noch mal.
MfG,
coros
Da hier der einzige Lohn für die Helfer eine Rückmeldung ist, wäre es nett, wenn Du ein
Feedback abgeben könntest, ob der Lösungsvorschlag Dein Problem gelöst hat.
hier ein Lösungsvorschlag von mir. Bei diesem Vorschlag handelt es sich um eine VBA Lösung.
Sub Wert_um_1_erhöhen()
Wert = Range("A1") 'Wert aus Zelle A1 wird ausgelesen
Wert = Wert + 1 'Zu dem Wert aus Zelle A1 wird
'eine 1 dazuaddiert
Range("A1") = Wert 'Der errechnete Wert wird zurück
'an Zelle A1 gegeben
End Sub
Es wird der Wert aus Zelle A1 ausgelesen und um die Zahl 1 erhöht. Füge den Code in ein Standardmodul ein und starte das Makro über eine Schaltfläche.
Wenn es sich um den Wert in einer anderen Zelle als A1 handelt, musst Du in der Zeile
Wert = Range("A1")
und
Range("A1") = Wert
die Zellbezeichnung, also A1, gegen die Zelle, um die es sich handelt, ändern.
Da ich nicht weiß, ob Du Dich mit VBA (Visual Basic) auskennst, kommt hier eine kurze Anweisung, wie Du den Code in Deine Tabelle bekommst.
1. Markiere die Anweisung aus diesem Beitrag und Kopiere (Strg c) diesen.
2. Klicke in Deiner Exceldatei in der Menüleiste nacheinander auf Extras => Makro => Visual Basic Editor oder drücke die Tastenkombination Alt F11
3. In dem neu geöffneten Fenster suche auf der linken Seite nach dem Eintrag VBA Projekt(Hier der Name Deiner Tabelle) und klicke doppelt auf diesen Eintrag
4. Klicke danach nacheinander in der Menüleiste auf Einfügen => Modul.
5. Füge nun die vorher kopierte Anweisung in das rechte leere Fenster ein.
Damit das Makro aufgerufen werden kann, füge in Dein Tabellenblatt oder in eine vorhandene oder neue Symbolleiste eine Schaltfläche ein. Klicke mit der rechten Maustaste auf die neu eingefügte Schaltfläche und wähle in dem Menü den Eintrag "Makro zuweisen…" aus. In dem dann geöffneten Fenster suchst Du den Namen des Makros (in Deinem Fall Wert_um_1_erhöhen) und klickst diesen doppelt an. Nach Betätigen der Schließen-Taste, kann das Makro über die neue Schaltfläche gestartet werden.
Da ich nicht weiß, ob Du weißt, wie man eine Befehlsschaltfläche in ein Tabellenblatt einfügst, kommt auch hierzu eine kurze Anweisung.
1. Gehe in der Menüleiste auf Ansicht => Symbolleiste => Steuerelement-Toolbox
2. Klicke auf die 6.Schaltfläche von links (Schaltflächenkommentar: Befehlsschaltfläche)
3. Positioniere die Schaltfläche in Deinem Tabellenblatt und passe gegebenenfalls die Größe an.
4. Klicke in der Symbolleiste auf die 3.Schaltfläche von links (Schaltflächenkommentar: Code anzeigen).
5. In das geöffnete Fenster schreibst Du zwischen die Texte “Private Sub CommandButton1_Click()“ und “End Sub“ in die Leerzeile Call Makroname oder nur der Makroname (in Deinem Fall Wert_um_1_erhöhen).
6. Klicke in der Symbolleiste auf die erste Schaltfläche von links um den Entwurfmodus zu beenden (Schaltflächenkommentar: Entwurfmodus beenden).
Wenn Du alles richtig gemacht hast, sollte das Makro, nachdem Du die Schaltfläche betätigt hast, abgearbeitet werden.
Du solltest zum Abschluss noch die Sicherheitseinstellung, die beim Öffnen der Datei abgefragt wird, kontrollieren. Klicke dazu nacheinander in der Menüleiste wieder auf Extras => Makro und dann auf Sicherheit.... Gehe, falls nicht schon angezeigt, auf die Registerkarte Sicherheitsstufe und schaue dort nach, ob die Einstellung Mittel aktiviert ist. Wenn nicht, aktiviere diese Einstellung, da sonst der Code nicht ausgeführt werden kann. Beim nächsten Öffnen Deiner Datei kommt eine Abfrage, ob Makros aktiviert oder deaktiviert werden sollen. Klicke auf aktivieren und der Code wird ausgeführt.
Ich hoffe, Du kommst klar. Wenn nicht, melde Dich noch mal.
MfG,
coros
Da hier der einzige Lohn für die Helfer eine Rückmeldung ist, wäre es nett, wenn Du ein
Feedback abgeben könntest, ob der Lösungsvorschlag Dein Problem gelöst hat.
Antwort 2 von Thom@s
HAllo coros
habe gerade Deinen Vorschlag gelesen und ausprobiert!
Super!
besten Dank und Gruss
Thom@s
habe gerade Deinen Vorschlag gelesen und ausprobiert!
Super!
besten Dank und Gruss
Thom@s