VBA-Forum - Das Forum zu Microsoft VBA

VBA Excel VBA Word VBA Access VBA VBScript VB C# Objective-C C++ SQL JAVA VBA (English) Jobs Übersicht

Thema	Datum	Von Nutzer	Rating	Antwort
Speicherung verhindern aber neue Versionen zulassen	24.03.2021 12:18:50	FLIXI
Speicherung verhindern aber neue Versionen zulassen	24.03.2021 17:00:30	volti
Speicherung verhindern aber neue Versionen zulassen	24.03.2021 18:48:27	xlKing
Speicherung verhindern aber neue Versionen zulassen	25.03.2021 10:02:53	FLIXI

Ansicht des Beitrags:

Von:
volti

Datum:
24.03.2021 17:00:30

Views:
534

Rating:

Antwort:

Thema:
Speicherung verhindern aber neue Versionen zulassen

Hallo FLIXI,

so ganz eindeutig ist mir Deine Beschreibung ja nicht, aber vielleicht hast Du es ja so gemeint und kannst diese Anregung hier verwednen und/oder ausbauen.

Code:

01
02
03
04
05
06
07
08
09
10
11
12

Sub Test()
  Dim sFilename As String, sOrgFilename As String

  Const csPath As String = "C:\Excel\"

  sOrgFilename = csPath & "Testdatei_0001.xlsm"

  With ThisWorkbook.Sheets("Historie")
      sFilename = csPath & "Testdatei_" & .Cells(.Cells(.Rows.Count, "A").End(xlUp).Row, "A") & ".xlsm"
      CreateObject("Scripting.FileSystemObject").CopyFile sOrgFilename, sFilename
  End With
End Sub

_________
viele Grüße
Karl-Heinz

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
Speicherung verhindern aber neue Versionen zulassen	24.03.2021 12:18:50	FLIXI
Speicherung verhindern aber neue Versionen zulassen	24.03.2021 17:00:30	volti
Speicherung verhindern aber neue Versionen zulassen	24.03.2021 18:48:27	xlKing
Speicherung verhindern aber neue Versionen zulassen	25.03.2021 10:02:53	FLIXI