07.04.2023, 22:15
Hallo,
der Code hat funktioniert, vielen lieben Dank. Ich habe nur bei der folgenden Zeile "intLfdnr = val(Mid(Sheets(strObjblatt).Cells(lngLetzte, 2), intPos1 + 1)" dieses "val" weggelassen.
Die letzte Zeile im Blatt strObjBlatt suche ich deshalb, weil hier nur die Ergebnisse aus Angebot, Auftrag und Rechnung eingetragen werden, die Hauptmaske ist im Tabellenblatt Erfassung gemacht.
Danke noch einmal für deine Hilfe.
GLG
jk
der Code hat funktioniert, vielen lieben Dank. Ich habe nur bei der folgenden Zeile "intLfdnr = val(Mid(Sheets(strObjblatt).Cells(lngLetzte, 2), intPos1 + 1)" dieses "val" weggelassen.
Die letzte Zeile im Blatt strObjBlatt suche ich deshalb, weil hier nur die Ergebnisse aus Angebot, Auftrag und Rechnung eingetragen werden, die Hauptmaske ist im Tabellenblatt Erfassung gemacht.
Danke noch einmal für deine Hilfe.
GLG
jk
