04.04.2023, 14:59
Vielen lieben Dank für deinen Vorschlag.
Leider kann ich mit dieser Zeile alleine nicht viel anfangen und es funktioniert nicht ganz.
Ich muss hier vermutlich auch bei den folgenden CodeZeilen Änderungen durchführen, allerdings habe ich hier noch keine gute Lösung parat:
'Auswerten der letzten Belegnummer (Angebot bzw. Rechnung)
intPos1 = InStr(Sheets(strObjblatt).Cells(lngLetzte, 2), "/")
intLfdnr = Format(Left(Sheets(strObjblatt).Cells(lngLetzte, 2), intPos1 - 1), "00")
intJahr = Mid(Sheets(strObjblatt).Cells(lngLetzte, 2), intPos1 + 1, intPos1 + 1)
Bitte um weitere Hilfe.
Vielen Dank!
Leider kann ich mit dieser Zeile alleine nicht viel anfangen und es funktioniert nicht ganz.
Ich muss hier vermutlich auch bei den folgenden CodeZeilen Änderungen durchführen, allerdings habe ich hier noch keine gute Lösung parat:
'Auswerten der letzten Belegnummer (Angebot bzw. Rechnung)
intPos1 = InStr(Sheets(strObjblatt).Cells(lngLetzte, 2), "/")
intLfdnr = Format(Left(Sheets(strObjblatt).Cells(lngLetzte, 2), intPos1 - 1), "00")
intJahr = Mid(Sheets(strObjblatt).Cells(lngLetzte, 2), intPos1 + 1, intPos1 + 1)
Bitte um weitere Hilfe.
Vielen Dank!
