Hallo bei der angegebenen Tabelle möchte ich folgendes per makro oder Formel erreichen, wenn ich die PDF Datei erstellt habe, soll der Pfad durchsucht werden und die nächst folgenden Rechnungsnummer in die Zeile J12 eintragen wird
wie kann ich oben genannte Rechnungsnummer generieren
Hallo
den VBA Editor öffnen, und im Tabellenblatt "Rechnung" (
kein Modul !!) diesen Code eingeben. Er holt sich bei Eingabe der Kunden-Nr automatisch aus Tabelle "Rechnung-OP Liste" die naechste Rechnungs-Nr und fügt die neue Nummer sofort unten an. Den Makro Code konnte ich mir nicht ansehen, weil ich keine Datein im Laufwerk C habe.
Ich hoffe ich konnte damit weiterhelfen
mfg Gast 123
Code:
Dim ReNr As Long, lz As Long
Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Address <> "$I$13" Then Exit Sub
With Worksheets("Rechnungs-OP-Liste")
'Letzte Zelle ermitteln und Wert laden
lz = .Cells(1, 1).End(xlDown).Row
ReNr = .Cells(lz, 1).Value
If lz > 10000 Then MsgBox "keine gültige Rechnungs-Nr vorhanden": Exit Sub
'neue Rechnungs-Nr übernehmen
Range("J12").Value = ReNr + 1
'neue Rechnungs-Nr notieren
.Cells(lz + 1, 1).Value = ReNr + 1
End With
End Sub
vielen dank, aber ich erhalte wenn ich deinen code genauso einfüge nur eine fehlermeldung und die Rechnungsnummer soll wenn es geht über die fertige datei erzeugt werden, nicht über eine andere Tabelle, in der ich die Nummern wieder händisch pflegen muss
Hallo, ich nutze Mozilla als Browser, welche Informationen brauchst du noch ?
Hola,
Zitat:aber ich erhalte wenn ich deinen code genauso einfüge nur eine fehlermeldung
z.B. welche Fehlermeldung du genau erhälst.
Gruß,
steve1da
der Fehler lautet: Fehler beim Kompilieren: End Sub erwartet
Hola,
ich bin kein VBA'ler, aber da steht doch ein End Sub. Dass das Codefenster an der rechten Seite einen Scrollbalken hat, hast du gesehen? Der Code geht nach "'neue Rechnungs-Nr übernehmen" noch weiter.
Gruß,
steve1da