Live-Forum - Die aktuellen Beiträge
Datum
Titel
24.04.2024 14:48:50
"Eingabefeld" zwischen zwei Zeilen geht nicht weg.
24.04.2024 14:40:10
Zeilenumbrüche in Textbox zählen
24.04.2024 14:06:20
Gesamte Column löschen, wenn Column-Bereich leer
24.04.2024 13:44:05
Bezeichnung Tabellenblatt aus Zelle für Formel auslesen
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
232to236
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
Vorheriger Thread
Vorheriger Thread
Rückwärts Blättern
232to236
232to236
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Wert verändern beim Speichern?

Wert verändern beim Speichern?
21.03.2003 16:59:28
Markus
Hallo,

für eine Seriennr. Funktion benötige ich folgendes:

beim Speichern der Mappe soll ein Wert in einem Feld um 1 erhöht werden um so beim nächsten Öffnen eine neue Seriennr. zu erhalten.

Gibt es da in VBA ne Möglichkeit?

Für Hilfe Danke im voraus,

Gruß
Markus

2
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
Re: Wert verändern beim Speichern?
21.03.2003 17:14:26
Knut

Das ginge unter:
Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As Boolean)
hat aber den Nachteil, dass, wenn der user "Abbechen" klickt, der Wert schon hochgezählt wurde. Ansonsten mit eigenem Speicherbutton.
Knut

Re: Wert verändern beim Speichern?
21.03.2003 17:19:05
Christian

Hi!

Im Codefenster der Arbeitsmappe, nicht der Tabelle!

Private Sub Workbook_Open()
Dim Nummer As Integer

Nummer = Right(Tabelle1.Range("C8").Value, 4) + 1
If Nummer < 10 Then
Tabelle1.Range("C8").Value = "ASG-000" & Nummer
ElseIf Nummer > 9 And Nummer < 100 Then
Tabelle1.Range("C8").Value = "ASG-00" & Nummer
ElseIf Nummer > 99 And Nummer < 1000 Then
Tabelle1.Range("C8").Value = "ASG-0" & Nummer
Else
Tabelle1.Range("C8").Value = "ASG-" & Nummer
End If
End Sub


Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Jetzt das Excel-Portal bewerten: Deine Stimme zählt!

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige