Microsoft Excel

Herbers Excel/VBA-Archiv

Informationen und Beispiele zum Thema Userform
BildScreenshot zu Userform Userform-Seite mit Beispielarbeitsmappe aufrufen
Informationen und Beispiele zum Thema TextBox
BildScreenshot zu TextBox TextBox-Seite mit Beispielarbeitsmappe aufrufen

Fortlaufende Nummer beim Abspeichern

Betrifft: Fortlaufende Nummer beim Abspeichern von: Muehli
Geschrieben am: 28.10.2014 08:15:36

Guten Morgen zusammen,

ich habe folgenden Code:

Sub Datei_generieren()

'Datei generieren

Range("A1:N5000").Copy
Workbooks.Add
ActiveSheet.Paste
Application.CutCopyMode = False
ActiveSheet.name = "DiscreteAlarms"

With Cells
  .Copy
  .PasteSpecial Paste:=xlPasteValues
End With

    path = Userform1.TextBox5.Value
    ActiveWorkbook.SaveAs Filename:=path & "Konvertiert_Meldungen"
    
Application.CutCopyMode = False  
ActiveWindow.Close

End Sub
Hier wird einfach eine Datei mit dem Namen"Konvertiert_Meldungen" im ausgewählten Pfad (Wert von Textbox5) gespeichert.

Nun ist aber das Problem, wenn die Datei schon existiert, dass nur gefragt wird ob man sie ersetzen will.
Jedoch hätte ich gerne, dass einfach eine fortlaufende Nummer hinzugefügt wird.

Bsp.:

Konvertiert_Meldungen.xlsx <------Datei existiert schon

somit heißt die neue Datei:

Konvertiert_Meldungen_1.xlsx

Kann mir hierbei jemand helfen?

Freundliche Grüße
Muehli

  

Betrifft: AW: Fortlaufende Nummer beim Abspeichern von: Thorsten_Z
Geschrieben am: 28.10.2014 09:39:46

Moin Muehli,

hänge an deinen Dateinamen das Aktuelle Datum und die Uhrzeit an:

...
ActiveWorkbook.SaveAs Filename:=path & "Konvertiert_Meldungen_" & Format(now, "DD-MM-YY hh_mm")
....

Ist jetzt nicht das was du wolltest mit fortlaufender Nummer, darum lasse ich die Frage offen, aber ich denke es ist am einfachsten so.


Gruß
Thorsten


  

Betrifft: AW: Fortlaufende Nummer beim Abspeichern von: Muehli
Geschrieben am: 28.10.2014 09:45:11

Hallo Thorsten,

Gefällt mir übrigens besser als das was ich wollte.

Vielen Dank!

Gruß
Muehli


  

Betrifft: AW: Fortlaufende Nummer beim Abspeichern von: yummi
Geschrieben am: 28.10.2014 09:44:50

Hallo Muehli,

ist zwar ungetestet, sollte aber das liefern was Du möchtest:

Sub Datei_generieren()

Dim bGespeichert As Boolean
Dim strFile As String
Dim iIndex As Integer

'Datei generieren

Range("A1:N5000").Copy    'hier soltlest du noch auf das gewünschte Tabellenblatt referenzieren, _
 da sonst immer vom gerade aktuellen kopiert wird.
Workbooks.Add
ActiveSheet.Paste
Application.CutCopyMode = False
ActiveSheet.Name = "DiscreteAlarms"

With Cells
  .Copy
  .PasteSpecial Paste:=xlPasteValues
End With

    Path = Userform1.TextBox5.Value
    bGespeichert = False
    iIndex = 1
    strFile = "Konvertiert_Meldungen"
    Do While bGespeichert = False
        If Dir(Path & strFile) = "" Then
            ActiveWorkbook.SaveAs Filename:=Path & "Konvertiert_Meldungen"
            bGespeichert = True
        Else
            strFile = "Konvertiert_Meldungen" & iIndex
            iIndex = iIndex + 1
        End If
    Loop
Application.CutCopyMode = False
ActiveWindow.Close

End Sub
Gruß
yummi


 

Beiträge aus den Excel-Beispielen zum Thema "Fortlaufende Nummer beim Abspeichern"