Wie kann eine Zahl beim Öffnen der Arbeitsmappe automatisch erhöht werden?
Wenn Sie eine Zelle mit einer Zahl bei jedem Öffnen der Arbeitsmappe automatisch um 1 erhöhen möchten, können Sie dies natürlich manuell erledigen – doch gibt es eine elegantere Lösung, um beim Öffnen des Excel-Dokuments die Zahl automatisch um 1 zu erhöhen?
Erhöhen Sie eine Zahl beim Öffnen der Arbeitsmappe automatisch mithilfe von VBA-Code
Erhöhen Sie eine Zahl beim Öffnen der Arbeitsmappe automatisch mithilfe von VBA-Code
Der folgende einfache VBA-Code hilft Ihnen, bei jedem Öffnen der Arbeitsmappe automatisch 1 zur Zahl in der entsprechenden Zelle hinzuzufügen. Gehen Sie dazu wie folgt vor:
1. Halten Sie die Tasten ALT + F11 gedrückt, um das Fenster Microsoft Visual Basic für Applikationen zu öffnen.
2. Doppelklicken Sie im Bereich Projekt – VBAProject auf DieseArbeitsmappe, um das Modul zu öffnen, und kopieren Sie den folgenden Code in das Modul (siehe Screenshot):
VBA-Code: Erhöhung einer Zahl beim Öffnen der Arbeitsmappe automatisch:
Private Sub Workbook_Open()
Worksheets("Sheet1").Range("A2") = Worksheets("Sheet1").Range("A2") + 1
End Sub
Hinweis: Im obigen Code beziehen sich Tabelle1 und A2 auf das Arbeitsblatt und die Zelle, die die automatisch zu erhöhende Zahl enthält. Passen Sie diese Angaben bitte entsprechend Ihren Anforderungen an.
3. Speichern Sie die Excel-Datei anschließend im Format Excel-Arbeitsmappe mit Makros aktiviert (siehe Screenshot):
Ab sofort wird beim Öffnen dieser speziellen Arbeitsmappe die Zahl in Zelle A2 auf Tabelle1 automatisch um 1 erhöht.
Hinweis: Dieser Code gilt ausschließlich für Zellen, die Zahlen enthalten.
Beste Office-Produktivitätstools
Verbessern Sie Ihre Excel-Kenntnisse mit Kutools für Excel und erleben Sie Effizienz wie nie zuvor.Kutools für Excel bietet über 300 erweiterte Funktionen zur Steigerung der Produktivität und Zeit sparen.Klicken Sie hier, um die Funktion zu erhalten, die Sie am dringendsten benötigen...
Office Tab bringt eine tabbasierte Oberfläche in Office und macht Ihre Arbeit viel einfacher
- Aktivieren Sie tabbasiertes Bearbeiten und Lesen in Word, Excel, PowerPoint, Publisher, Access, Visio und Project.
- Öffnen und erstellen Sie mehrere Dokumente in neuen Registerkarten desselben Fensters – statt jedes in einem separaten Fenster zu öffnen.
- Steigert Ihre Produktivität um 50 % und erspart Ihnen täglich Hunderte von Mausklicks!
Alle Kutools-Add-Ins – ein Installationsprogramm
Kutools for Office-Paket bündelt Add-Ins für Excel, Word, Outlook und PowerPoint sowie Office Tab Pro – ideal für Teams, die mit mehreren Office-Anwendungen arbeiten.
- Alles-in-einem-Paket— Add-Ins für Excel, Word, Outlook & PowerPoint sowie Office Tab Pro
- Ein Installationsprogramm, eine Lizenz— innerhalb weniger Minuten eingerichtet (MSI-fähig)
- Funktioniert besser zusammen— optimierte Produktivität über alle Office-Anwendungen hinweg
- 30-tägige Vollversion zum Testen— keine Registrierung, keine Kreditkarte erforderlich
- Bestes Preis-Leistungs-Verhältnis— sparen Sie im Vergleich zum Kauf einzelner Add-Ins