Supportnet / Forum / Tabellenkalkulation

Excel 2000: Um die Aktualität eines Files im Netzwerk sicherzustellen, möchte ich eine automatische fortlaufende Revisionsnummer in einer Zelle generieren. Bei jeder Änderung soll die Nummer erhöht werden.

So als Idee hätte ich eine Funktion, die schaut ob ein Feld geändert wurde und dann eine bestimmten Befehl ausführt......dann noch als Feld die ganze Tabelle angeben schon müsste es funktionieren.

Soll nur ein Denkanstoss sein für Leute die mehr Ahnung davon haben als ich.

Gruss

DonOssi

Hallo,

das Ganze ist nur über VBA zu lösen. Es müßte über diesen Weg zu machen sein:

1. Überprüfung ob Änderungen vorgenommen wurden

2. wenn ja eine VBA-Routine zu erhöhung der Revisonsnummer

3. Datei schliessen.

Das Ganze müßte in Autoexit eingebunden werden, dadurch werden die vorgenannten Routinen bein Schliessen der Datei automatisch ausgeführt.

Leider reichen meine Kenntnisse in dem Bereich für eine entsprechende Routine nicht aus.

Gruß

Helmut

Hi QJack,

gestatte mir zum Anfang eine kleine Anmerkung. Ein Hallo am Anfang und ein Gruß am Ende würde Deinen Beitrag gleich viel netter aussehen lassen. Denn die Leute, an die Du Deine Frage richtest, sitzen zwar am PC, sind aber dennoch Menschen.

Das was Du möchtest, könnte man mit nachfolgendem VBA Code realisieren. Kopiere den Code in das VBA Projekt "DieseArbeitsmappe".

Private Sub Workbook_SheetChange(ByVal Sh As Object, ByVal Target As Range)
Application.EnableEvents = False
Sheets("Tabelle1").Range("A1") = Sheets("Tabelle1").Range("A1") + 1
Application.EnableEvents = True
End Sub

Bei obigen VBA Code wird in Blatt "Tabelle1" in Zelle A1 der Wert immer um die Zahl 1 erhöht, wenn in irgend einem Tabellenblatt der Datei eine Änderung vorgenommen wird.

Soll der Wert in einem anderen Tabellenblatt als "Tabelle1" stehen, dann in dem VBA Code in der Zeile

Sheets("Tabelle1").Range("A1") = Sheets("Tabelle1").Range("A1") + 1

den Blattnamen "Tabelle1" gegen den Namen Deines Tabellenblattes tauschen. Genau das gleiche verhält sich mit der Zelle A1. Bei einer anderen Zelle, die Zellbezeichnung ändern.

Ich hoffe, Du hast das so gemeint. Bei Fragen oder Problemen melde Dich.

Solltest Du nicht wissen, wie Du den Code in Deine Datei bekommst, dann schau mal auf meiner HP in der Rubrik Anleitungen und dort dann in der Anleitungsnummer 1 nach. Dort stelle ich dazu eine bebilderte Anleitung zur Verfügung, die Dir sicherlich helfen wird.

MfG,
coros
_{Da hier der einzige Lohn für die Helfer eine Rückmeldung ist, wäre es nett, wenn Du ein}
^{Feedback abgeben könntest, ob der Lösungsvorschlag Dein Problem gelöst hat.}

• Grafik aktualisiert sich nicht
• Name des Blatts in Tabelle verwenden
• Daten aus dem Excel in die Datenbank schreiben
• nich zielführende Hyperlinks per Makro aus dem Excel löschen
• Daten aus meheren *.txt files in ein Excelfile