Live-Forum - Die aktuellen Beiträge
Datum
Titel
17.04.2024 21:55:37
Preiserhöhung über mehrere Jahre berechnen
17.04.2024 20:19:32
Endzeitpunkt berechnen aus d:hh:mm errechnen
17.04.2024 18:57:33
Errinnerungsfunktion
17.04.2024 16:56:58
Stunden addieren
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
188to192
Aktuelles Verzeichnis
Verzeichnis Index
Übersicht Verzeichnisse
Vorheriger Thread
Rückwärts Blättern
Nächster Thread
Vorwärts blättern
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Vorheriger Thread
Vorheriger Thread
Rückwärts Blättern
188to192
188to192
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

fortlaufende nummer in dateiname

fortlaufende nummer in dateiname
02.12.2002 18:58:05
Jojo
hallo
ich hab da so ein problem und zwar hab ich folgendes Makro:

Sub Speichern()
Dim Name, Datei, Pfad
Pfad = "C:"
Name = "Rechnung "
Datei = Pfad & "\" & DName & Format(Now, "YYYY.MM.DD") & ".xls"
ThisWorkbook.SaveAs Filename:=Dateiname

da wollte ich jetzt eine automatisch fortlaufende nummer die sich immer um 1 erhöht bei jedem speichern mit reinbauen.
Kann mir da vielleicht jemand helfen?

3
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
Re: fortlaufende nummer in dateiname
02.12.2002 19:09:01
andre
hallo jojo,
wenn du schon das datum reinbringst dann nehme noch die zeit dazu, dann brauchst du die nummer nicht. ansonsten musst du vorher auch prüfen, ob die nummer schon da ist - dann sollten aber die namen auch eine gleiche struktur bzw. den zähler an der gleichen stelle haben.
eine schleife mit dem dir-befehl - mal in die hilfe schauen.
da prüfst du in einer schleife, ob es die datei schon gibt.
z.b. rechnung01*, rechnung02* ...
ansonsten in deinem makro datei <--> dateiname ?
gruss andre
Re: fortlaufende nummer in dateiname
02.12.2002 19:10:53
Jojo
kannst du mir vielleicht ein beispiel geben?
Re: fortlaufende nummer in dateiname
03.12.2002 02:47:51
Nepumuk
Hallo Jojo,
ein Beispiel, wie du nach schon vorhandenen Nummern suchen kannst und die nächsthöhere in der Variablen "Dateinummer" zur Verfügung gestellt bekommst. Die Dateinamen bestehen aus: "Mappe" plus einer vierstelligen Nummer.

