Registriert seit: 17.04.2014
Version(en): MS Office 365(32)
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
Registriert seit: 12.10.2014
Version(en): 365 Insider (32 Bit)
Gib einem Mann einen Fisch und du ernährst ihn für einen Tag.
Lehre einen Mann zu fischen und du ernährst ihn für sein Leben. (Konfuzius)
Registriert seit: 11.04.2014
Version(en): '97 bis 2016; 365
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.
________________________________________________________________________
wer aufgibt, ohne es versucht zu haben, gibt einfach nur auf!
Grüße aus Norderstedt, Peter
Registriert seit: 12.10.2014
Version(en): 365 Insider (32 Bit)
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
Gib einem Mann einen Fisch und du ernährst ihn für einen Tag.
Lehre einen Mann zu fischen und du ernährst ihn für sein Leben. (Konfuzius)
Registriert seit: 11.04.2014
Version(en): '97 bis 2016; 365
Hallo Ralf,
Zitat: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.
________________________________________________________________________
wer aufgibt, ohne es versucht zu haben, gibt einfach nur auf!
Grüße aus Norderstedt, Peter
Registriert seit: 12.10.2014
Version(en): 365 Insider (32 Bit)
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
Gib einem Mann einen Fisch und du ernährst ihn für einen Tag.
Lehre einen Mann zu fischen und du ernährst ihn für sein Leben. (Konfuzius)
Registriert seit: 17.04.2014
Version(en): MS Office 365(32)
(24.04.2018, 18:44)RPP63 schrieb: 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
Registriert seit: 15.11.2015
Version(en): Office 2013
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
Registriert seit: 12.04.2014
Version(en): Office 365
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.
Gruß
Peter
Registriert seit: 10.04.2014
Version(en): 2016 + 365
25.04.2018, 08:54
(Dieser Beitrag wurde zuletzt bearbeitet: 25.04.2018, 08:54 von 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