Live-Forum - Die aktuellen Beiträge
Datum
Titel
15.04.2024 23:32:21
Darstellung im IMAGE sehr schlecht
15.04.2024 21:08:34
PDF mit Makro erstellen mehrere Sheets
15.04.2024 18:38:39
Arbeitszeiten Vorlage ergänzen
15.04.2024 17:34:30
Fehlende Zeilen automatisch nach Zeiten ergänzen
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
512to516
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
512to516
512to516
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Speichername mit fortlaufender Nummerierung?

Speichername mit fortlaufender Nummerierung?
08.11.2004 14:50:12
Oliver
Hi,
ich brauch mal wieder Eure Hilfe, da mir die entsprechende Idee fehlt. Ich habe eine Exceldatei, die ca. 980 Zeilen Daten enthält. Nun soll aus jeder Zeile eine Textdatei erstellt werden. Das ist auch nicht unbedingt das Problem. Dafür habe ich schon ein Makro. Mein Problem liegt nun im Speichernamen. Zeile 1 soll als 00000000.txt abgespeichert werden, Zeile 2 als 00000001.txt, Zeile 3 als 00000002 usw. bis hin zur letzten Zeile die z.B. dann 00000980.txt heißen soll. Hat jemand eine Idee, wie man das umsetzen kann? Mir geht es wie schon gesagt, nur um den Dateinamen, den Export habe ich schon geregelt.
Danke Euch schon mal im Voraus für Eure Vorschläge,
Oliver

5
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Speichername mit fortlaufender Nummerierung?
Uduuh
Hallo,
ein Stückchen deines Codes wäre hilfreich.
Ansonsten kannst du dir den Namen doch zusammenbasteln.
Activeworkbook.saveas filename:=Format(Zeile-1,"0000000000") &".txt"
Gruß aus'm Pott
Udo
AW: Speichername mit fortlaufender Nummerierung?
08.11.2004 14:56:58
Josef
Hallo Oliver!
Du hast bestimmt einen Zeilenzähler im Exportmakro!
Dann geht's zB. so
Dateiname= Format(Zeilenzähler -1,"00000000") & ".txt"
Gruß Sepp
Schon fast die Lösung!
08.11.2004 18:04:30
Oliver
Hi Ihr beiden,
sorry, dass ich mich erst jetzt wieder melde, hatte aber vorher keine Zeit. Danke Euch für die Lösungen, die sind eigentlich schon ganz gut. Allerdings ist das Problem, dass die erste Textdatei den Namen 00000000.Txt bekommen muss. Bei den Lösungen wird aber die erste Datei 00000001.Txt benannt. Was kann man da noch ändern. Nachfolgend mal meinen Code, wie ich ihn im Moment einsetze. Dort habe ich das mit dem Dateinamen über eine Hilfsspalte gelöst, ist aber eine unschöne Lösung.

Sub Daten_Export()
Dim Wiederholungen As Long, Dateipfad As Integer, Dateiname As String, _
Zeile As Long
Zeile = Cells(Rows.Count, 1).End(xlUp).Row
'Hier belege ich im Moment eine Hilfsspalte, mit der ich
'in jeder Zeile die 8stellige Nummer ausgebe und dann für
'den Dateinamen wieder in die Variable Dateiname einlese
Range(Cells(2, 6), Cells(Zeile, 6)).NumberFormat = "@"
Cells(2, 6).FormulaR1C1 = "00000000"
Cells(3, 6).FormulaR1C1 = "00000001"
Range(Cells(2, 6), Cells(3, 6)).AutoFill Destination:= _
Range(Cells(2, 6), Cells(Zeile, 6)), Type:=xlFillDefault
Reset
Dateipfad = FreeFile
For Wiederholungen = 2 To Zeile
Dateiname = Cells(Wiederholungen, 6)
Open "C:\Test\" & Dateiname & ".txt" For Output As #Dateipfad
Print #Dateipfad, Cells(Wiederholungen, 1) & "," & Cells(Wiederholungen, 2) _
& "," & Cells(Wiederholungen, 3) & "," & Cells(Wiederholungen, 4) _
& "," & Cells(Wiederholungen, 5)
Close #Dateipfad
Next
End Sub

Ich hoffe, Ihr helft mir noch mal.
Gruß,
Oliver
Anzeige
AW: Schon fast die Lösung!
08.11.2004 18:31:25
Josef
Hallo Oliver!
zB. so!

Sub Daten_Export()
Dim Wiederholungen As Long, Dateipfad As Integer, Dateiname As String, _
Zeile As Long
Zeile = Cells(Rows.Count, 1).End(xlUp).Row
Dateipfad = FreeFile
For Wiederholungen = 2 To Zeile
Dateiname = Format(Wiederholungen - 2, "00000000") & ".txt"
Open "C:\Test\" & Dateiname For Output As #Dateipfad
Print #Dateipfad, Cells(Wiederholungen, 1) & "," & Cells(Wiederholungen, 2) _
& "," & Cells(Wiederholungen, 3) & "," & Cells(Wiederholungen, 4) _
& "," & Cells(Wiederholungen, 5)
Close #Dateipfad
Next
End Sub

Gruß Sepp
Anzeige
Super, Danke, das wars was ich gesucht habe! o.T.
Oliver

68 Forumthreads zu ähnlichen Themen

Rechnung mit Rechnungsnummer
Sammy

Hallo Forum
Ich habe das Archiv bereits nach Beiträgen durchforstet und bin hier im Forum, ich sag mal missverstanden worden. Habe meine Rechnung erstellt und bin an folgenden Aufgaben gescheidert.
Es soll selbstständig eine Rechnungsnummer erstellt und in eine bestimmte Zelle eingetrag...
20.01.2009 22:50:00
Thread-ID: 1042010
7 Beiträge
Anzeige
fortlaufende nummern einfügen
ben

hallo leute
ich habe folgendes problem. in einer spalte a stehen wahllos daten und es können leerzeilen vorhanden sein. jetzt will ich bei betätigung eines button immer wenn in einer zelle der spalte a ein wert auftaucht eine fortlaufende nummer zuordnen. leider bekomm ich es nur hin wenn a...
05.05.2009 10:06:00
Thread-ID: 1072981
13 Beiträge
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
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
Speichern mit fortlaufender Nummer
thomas

Hallo zusammen,
ich habe ein Tabellenblatt mit einem Makro welches ausgewählte zellen im CSV format speichert.
Die CSv datei wird mit der Bezeichnung CSV-1 abgespeichert.
Wie ist es zu schaffen, dass bei erneutem Abspeichern der CSV datei eine fortlaufende Nr. vergeben wird?
Z....
27.08.2012 08:57:49
Thread-ID: 1276497
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
6
5
12
2
24
7
2
2
7
5
6
3
4
22
3
2
4
7
4
3
6
4
3
5
4