Hallo,
hatte unten n Problem welches ich nun lösen hab können.
Der code sieht nun so aus ->
Private Sub ComboBox6_AfterUpdate()
Dim strBandNr As String
Dim strDate As String
Dim vbShortDate As Date
vbShortDate = Date
vbShortDate = Format(Date, „yyyy“)
strBandNr = Left([ComboBox6], 3) & Right((Date), 4) & „000“
TextBox28 = strBandNr
End Sub
so die strBandNr wird nun auch schön in einer Excel-Tabelle abgelegt
Was ich aber nun nicht hinbekomme ist das er mir die strBandNr hochzählt.
Also als Beispiel:
Es sollte die BandNr Tes20070001 vergeben werden - als nächsten eben die Tes20070002,…Tes20070006 etc - wenn ich ein anders Projekt auswähle soll er mir die BandNr. eben „neu“ vergeben heißt - Hal20070001
Wie bekomme ich es hin das er mir „raufzäählt“ ?
Gruss Rolf