Rechnungsnummer auf 2 Blätter
11.10.2004 12:32:12
helena
habe ein Problem mit Rechnungsnummer
Private Sub RechnungsNummer()
Dim ExcelExe$, dName$, Nr$
dName = "C:\Test\" & "\Zaehler.txt"
Close
On Error Resume Next
Open dName For Input As #1
If Err > 0 Then
Open dName For Output As #1
Print #1, "0"
Close
Open dName For Input As #1
End If
Input #1, Nr
Close
ActiveSheet.Range("A21") = Nr + 1
Open dName For Output As #1
Print #1, Nr + 1
Close
End Sub
Macro funtioniert einwandfrei, benötige aber die Rechnungsnummer
jetzt auf 2 Blätter und nicht mehr nur im aktive Sheet
Close
Sheet.(tabelle1).range("A21")= Nr + 1
Sheet.(tabelle1).range("B12")= Nr + 1
Open dName For Output As #1
Print #1, Nr + 1
Close
End Sub
einmal rufe ich Makro von Tabelle1 auf und ein anderes mal von Tabelle2
es muss immer nach Makro in beiden Blättern die NEUE Nummer eingetragen sein.
Danke für Eure Hilfe
gruss helena