tæller i skabelon

Prøv at se på følgende side: http://www.eksperten.dk/spm/295760

Måske men den side du henviser er et problem i word og ikke i Excel.

i regnearket mener jeg ikke det er muligt, men i en tekstfil er det.

Sæt denne makro ind i skabelonen, opret tekstfilen på fælles drev og ret stien og navnet, så skulle det virke.

Husk at det er skabelonens Workbook_Open modul koden skal i.

Private Sub Workbook_Open()
Open "C:\Skabelontæller.txt" For Input As #2
Input #2, Tal
Close #2
Open "C:\Skabelontæller.txt" For Output As #2
Print #2, Tal + 1
Close #2
End Sub

Nu en smøre.

jeg nærlæste dit spørgsmål og fandt ud af at du ville styre nummerene på følgesedlerne.

som følger, al programmering i skabelonen

I et modul sættes det her ind

Global Tal1
Global Tal2
Global tal3

I thisworkbook modulet

Private Sub Workbook_BeforePrint(Cancel As Boolean)
A = ActiveSheet.Name
Select Case A
Case "Ark1"
Tal1 = Tal1 + 1
Open "C:\Skabelontæller.txt" For Output As #2
Print #2, Tal1; Tal2; tal3
Close #2

Case "Ark2"
Tal2 = Tal2 + 1
Open "C:\Skabelontæller.txt" For Output As #2
Print #2, Tal1; Tal2; tal3
Close #2

Case "Ark3"
tal3 = tal3 + 1
Open "C:\Skabelontæller.txt" For Output As #2
Print #2, Tal1; Tal2; tal3
Close #2
End Select
End Sub

I ark1
Private Sub Worksheet_Activate()
Open "C:\Skabelontæller.txt" For Input As #2
Input #2, Tal1, Tal2, tal3
Close #2
Range("a1") = Tal1
End Sub

I ark2

Private Sub Worksheet_Activate()
Open "C:\Skabelontæller.txt" For Input As #2
Input #2, Tal1, Tal2, tal3
Close #2
Range("a1") = Tal2
End Sub

I ark3

Private Sub Worksheet_Activate()
Open "C:\Skabelontæller.txt" For Input As #2
Input #2, Tal1, Tal2, tal3
Close #2
Range("a1") = tal3
End Sub

Det betyder hver gang man aktiverer et ark, bliver nummeret læst fra filen.

Når man udskriver bliver der lagt 1 til nummeret.

Nb. der bliver også lagt 1 til hvis man bare viser udskrift og fortryder.

hvis man skal skrive flere ud på samme ark, skal man lige aktivere et andet ark og så tilbage igen for at opdatere.

Håber det er noget der kan bruges.

kabbak

Jeg vil forsøge

Er ikke så stærk til det med VBA. Har faktisk ikke rigtigt prøvet det.

Ark navnene, som står her: Case "Ark1"
skal selvfølgelig rettes til dine arknavne.

Og Range("a1") skal rettes til den celle hvor du vil have værdien i.

Øhh inden jeg går i gang.
Min skabelon er fortsat en Excel-skabelon. Er det her jeg skal lægge koden ind.

har forsøgt men jeg får en fejlmeddelelse

Run timer error "62"
Fejlen forkommer i det der hos dig hedder ark 2

Skal der stå noget i den celle hvor tælleren skal ind?

En anden ting, som jeg ikke har nævnt er at skabelonen skal ligge på netværksdrev - således at Filer-> ny ikke benyttes til at danne et dokument. Men det kan komme senere. Lige nu ligger den på C-drevet.
LN

Det er her det går galt

Input #2, Tal1, Tal2, tal3

Kan du sende skabelonen til mig, så vil jeg se på det

kabbak@tiscali.dk

Ok den er sendt. Advarsel: Skabelonen er ret stor.

Det fungerer bare upåklageligt - tak for hjælpen