Office - Word, Excel und Co. 9.744 Themen, 41.408 Beiträge

Verfolgung starten Optionen

Problem mit fortlaufender Rechnungsnummer in Excelvorlage

mungomaggot / 2 Antworten / Flachansicht Nickles

Rechnungsvorlage Problem mit Makro---


Ich habe eine Rechnungsvorlage mit folgendem Makro geschrieben(Was
bewirken soll, dass,jedesmal wenn die Vorlage geöffnet wird in angegebener
Zelle der Wert um 1 inkrementiert):


Sub Auto_Open()


  Dim neuenummer As Integer
  Application.ScreenUpdating = False
  Workbooks.Open Filename:="D:\Sicherung\Factura.xlt"
  neuenummer = Cells(2, 1).Value
  neuenummer = neuenummer + 1
  Cells(2, 1).Value = neuenummer
  ActiveWorkbook.Save
  ActiveWorkbook.Close
  Range("D14").Select
  ActiveCell.Value = neuenummer
  Application.ScreenUpdating = True


End Sub


Dazu folgendes: Es funktioniert alles perfekt, bis auf das Problemm, wenn ich aus der Vorlage
eine Rechnung.xls erstelle, diese speichere (im Excel Dokumentformat.xls) und wieder aufrufe
zu einer späteren Ansicht etc., dann wir das Makro jedenfalls ausgeführt.
Dies möchte ich aber verhindern und nur, wenn ich die Originalvorlage (MEINE RECHNUNG.XLT)starte,soll jenes
Makro zur Inkrementierung des Wertes(fortlaufende Rechnungsnr.) abgearbeitet werden!



Wer kann mir helfen?
Vielen Dank, für jeden Rat---------

bei Antwort benachrichtigen
Hi mungomagott, Du scheinst Dich ja auszukennen, deshalb die Lösung nicht ... Edgar Rau
JFA mungomaggot „Problem mit fortlaufender Rechnungsnummer in Excelvorlage“
Optionen

Hallo,

ich habe das gleiche Problem, und sehe auch schon, dass die Lösung auch in meinem Fall helfen könnte.
Leider kenn ich mich nicht so gut mit Makros in Excel aus, und bräuchste da doch noch eine etwas genauere Anleitung.
Falls es mittlerweile eine fertige Funktion gibt, wäre ich über ein paar Hilfen sehr dankbar.
Vorallem das mit der Wertzuweisung will bei mir nicht klappen.
Selbst mit dem oberen Makro (welches ja komplett ist) tuet sich bei mir nichts.
Obwohl ich Makros extra aktiviert habe.

Vielen Dank im vorraus
JFA

bei Antwort benachrichtigen