Live-Forum - Die aktuellen Beiträge
Datum
Titel
28.03.2024 21:12:36
28.03.2024 18:31:49
Anzeige
Archiv - Navigation
1828to1832
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
Inhaltsverzeichnis

Versionsnummer für jede Zeile erstellen

Versionsnummer für jede Zeile erstellen
06.05.2021 09:33:06
Marc
Hallo zusammen,
hat bitte jemand einen Tipp für mich wie man eine Versionsnummer in einer Zelle für jede Zeile erstellen kann?
Bsp.: in Zelle A2 trage ich ein Datum ein, dabei wird in Zelle B2 die Versionsnummer 1 generiert
ändere ich aber einen Tag oder Woche später das Datum soll dann automatisch eine neue Version 2 generiert werden.
Ist das per Makro oder Formel durchführbar?
Für eure Hilfe wäre ich dankbar.
Viele Grüße
Marc

4
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Versionsnummer für jede Zeile erstellen
06.05.2021 09:46:46
Rudi
Hallo,
ins Modul des Blatts:

Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Count = 1 Then  'nur 1 Zelle
If Target  "" Then    'nicht leer
If Target.Column = 1 Then ' Spalte A
If Target.Row > 1 Then  'Zeile 2 bis ...
Target.Offset(, 1) = Target.Offset(, 1) + 1
End If
End If
End If
End If
End Sub
Gruß
Rudi
AW: Versionsnummer für jede Zeile erstellen
06.05.2021 10:48:16
Marc
Hallo Rudi,
hat einwandfrei funktioniert, ich danke Dir sehr.
Vielen Dank auch an Worti und neopa C.
Viele Grüße und bis bald :)
Marc
AW: Versionsnummer für jede Zeile erstellen
06.05.2021 09:46:54
Worti
Hallo Marc,
zB. so:

Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Row > 1 Then
If Target.Column = 1 Then
If IsDate(Target.Value) Then
If Target.Offset(0, 1).Value = "" Then
Target.Offset(0, 1).Value = 1
Else
Target.Offset(0, 1).Value = Target.Offset(0, 1).Value + 1
End If
End If
End If
End If
End Sub
Gruß Worti
Anzeige
AW: so wie Du schreibst nur mit VBA, doch ...
06.05.2021 09:47:49
neopa
Hallo Marc,
... was spricht dagegen, Deine Versionsnummer nicht als 1 ... sondern aus dem Datum zu generieren?
Z.B. als Textwert so: =TEXT(A2;"JJMMTT") ?
Gruß Werner
.. , - ...

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige