Thema Datum  Von Nutzer Rating
Antwort
Rot Dateinamen aus Zelle
17.09.2021 14:44:56 Steven
NotSolved
17.09.2021 14:47:25 Gast79913
NotSolved
17.09.2021 14:50:58 Gast64188
NotSolved
17.09.2021 14:56:28 Gast74803
NotSolved
17.09.2021 15:04:48 Steven
NotSolved
17.09.2021 15:16:56 Gast61941
*****
Solved

Ansicht des Beitrags:
Von:
Steven
Datum:
17.09.2021 14:44:56
Views:
170
Rating: Antwort:
  Ja
Thema:
Dateinamen aus Zelle

Hi, ich möchte gerne den Dateinamen inkl. mit einem spezifischen Datum aus einer Zelle, sowie einer weiteren ergänzen. Also etwa so:

Dateiname= bestehender Dateinamen_Zelle A_Zelle B.xls

Hier mein bisheriger Code, der leider noch nicht ganz funktioniert (fett markiert) ;-)

Sub PPS()
'
' PPS Makro
'
   Dim sDatei As String, sZielDatei As String
   Dim Pos
   sPfad = ActiveWorkbook.Path & "\"
   sDatei = ActiveWorkbook.Name
   Pos = InStrRev(sDatei, ".", , vbTextCompare)
   sZielDatei = sPfad & Mid(sDatei, 1, Pos - 1)
   sZielDatei = sZielDatei _
     & "_" & Range(D5) _
     & "_" & Range(I10)

   ActiveWorkbook.SaveAs Filename:=sZielDatei & ".xls", _
     FileFormat:=xlNormal, Password:="", WriteResPassword:="", _
     ReadOnlyRecommended:=False, CreateBackup:=False
   ActiveWorkbook.Close
'
End Sub

 

VIelen Dank für euere Unterstützung.


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 Dateinamen aus Zelle
17.09.2021 14:44:56 Steven
NotSolved
17.09.2021 14:47:25 Gast79913
NotSolved
17.09.2021 14:50:58 Gast64188
NotSolved
17.09.2021 14:56:28 Gast74803
NotSolved
17.09.2021 15:04:48 Steven
NotSolved
17.09.2021 15:16:56 Gast61941
*****
Solved