+1 hochzählen

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

AW: +1 hochzählen

05.01.2007 00:28:11

Luc:-?

AW: +1 hochzählen

05.01.2007 07:08:26

Erich

AW: +1 hochzählen

07.01.2007 18:37:11

Uwe

AW: +1 hochzählen

07.01.2007 22:34:55

Erich

AW: +1 hochzählen

08.01.2007 01:05:09

Uwe

Hallo Uwe,
wenn du die Musterdatei nie speicherst, wdn auch die Änderungen an der Zelle nie wirksam und du hast stets den gleichen Ausgangszustand. Folglich müsste ein solcher Zähler unabhängig von der Musterdatei existieren. Mit VBA ginge das für alle Open-Vorgänge der Musterdatei während einer Sitzung mit einer als Static deklarierten Variablen einer Prozedur. Wenn das nicht reicht, schlage ich entweder automatische Speicherung der Musterdatei oder aber Folgendes vor: Ein AddIn mit analoger Ereignisprozedur anlegen, die in einer Zelle auf dem Tabellenblatt des AddIns die lfdNr erzeugt und das AddIn anschließend automatisch speichert. Deine Ereignisprozedur in der Musterdatei liest diese Zelle aus und trägt die Zahl ein. Wenn du das AddIn mit dem AddIn-Manager mit Excel verbindest, wird es bei jedem Excel-Start vor allen anderen Dateien gestartet. Das habe ich allerdings noch nie ausprobiert! Käme also auf einen Versuch an, dessen Ergebnis du hier gern mitteilen kannst. ;-)
Gutes Neues dito!
Luc :-?

Hallo Uwe,
Luc hat dir ja schon beschrieben, dass das Hochzählen nur funktioniert, wenn die Zahl irgendwo gespeichert wird.
Dafür gibt es etliche Möglichkeiten, z. B. Speicherung in einer Textdatei oder in der Registry.
Wenn die Speicherung der Musterdatei nicht wirklich ausgeschlossen ist, geht es einfacher:
Du kannst die Mappe im Workbook_Open automatisch speichern lassen.
Ich vermute, das Speichern (und das Hochzählen) soll nur für die Musterdatei selbst passieren,
nicht aber für die Mappen, die du durch SpeichernUnter daraus herstellst.
Das sähe dann so aus (statt Musterdatei.xls musst du noch den Namen deiner Musterdatei eintragen):

Private Sub Workbook_Open()
If Me.Name = "Musterdatei.xls" Then       ' Name deiner Mustermappe
Application.AskToUpdateLinks = False
With Worksheets("Eingabe").Range("A170")
.Value = .Value + 1
End With
ThisWorkbook.Save
End If
End Sub

Rückmeldung wäre nett! - Erich aus Kamp-Lintfort wünscht allen einen guten Start ins neue Jahr!

Private Sub Workbook_Open() If Me.Name = "Musterdatei.xls" Then ' Name deiner Mustermappe Application.AskToUpdateLinks = False With Worksheets("Eingabe").Range("A170") .Value = .Value + 1 End With ThisWorkbook.Save End If End Sub

Beliebteste Forumthreads (12 Monate)

5 Beiträge zum Forumthread Beiträge zu diesem Forumthread

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

5
Beiträge zum Forumthread

Beiträge zu diesem Forumthread