Zeile in Rechnung um eine Position erweitern und Auftragsnr

[nockel]

Hi,

habe mit Excel eine Rechnung erstellt nun soll die mit OpenOffice fortgeführt werden. D.h ich habe eine Schaltfläche mit der die Auftragsnummer erweitert wird, leider funktioniert meine Excel-Formel nicht in OO.

Code: Alles auswählen

Sub Auftragsnummer()
    Range("C8") = Range("C8") + 1
    End Sub

Das zweite ist etwas komplizierter. Ich habe in der Tabelle die Positionen gesetzt und diese soll nun bei Bedarf um eine Position erweitert werden. Sprich in Spalte A die Position um einen erweitern (Pos. 1 = 10 2 = 20 usw). Im nächsten Feld gebe ich die Artikelnummer ein welche über einen SVerweis auf die Artikelstammtabelle greift und die weiteren Felder füllt (Bezeichnung und Einzelpreis)

Gibt es dafür eine Möglichkeit?

Als Anhang die Tabelle.

[Karolus]

Hallo

Code: Alles auswählen

Range("C8").value = Range("C8").value + 1

Karo
[rant]
Ignoranten hängen hier .xls Dateien an
[/rant

[nockel]

habe es so eingefügt

Code: Alles auswählen

Sub Auftragsnummer
Range("C8").value = Range("C8").value + 1

End Sub

kommt aber die MEldung "Basic Laufzeitfehler Sub oder Function Prozedur nicht definiert"

[Karolus]

Hallo

kommt aber die MEldung "Basic Laufzeitfehler Sub oder Function Prozedur nicht definiert"

So muss es aussehen:

Code: Alles auswählen

Option VBASupport 1

Sub Auftragsnummer()
    Range("C8").value = Range("C8").value + 1
End Sub

Du hast nicht zufällig die Zeile: Option VBASupport 1 auskommentiert oder entfernt ?

Karo