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

Automatisches hochzählen

Automatisches hochzählen
12.02.2004 16: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?

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

Betreff
Datum
Anwender
Anzeige
AW: Automatisches hochzählen
12.02.2004 16:56:52
andre
hallo sonja,
schaue mal nach workbook_open in diesearbeitsmappe.
gruss andre
AW: Automatisches hochzählen
12.02.2004 17: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 17: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

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige