04.04.2023, 20:21
Hallo,
intLfdnr müsste als Integer oder Long deklariert sein,der Code ist ungetestet:
'Auswerten der letzten Belegnummer (Angebot bzw. Rechnung)
intPos1 = InStr(Sheets(strObjblatt).Cells(lngLetzte, 2), "_")
intLfdnr = val(Mid(Sheets(strObjblatt).Cells(lngLetzte, 2), intPos1 + 1)
intJahr = Left(Sheets(strObjblatt).Cells(lngLetzte, 2), intPos1 - 1)
'Neu generierte Belegnummer in das Tabellenblatt "Erfassung" schreiben
Sheets("Erfassung").Range("B19").Value = intJahr & "_" & Format(intLfdnr + 1, "000")
Nicht ganz klar ist mir, warum du die letzte Zeile im Blatt strObjBlatt suchst, das Ergebnis aber hart in B19 in "Erfassung" schreibst.
Zur Klärung könntest du eine anonymisierte Datei posten...
intLfdnr müsste als Integer oder Long deklariert sein,der Code ist ungetestet:
'Auswerten der letzten Belegnummer (Angebot bzw. Rechnung)
intPos1 = InStr(Sheets(strObjblatt).Cells(lngLetzte, 2), "_")
intLfdnr = val(Mid(Sheets(strObjblatt).Cells(lngLetzte, 2), intPos1 + 1)
intJahr = Left(Sheets(strObjblatt).Cells(lngLetzte, 2), intPos1 - 1)
'Neu generierte Belegnummer in das Tabellenblatt "Erfassung" schreiben
Sheets("Erfassung").Range("B19").Value = intJahr & "_" & Format(intLfdnr + 1, "000")
Nicht ganz klar ist mir, warum du die letzte Zeile im Blatt strObjBlatt suchst, das Ergebnis aber hart in B19 in "Erfassung" schreibst.
Zur Klärung könntest du eine anonymisierte Datei posten...
Gruß der AlteDresdner (Win11, Off2021)
