Private Sub Workbook_Open()
Application.OnKey "{F9}", "DeinMakroName"
End Sub
Private Sub Workbook_BeforeClose(Cancel As Boolean)
Application.OnKey "{F9}"
End Sub
Um den Wert einer Zelle in Excel um 1 zu erhöhen, kannst Du ein einfaches Makro verwenden. Folge diesen Schritten:
Öffne Excel und drücke ALT + F11, um den VBA-Editor zu öffnen.
Füge ein neues Modul hinzu, indem Du im Menü "Einfügen" auf "Modul" klickst.
Kopiere und füge den folgenden Code in das Modul ein:
Private Sub Workbook_Open()
Application.OnKey "{F9}", "DeinMakroName"
End Sub
Private Sub Workbook_BeforeClose(Cancel As Boolean)
Application.OnKey "{F9}"
End Sub
Sub DeinMakroName()
Range(ActiveCell.Address).Value = Range(ActiveCell.Address).Value + 1
End SubSchließe den VBA-Editor und speichere Deine Datei als Makro-fähige Arbeitsmappe (*.xlsm).
Nun kannst Du die F9-Taste drücken, um den Wert der aktiven Zelle um 1 zu erhöhen.
Fehler: Die Funktionstaste F9 funktioniert nicht.
.xlsm gespeichert wurde.Fehler: Der Wert erhöht sich nicht in der gewünschten Zelle.
Wenn Du kein Makro verwenden möchtest, kannst Du auch eine Formel verwenden:
Gib in eine Zelle (z.B. A1) den Wert 1 ein.
In der nächsten Zelle (A2) kannst Du folgende Formel verwenden:
=A1 + 1Ziehe die Formel nach unten, um die Werte automatisch um 1 zu erhöhen.
Diese Methode ist nützlich, wenn Du die Werte nicht manuell erhöhen möchtest.
Beispiel 1: Du hast eine Liste von Stimmen für verschiedene Kandidaten in den Zellen A1 bis A10. Wenn Du den Wert in Zelle A3 um 1 erhöhen möchtest, wähle Zelle A3 aus und drücke F9.
Beispiel 2: Wenn Du eine Tabelle hast, in der Du die Anzahl der Verkäufe nachverfolgen möchtest, kannst Du das Makro verwenden, um die Zelle für den jeweiligen Artikel schnell zu erhöhen.
Du kannst das Makro anpassen, um den Zähler um einen bestimmten Wert zu erhöhen, indem Du die Zeile Range(ActiveCell.Address).Value = Range(ActiveCell.Address).Value + 1 änderst, z.B. + 5 für eine Erhöhung um 5.
Nutze den excel button +1, um eine Schaltfläche zu erstellen, die das Makro ausführt. Füge dazu eine Schaltfläche über "Entwicklertools" in Dein Arbeitsblatt ein und verknüpfe sie mit dem Makro.
1. Wie kann ich die Erhöhung auf eine bestimmte Spalte beschränken?
Du kannst die Zeile im Makro anpassen, um nur Werte in bestimmten Spalten zu erhöhen, z.B. If ActiveCell.Column = 1 Then ....
2. Funktioniert das Makro in Excel Online?
Nein, das Makro funktioniert nur in der Desktop-Version von Excel, da VBA in Excel Online nicht unterstützt wird.
Die erweiterte Suchfunktion hilft dir, gezielt die besten Antworten zu finden
Suche nach den besten AntwortenEntdecke unsere meistgeklickten Beiträge in der Google Suche
Top 100 Threads jetzt ansehen