Thema Datum  Von Nutzer Rating
Antwort
Rot Datei unter anderem Namen speichern (wenn schon vorhanden)
05.11.2021 09:10:14 Matto
NotSolved
05.11.2021 12:30:40 Gast27886
NotSolved
05.11.2021 15:42:21 Matto
NotSolved
05.11.2021 16:03:01 Gast4992
NotSolved
12.11.2021 10:33:58 Matto
NotSolved

Ansicht des Beitrags:
Von:
Matto
Datum:
05.11.2021 09:10:14
Views:
93
Rating: Antwort:
  Ja
Thema:
Datei unter anderem Namen speichern (wenn schon vorhanden)

Hallo zusammen,

ich habe einen VBA-Code, der aus der aktuellen Datei einen Export zieht und nur bestimmte Spalten in einer anderen Datei abspeichert (Dateipfad steht in einer Zelle) . Problem ist dabei, wenn diese Datei schon vorhanden ist, dann überspeichert er diese. Ich möchte es gerne so hinbekommen, dass er am Ende des Dateinamens z.B eine (2, 3,4,5,6...) schreibt. Also dass ich beliebig oft den gleichen Export ziehen kann, ohne den Dateipfad bzw. Namen zu ändern. Mit diesem Code klappt es einwandfrei, dass er die Datei jeweils dort abspeichert. 

--------------------------------------

Dim ws As Worksheet
Dim new_wb As Workbook
Dim sheetname As String, fname As String, save_as As String
Dim lastrow As Long, lastcol As Long, i As Long

Workbooks.Add
save_as = ThisWorkbook.Sheets("Input Mask").Range("A14")
ActiveWorkbook.SaveAs (save_as)


(...................)
    End If

With ActiveWorkbook
    .Sheets("Tabelle1").Delete
    .Save
    .Close
End With

(...................)

End Sub

--------------------------------------

Wie oben beschrieben - der Dateinamen und Pfad steht in der "Input Mask" in Range A14. Das soll auch alles so bleiben, er soll halt lediglich wenn diese Datei schon im Zielordner vorhanden ist den Namen um Ende um +1 erweitern.

Danke für Eure Hilfe!!

Matto


Ihre Antwort
  • Bitte beschreiben Sie Ihr Problem möglichst ausführlich. (Wichtige Info z.B.: Office Version, Betriebssystem, Wo genau kommen Sie nicht weiter)
  • Bitte helfen Sie ebenfalls wenn Ihnen geholfen werden konnte und markieren Sie Ihre Anfrage als erledigt (Klick auf Häckchen)
  • Bei Crossposting, entsprechende Links auf andere Forenbeiträge beifügen / nachtragen
  • Codeschnipsel am besten über den Code-Button im Text-Editor einfügen
  • Die Angabe der Emailadresse ist freiwillig und wird nur verwendet, um Sie bei Antworten auf Ihren Beitrag zu benachrichtigen
Thema: Name: Email:

 
 

  • Bitte beschreiben Sie Ihr Problem möglichst ausführlich. (Wichtige Info z.B.: Office Version, Betriebssystem, Wo genau kommen Sie nicht weiter)
  • Bitte helfen Sie ebenfalls wenn Ihnen geholfen werden konnte und markieren Sie Ihre Anfrage als erledigt (Klick auf Häckchen)
  • Bei Crossposting, entsprechende Links auf andere Forenbeiträge beifügen / nachtragen
  • Codeschnipsel am besten über den Code-Button im Text-Editor einfügen
  • Die Angabe der Emailadresse ist freiwillig und wird nur verwendet, um Sie bei Antworten auf Ihren Beitrag zu benachrichtigen

Thema Datum  Von Nutzer Rating
Antwort
Rot Datei unter anderem Namen speichern (wenn schon vorhanden)
05.11.2021 09:10:14 Matto
NotSolved
05.11.2021 12:30:40 Gast27886
NotSolved
05.11.2021 15:42:21 Matto
NotSolved
05.11.2021 16:03:01 Gast4992
NotSolved
12.11.2021 10:33:58 Matto
NotSolved