Public Sub Speichern()
    Dim Dateiname As String, Nummer As Integer, Dateinummer As String
    Dateiname = Dir("D:\Eigene Dateien\Test\")
    Do While Dateiname <> ""
        If Left(Dateiname, 5) = "Mappe" Then
            If Nummer < CInt(Mid(Dateiname, 6, 4)) Then Nummer = CInt(Mid(Dateiname, 6, 4))
        End If
        Dateiname = Dir
    Loop
    Dateinummer = String(4 - Len(CStr(Nummer + 1)), "0") & CStr(Nummer + 1)
End Sub
     Code eingefügt mit Syntaxhighlighter 1.14

Gruß
Nepumuk
PS. In deinem Code ist ein gravierender Fehler. Du darfst keine Punkte im Dateinamen (dein Datum) verwenden. Siehe Dateinamenkonvention.

Anzeige

127 Forumthreads zu ähnlichen Themen

laufende Nummer vergeben
Frank

Hallo Leute,
da mir bisher immer super geholfen wurde wende ich mich mal wieder an Euch mit einem für mich nicht lösbaren Problem. Habe im Archiv schon rund 2 Stunden zugebracht da es schon viele Beiträge zum Thema gibt, bin aber leider nicht fündig geworden ein paar Ansätze hab ich gefund...
28.01.2009 09:32:00
Thread-ID: 1044460
6 Beiträge
Anzeige
Fortlaufende Nummer für eine Variable
Dieterlem

Hallo Excelfreunde,
innerhalb einer Schleife möchte ich mehrere Variablen Deklarieren und einen Bereich zuweisen.
Hier ein kleiner Test dazu:
Dim i As Byte
Dim Anzahl as Byte
For i = 1 To Anzahl
Dim Bereich(i) As Range
Set Bereich(i) = .Range(.Cells(1, 1), .Cells(i,...
07.11.2009 17:35:44
Thread-ID: 1115247
3 Beiträge
Re: fortlaufende Nummerierung unterbinden
Sandra

Hallo zusammen,
vielleicht hat ja jemand eine Idee, warum dieses Makro bei mir nicht läuft:
Die aller erste Meldung die ich bei Versuch es auszuführen bekomme ist dies hier:

Hier das Makro:
Public Sub PrintSheetsToPDF( _ ByVal SheetsToPrint As Variant, _ ByVal PDFFilePath A...
10.02.2010 16:50:21
Thread-ID: 1137455
25 Beiträge
Anzeige
fortlaufende Nummerierung unterbinden
Sandra

Hallo Leute,
obwohl meine Frage noch imemr offen ist, taucht Sie bei "offene Fragen" nicht mehr auf. Daher jetzt noch einmal ein Thread mit dem Link zu meinem Problem.
https://www.herber.de/cgi-bin/forum/call_forum.pl
Gruß
Sandra
17.02.2010 10:39:55
Thread-ID: 1139155
8 Beiträge
laufende nummer nicht automatisch abändern
maschmi

Hallo zusammen,
ich hoffe mir kann jemand helfen.
Ich will in einer Tabelle über die zusammensetzung verschiedener nummern eine laufende nummer für dokumente erzeugen. In Spalte A sind Kundennamen eingetragen. Zu jedem Kundennamen wird in Spalte B automatisch per SVerweis die entspreche...
23.04.2010 13:44:53
Thread-ID: 1153414
3 Beiträge
laufende Nummer vergeben
Lorenz

Hallo Excelianer
Wie kann man in Spalte "A" ab zeile 10 eine laufende Nummer mit eins beginnend vergeben.
Kriterium 1: Liste ist gefiltert (Autofilter)
Kriterium 2: beliebiger Eintrag in Spalte "B" muss vorhanden sein.
Bitte um eine VBA-Lösung.
Danke
Lorenz
05.05.2011 20:04:29
Thread-ID: 1213244
3 Beiträge
Nummerierung mit Bedingung
Manfred

Hallo zusammen,
ich suche eine Formel zum automatischen Nummerieren der Spalte A Z5.
Nummeriert darf nur werden wenn die Schriftfarbe in Spalte B Schwarz ist, ist die Schrift Rot oder auch wenn nichts drin steht darf nicht nummeriert werden.
Ein Makro
Mit freundlichen Grüßen
10.04.2013 16:35:03
Thread-ID: 1308200
8 Beiträge
fortlaufende nummer generieren
Bernd

Hallo Excel-VBA Gemeinde ,
ich komme hier mal wieder nicht weiter . Ich habe eine Userform mit mehreren TextBoxen die mir in einem Tabellenblatt etwas Eintragen . Dieses Blatt möchte ich nun z.B. Vier mal Ausdrucken und dabei soll in der Zelle D19 eine Fortlaufende Nummer Generiert werden ,...
12.04.2013 10:20:32
Thread-ID: 1308502
6 Beiträge

Beliebteste Forumthreads (12 Monate)

Anzeige
Jetzt das Excel-Portal bewerten: Deine Stimme zählt!

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige
Archiv - Verwandte Themen
Forumthread
Beiträge
5
12
2
24
4
7
2
2
7
5
6
4
5
3
1
2
4
7
3
6
3
5
4
4
17