Menü
An- und Abmelden
Partner / Links
Beiträge anzeigen
1
Excel / Office 2010: Fortlaufende Nummerierung Excel-Datenbank
« am: Juni 11, 2018, 14:46:35 Nachmittag »
Hallo,
der folgende Code...
Dim last As Integer
last = ActiveSheet.Cells(Rows.Count, 1).End(xlUp).Row + 1
Cells(last, 1).Value = 1
Range(Cells(last, 1), Cells(Rows.Count, 2).End(xlUp).Offset(0, -1)).DataSeries Type:=xlDataSeriesLinear
Cells(last, 2).Value = DTPicker1
...bewirkt in meinem Tabellenblatt, dass in Spalte A eine fortlaufende Nummerierung erfolgt. Nun möchte ich gerne, dass hinter der fortlaufenden Nummer in Spalte A auch das Jahr aus dem DTPicker1 (Spalte B) in der Form 1/2018, 2/2018 usw. erfolgt. Des weiteren möchte ich gern das jedes Jahr einzeln hochgezählt wird (1/2018, 2/2018, 1/2019, 3/2018, 2/2019 usw.).
Ist das mit VBA in Excel überhaupt möglich?
MfG
Splash
der folgende Code...
Dim last As Integer
last = ActiveSheet.Cells(Rows.Count, 1).End(xlUp).Row + 1
Cells(last, 1).Value = 1
Range(Cells(last, 1), Cells(Rows.Count, 2).End(xlUp).Offset(0, -1)).DataSeries Type:=xlDataSeriesLinear
Cells(last, 2).Value = DTPicker1
...bewirkt in meinem Tabellenblatt, dass in Spalte A eine fortlaufende Nummerierung erfolgt. Nun möchte ich gerne, dass hinter der fortlaufenden Nummer in Spalte A auch das Jahr aus dem DTPicker1 (Spalte B) in der Form 1/2018, 2/2018 usw. erfolgt. Des weiteren möchte ich gern das jedes Jahr einzeln hochgezählt wird (1/2018, 2/2018, 1/2019, 3/2018, 2/2019 usw.).
Ist das mit VBA in Excel überhaupt möglich?
MfG
Splash