Makro anpassen für Nr
31.12.2021 09:12:08
mablu
ich habe eine Exceldatei in der die Rechnung jeweils eine neue Nr. bekommt diese wird in einer Datei Rechnung.dat erfasst und gespeichert.
Da ich aber dieses Formular an mehreren PC's verwende möchte ich die Nummernvergabe in das Aktuelle Dokument integrieren in einem neuen Register mit Name NR
das ich dann ausblenden werde, wie muss ich das Makro umschreiben damit ich das tun kann?
Sub Nr_vergeben()
Dim RNr As Long, DATDatei As String
Dim lngAnzahlZeichen As Long
'hier bitte Pfad und Name evtl. anpassen
DATDatei = "C:\Users\mablu\Documents\Meine_Rechnungen\Rechnung.dat"
ActiveSheet.Unprotect Password:="xxx"
Open DATDatei For Input As #1
'Anzahl Zeichen ermitteln
lngAnzahlZeichen = LOF(1)
'nächste RechnungsNr
RNr = Input(lngAnzahlZeichen, #1) + 1
'neue RechnungsNr in Rechnung (aktuelle Datei) einfügen
ActiveSheet.Range("D19") = RNr
Close #1
Open DATDatei For Output As #1
'Letzte RechnungsNr in DAT schreiben
Print #1, RNr
Close #1
ActiveSheet.Protect Password:="xxx"
End Sub
vielen Dank im Voraus
Gruss mablu