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

Automatisches hochzählen

Forumthread: Automatisches hochzählen

Automatisches hochzählen
12.02.2004 17:53:02
Sonja Frei
Mit jedem Öffnen einer Excel-Datei soll die Zahl, die in einer Zelle steht, automatisch um 1 hochgezählt werden. Also: In Zelle A1 steht der Wert "20". Ich Öffne die Datei erneut und jetzt soll dort "21" stehen, und wenn die Datei ein drittes mal geöffnet wird, soll dort "22" stehen, u.s.w..
Hat jemand eine Idee?
Anzeige

3
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Automatisches hochzählen
12.02.2004 17:56:52
andre
hallo sonja,
schaue mal nach workbook_open in diesearbeitsmappe.
gruss andre
AW: Automatisches hochzählen
12.02.2004 18:00:57
Mac4
Hallo Sonja,
folgender Code gehört in "Diese Arbeitsmappe":

Private Sub Workbook_Open()
[A1].Value = [A1].Value + 1
End Sub

Marc
AW: Automatisches hochzählen
12.02.2004 18:04:40
xaverl
Public 

Sub hochzählen()
Dim zähler%
zähler = Sheets("tabelle1").Range("A2").Value
zähler = zähler + 1
Sheets("tabelle1").Range("A2").Value = zähler
End Sub

Stell das mit "call hochzählen" ins open_Ereignis, dann passt das
Anzeige
Jetzt das Excel-Portal bewerten: Deine Stimme zählt!
Anzeige
Anzeige
Live-Forum - Die aktuellen Beiträge
Datum
Titel
14.05.2026 13:31:09
Zeichen ausblenden
14.05.2026 09:50:42
Makro für MacOs
13.05.2026 19:14:18
Gleichheitszeichen
13.05.2026 14:24:56
VBA Projekt Passwort automatisch eingeben
13.05.2026 08:49:41
Reale Berechnung ohne Nachkommawerte
Keine passende Antwort im Forumarchiv gefunden?
Stelle deine Frage im Live-Forum