Zellennummerierung
29.03.2019 11:28:50
Dan
ich bin auf der Suche nach einer Möglichkeit bei kopierten Tabellenblättern, eine bestimmte Zelle fortlaufend zu nummerieren, wenn in einem bestimmten Bereich Text enthalten ist. Es handelt sich um Tagesberichte die im Bereich "C10:C28" Text enthalten können (wenn an diesem Tag gearbeitet wird gibt's ne Nummer); ist das der Fall soll in Zelle "C1" die Ziffer stehen. Da ich über VBA das vorherige Blatt kopiere bekomme ich das nicht mit einer Formel hin, da sich dann die Ziffer nicht fortlaufend erhöht.
Zum Kopieren benutze ich folgenden Code:
Option Explicit
Sub Neu()
Dim strBlattname As String
Dim intJahr As Integer
Dim intMonat As Integer
Dim intTag As Integer
Dim dteNeu As Date
strBlattname = Worksheets(Worksheets.Count).Name
intJahr = Year(Date)
intMonat = Int(Mid(strBlattname, 4, 2))
intTag = Int(Left(strBlattname, 2))
dteNeu = DateSerial(intJahr, intMonat, intTag) + 1
Sheets(Sheets.Count).Copy after:=Worksheets(Worksheets.Count)
ActiveSheet.Name = Format(dteNeu, "dd.mm.yyyy")
End Sub
Datei unter:https://www.herber.debbsuser128741.xlsm