Fortløbende numre og kundekartotek i OpenOffice regneark

Ved ikke med det fortløbende nummer, måske kunne du bare skrive 1,2,3, markere de 3 celler og trække ned i boksen.
Men for at hente kunde oplysninger kan du bruge denne formel
=HLOOKUP(Kunder!$B$1;Kunder!$B:$B;MATCH(A1;Kunder!A:A;0))
Kunder!$B$1 --> øverste celle i den kolonne du skal returnere data fra
Kunder!$B:$B --> Kolonnen du skal returnere data fra
A1 --> Celle med kundenummeret du vil søge efter
Kunder!A:A --> Kolonnen hvor du vil søge efter kundenummeret

Sorry mit svar er til Excel

'Lav tekstfil hvor der kun står det tal som regnearket skal nummeres med første gang. Gem f.eks. i c-drevet (her kaldt: kalk.txt)
'Lav dit regneark og gem som skabelon f.eks i c-drevet:(her kaldt: kalkulation.xlt)
'Det er vigtigt at "A1" er tomt
Lav et modul hvor du kopierer følgende kode ind:

Sub RapNr()
Dim KalkFil
Dim NyNr
Dim GlNr

    KalkFil = "c:\kalk.txt"
    Open KalkFil For Input As #1
    Line Input #1, GlNr
    Close #1
    Open KalkFil For Output As #1
    NyNr = Val(GlNr) + 1
    Print #1, NyNr
    Close #1
    Range("a1").Value = NyNr
End Sub

'I ThisWorkbook kopieres følgende ind:

Private Sub Workbook_Open()

If Sheets("Kalkulation").Range("A1") > 1 Then Exit Sub
RapNr
End Sub

'Så åbner den et nyt regneark ud fra skabelon med fortløbende numre i celle "A1"

'Tynde

tynde - nu er jeg ikke så god til det der med makroer, så forstår jeg det rigtigt hvis modulet er i makro?
Hvad med ThisWorkbook . . . hvad/hvor er det?

'Det er jeg heller ikke, men det lykkedes for mig.
'Jeg går ud fra, at du har lavet din tekstfil.
'Jeg går ligeledes ud fra at du har gemt dit regneark som en skabelon, og at arket er åbnet. Det er nemmest hvis du kun har det ark åben.
'Ved ALT F11 åbnes vba'en, og du kan se dit ark i venstre side.
'Når du klikker på insert, skal du vælge modul.
'Nu er der sat et tomt modul ind. Derefter skal følgende kode kopieres ind:

'-----------------------------------------------------------

Sub RapNr()
Dim KalkFil
Dim NyNr
Dim GlNr

    KalkFil = "c:\kalk.txt" 'Her skal du skrive din sti
    Open KalkFil For Input As #1
    Line Input #1, GlNr
    Close #1
    Open KalkFil For Output As #1
    NyNr = Val(GlNr) + 1
    Print #1, NyNr
    Close #1
    Range("a1").Value = NyNr 'Her skal du ændre, hvis den ikkke skal sætte nummeret ind i celle "A1"

End Sub

'-------------------------------------------------------------

'Nede under modulet kan du se ThisWorkbook
'Dobbeltklik på Thisworkbook, og en tom side åbnes i højre side
'Her kopierer du følgende ind:

'--------------------------------------------------------

Private Sub Workbook_Open()

If Sheets("Kalkulation").Range("A1") > 1 Then Exit Sub 'Filnavn og celle skal ligeledes rettes til her
RapNr
End Sub

'-------------------------------------------------------------

'Så skal du bare sørge for at cellen er tom i mit tilfælde "A1"
'Gem som skabelon, og sig ja til at overskrive.
'Så skulle den være der.

tynde - du skal ellers have tak for indsatsen men jeg kan ikke rigtig bruge det. Makroen du beskriver er til Microsoft Excel og den duer ikke rigtig til OpenOffice Calc, som jeg benytter mig af!

Ja . . . ellers er det bare mig der ikke kan finde ud af det!

Det havde jeg sku overset.
Håber du finder ud af det.

ja, desværre . . . det må jeg finde ud af på en anden måde