Excel 2016 Vorlage

[Kuwer]

Hallo Peter,

hast Du vielleicht übersehen, dass es hier um eine Vorlagendatei (.xltm) geht? Da öffnet sich also sofort eine Kopie der Vorlage, so dass es schwierig wird, das Problem durch Speichern zu lösen.

Gruß Uwe

[RPP63]

Da war er aber ungeduldig:
http://www.vba-forum.de/Forum/View.aspx?...rlage.xltm

[Käpt'n Blaubär]

Hallo Uwe,

da habe ich mich wohl ein wenig unglücklich ausgedrückt.

Meine Vorstellung war es, die Variable in einer externen *.txt-Datei hochzählen zu lassen.

[RPP63]

Gestattet mir eine Frage, ihr beiden bunten Uwe und Peter:
Stehe ich auf eurer Ignore-Liste oder warum wiederholt ihr den von mir erstmalig genannten Inhalt von 7:16 Uhr (#10)?

Fragt sich Ralf

[Käpt'n Blaubär]

Hallo Ralf,

Stehe ich auf eurer Ignore-Liste oder warum wiederholt ihr den von mir erstmalig genannten Inhalt von 7:16 Uhr (#10)?

bei mir stehst Du ganz gewiß nicht auf der Ignorierliste. Dafür denken wir in viel zu vielen Fällen viel zu gleich.
Das scheint mir jedenfalls so.

Wenn ich das noch richtig weiß, dann bin ich gestern Abend so etwa mit dem vierten /fünften Post diesen Thread eingestiegen.
Und da war mir eigentlich schon klar, in welcher Sandkiste das Spiel landen wird. Ich hatte allerdings einen ziemlich harten
Tag, und da wollte ich um kurz vor Mitternacht nicht noch ein Faß aufmachen.
Du schreibst, Du hast heute Morgen um 07:36 h gepostet. Da lag ich schon wieder in einem MRT. Ignoriert haben kann ich
Dich also auch beim besten Willen nicht.

[RPP63]

Alles gut und Dir noch Besseres!
Danke für die Klarstellung!

Davon ab bin ich gespannt, ob der TE den vorgeschlagenen Weg umsetzen kann oder doch am Tropf des Forums hängt.

Gruß Ralf

[Kuwer]

Gestattet mir eine Frage, ihr beiden bunten Uwe und Peter:
Stehe ich auf eurer Ignore-Liste oder warum wiederholt ihr den von mir erstmalig genannten Inhalt von 7:16 Uhr (#10)?

Traust Du mir nicht zu, selbst darauf gekommen zu sein, auch wenn mein Hinweis an Peter erst 3 Minuten nach Deinem Post kam?  

Gruß Uwe

[Ubi5]

Recht herzlichen Dank an alle Rückmeldungen - leider komme ich selber nicht weiter - doch komplizierter als angenommen - vielleicht kann mir jemand doch weiterhelfen - Danke!

LG Ubi5

[Peter]

Hallo,

vielleicht hilft dir das weiter:

http://www.tigo-it.de/dl/reno.htm

Alternativ könntet du dir auch diesen Thread ansehen

https://groups.google.com/forum/?hl=de#!...FNOJxMb74M

und das Augenmerk auf die Beiträge von Melanie Breden legen.

Sie zeigt, wenn ich das richtig interpretiere, eine Lösung auf die auf die bereits angesprochene Auslagerung der Rechnungsnummer in eine separate Datei basiert.

[Rabe]

Hi,

ja, das letzte (kurze) Makro von Melanie funktioniert einwandfrei.
Hier abgewandelt mit einer festen Zelle für die Nummer (Makro hinter "DieseArbeitsmappe"):

Option Explicit

Private Sub Workbook_Open()
     Dim strFile As String
     Dim intNo   As Integer

     strFile = ThisWorkbook.Path & "\factura_" & Format(Date, "YYYY") & ".ini"

     If Dir(strFile) <> "" Then
        Open strFile For Input As #1
        Input #1, intNo: Close
     End If

     intNo = intNo + 1
     Open strFile For Output As #1
     Print #1, intNo: Close

    Range("F4").Value = Format(Date, "YYYYMM") & Format(intNo, "0000")
  End Sub