Live-Forum - Die aktuellen Beiträge
Datum
Titel
16.10.2025 00:15:51
Passwort im Herbersforum ändern
15.10.2025 16:22:17
Datum ist nicht Datum :(
15.10.2025 15:02:20
Blockpfeile mit Makro gehen nicht mehr nach freigabe
15.10.2025 13:51:13
VBA - Fortschrittsbalken unabhängig von Zellen
Keine passende Antwort im Forumarchiv gefunden?
Stelle deine Frage im Live-Forum
Anzeige
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Vorheriger Thread
Vorheriger Thread
Rückwärts Blättern
1136to1140
1136to1140
Aktuelles Verzeichnis
Verzeichnis Übersicht
Verzeichnis Übersicht
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Datei speichern in Reiehnfolge Nummerierung

Forumthread: Datei speichern in Reiehnfolge Nummerierung

Datei speichern in Reiehnfolge Nummerierung
chris
Halllo und guten morgen VBA Experten,
ich möchte gerne bei klick auf einen Button ein Makro starten das mit die aktuelle Datei in einem Laufwerk schreibt.Und diese soll einen Nummerierung haben die immer aufsteigen ist.
existiert also eine Datei mit dem namen 44_Dateiname soll die nöchste heißen 45_dateiname
Existieren viele Dateien auch wenn zwischendrinn mal einen Nummer fehlt soll die nächste Nummer immer eine höher sein als die höchste Dateinummer.
Geht das ? wenn ja wie könnte ich es anfangen ?
Vielen dank für eure Hilfe !
gruß Chris
Anzeige
AW: Datei speichern in Reiehnfolge Nummerierung
18.02.2010 07:47:14
Josef
Hallo Chris,

das geht z.B. so.

Sub saveByNumber()
  Dim strFile As String, strPath As String
  Dim lngNumber As Long
  
  strPath = "E:\Forum"
  strPath = strPath & IIf(Right(strPath, 1) <> "\", "\", "")
  
  strFile = Dir(strPath & "?_*.xls*", vbNormal)
  
  
  Do While strFile <> ""
    If strFile Like "##_*" Then
      lngNumber = Application.Max(lngNumber, Clng(Left(strFile, 2)))
    End If
    strFile = Dir
  Loop
  
  lngNumber = lngNumber + 1
  
  ThisWorkbook.SaveAs strPath & CStr(lngNumber) & "_Dateiname.xls"
End Sub

Gruß Sepp

Anzeige
AW: Datei speichern in Reiehnfolge Nummerierung
18.02.2010 08:04:22
chris
Danke Sepp.
Prima klappt gut !
schönen tag !
AW: Datei speichern in Reiehnfolge Nummerierung
18.02.2010 08:32:36
chris
Hallo Sepp,
muss noch einmal auf machen.
Kannst Du mir noch einmal helfen ?
Der Code klappt nicht wenn die zahl 1 oder 2 oder 3 stellig ist.
Kann man das so umbauen das er addiert bei 1 oder 2 oder 3 stellig ?
So das er z.b einstellig so schreibe "001 Dateiname"
"009 Dateiname"
"010 Dateiname"
usw..
Danke noch einmal !
Anzeige
AW: Datei speichern in Reiehnfolge Nummerierung
18.02.2010 08:54:02
Josef
Hallo Chris,

dann so.

Sub saveByNumber()
  Dim strFile As String, strPath As String
  Dim lngNumber As Long, strNum As String
  
  strPath = "E:\Forum"
  strPath = strPath & IIf(Right(strPath, 1) <> "\", "\", "")
  
  strFile = Dir(strPath & "*_*.xls*", vbNormal)
  
  
  Do While strFile <> ""
    strNum = Left(strFile, InStr(1, strFile, "_") - 1)
    If IsNumeric(strNum) Then
      lngNumber = Application.Max(lngNumber, Clng(strNum))
    End If
    strFile = Dir
  Loop
  
  lngNumber = lngNumber + 1
  
  ThisWorkbook.SaveAs strPath & Format(lngNumber, "000") & "_Dateiname.xls"
End Sub

Gruß Sepp

Anzeige
AW: Datei speichern in Reiehnfolge Nummerierung
18.02.2010 09:43:20
chris
Danke perfekt !
;

Forumthreads zu verwandten Themen

Ausgelesene Exceldatei speichern!
Botti

Hallo,
folgendes Problem:
Ich lese mit Hilfe eines Makro von der Datei A die Datei B aus... Dabei untersucht das Makro ob ein bestimmtes Sheet in einer Reihe von Sheets an einer bestimmten Stelle ist und verschiebt es für den negativen Fall an die richtige Stelle/Position. Soweit so gut...
20.08.2008 18:28:01
Thread-ID: 1003275
2 Beiträge
Anzeige
VBA-Code - Datei speichern unter; Schleife
Schulze

Halli Hallo,
ich habe eine kurze frage. und war geht es darum, dass die spalte a untersucht werden sollen. es sollen alle werte der tabelle (zeilen) kopiert werden, bis in der spalte a der wert 0 ist.
Im Folgenden habe ich eine Beispieldatei drangehangen. https://www.herber.de/bbs/user/...
21.08.2008 10:57:00
Thread-ID: 1003407
2 Beiträge
Anzeige
Excel-Sheet als text-Datei speichern
Florian

Hallo!
Ich habe nur eun kleines Problem:
Ich lasse per Makro ein Excel-Blatt als TXT-Datei abspeichern!
Das ist der Code hierfür:
Sub DB_Kündigung_erstellen() Sheets("Kündigung").Select Rows("1:2").Select Selection.Copy Workbooks.Add ActiveSheet.Paste Application.DisplayAlert...
05.09.2008 09:57:00
Thread-ID: 1007593
5 Beiträge
Datei speichern
Wolfgang

Hallo Excelfreunde
Ich habe mir einen Wochenberichtszettel zusammengestelt
der einen commandbutton enthält
nun möchte ich per klick erreichen
das die Datei gespeichert wird und zwar
in c:/eigene Dateien/Wochenzettel
dateiname ergibt sich in meinen Fall aus Zelle A7
z...
24.09.2008 17:54:00
Thread-ID: 1012138
3 Beiträge
Anzeige
Eingebettete Powerpoint datei speichern
Dirk

Hallo Forum,
ich habe eine excel tabelle mit einer eingebetteten Powerpoint presentation. Diese mochte ich gerne per VBA auf die Fesplatte kopieren, ohne dazu Powerpoint oeffnen zu muessen.
Ist das moeglich und falls ja, koennt Ihr mir eine Loesung zeigen?
Danke im Voraus!
Dirk...
12.10.2008 22:13:22
Thread-ID: 1015914
2 Beiträge
Einzelne Registerkarte in neue Datei speichern
Herbert

Hallo Experten,
ich möchte per Button eine einzelne Registerkarte meiner Excel-Datei im Format: "Text (Tabstopp-getrennt)(*.txt)" abspeichern. Die neue Datei soll im Ordner C:\temp erscheinen. Der Name der neuen Datei ist eigentlich egal.
Wäre für jeden Vorschlag dankbar.
Danke und...
14.10.2008 11:46:43
Thread-ID: 1016279
5 Beiträge
Wert um eins erhöhen, dann die Datei speichern ?
Selma

Hallo Leute,
in der aktive Datei möchte ich ein Makro ausführen, der folgendes macht:
1. MsgBox "Bitte den Startwert eintragen" anzeigen.
Der eingegebene Wert soll in Zelle C4 eingetragen werden und die Datei in selben Pfad wie die aktive Datei mit Namen "Berechnungsblatt_UNI_(Wert...
22.10.2008 17:23:24
Thread-ID: 1018424
6 Beiträge
Ab aktiver Datei speichern und VBA-Code löschen?
Selma

Hallo zusammen,
ich möchte nur das Arbeitsblatt "Vorlage" über das Dialog "Speichern unter" speichern. Als Dateiname soll Name der aktive Datei_ + Weitergabe.xls vorgeschlagen werden.
Beispiel für Dateiname: Berechnungsblatt_2008_Weitergabe.xls
In der gespeicherte Datei sollen erstm...
25.10.2008 11:15:00
Thread-ID: 1019168
5 Beiträge
Datei Speichern - Name aus 3 Zellen
Michael

Hallo,
ich speichere eine Datei unter einem Namen ab, welcher in Zelle B3 des Blattes steht.
name = "S:\Temp\LAUF_P" & ActiveSheet.Range("B3").Value & ".txt"
nun möchte ich aber noch die Zellen A7 und B7 mit einbinden, so dass der name letztlich so aussieht:
LAUF_PB3/A7/...
28.11.2008 11:22:21
Thread-ID: 1028629
3 Beiträge
Tabelle in neue Datei speichern
Robert

Hallo,
kann mir bitte jemand helfen...bin am verzweifeln ;-)
Ein Tabellenblatt der geöffneten Datei sollte in eine neue Datei gespeichert werden - und das mit dem Zellinhalt eines anderen Tabellenblattes derselben Datei als Dateiname. Sollte eine Datei mit demselben Namen bereits besteh...
26.12.2008 10:18:00
Thread-ID: 1035274
4 Beiträge
Anzeige
Excel Daten in einer Datei speichern
rwrw

hi,
weiss einer wie man Excel Daten in einer Datei abspeichern und wieder reinladen kann ?
Beispiel:
B2 bis B13 und B2 bis BA2 die Daten die in den Zellen stehen sollen per Button abgespeichert werden.
Beim Öffnen von der Excel-Datei sollen die abgespeicherten Daten wieder in de...
07.01.2009 17:33:00
Thread-ID: 1037636
20 Beiträge
Tabellenblätter einzeln als Datei speichern
murat

Hallo,
ich habe einen tollen VBA Code hier im Forum gefunden!
Ich möchte die einzeln Tabellenblätter als Datei Speichern. ich habe 20 Tabellenblätter in einer Datei aus der sollen 20 Dateien werden. Dateiname steht immer in Zelle C2 des jeweiligen tabellenblattes.
Der Code unten i...
13.01.2009 11:46:16
Thread-ID: 1039178
3 Beiträge
Entdecke relevante Threads

Schau dir verwandte Threads basierend auf dem aktuellen Thema an

Alle relevanten Threads mit Inhaltsvorschau entdecken
Anzeige

Beliebteste Forumthreads (12 Monate)

Jetzt das Excel-Portal bewerten: Deine Stimme zählt!
Anzeige
Anzeige
Entdecke mehr
Finde genau, was du suchst

Die erweiterte Suchfunktion hilft dir, gezielt die besten Antworten zu finden

Suche nach den besten Antworten
Unsere beliebtesten Threads

Entdecke unsere meistgeklickten Beiträge in der Google Suche

Top 100 Threads jetzt ansehen
Anzeige