Thema Datum  Von Nutzer Rating
Antwort
05.01.2016 09:05:01 Andreas
NotSolved
05.01.2016 11:29:38 Gast1062
*****
NotSolved
05.01.2016 11:30:31 Gast91168
NotSolved
05.01.2016 11:32:57 Gast53011
NotSolved
05.01.2016 11:46:49 Gast67201
NotSolved
05.01.2016 12:39:11 Gast13304
NotSolved
Rot Speichern mit Zellbezug
05.01.2016 13:54:31 Gast37818
NotSolved
06.01.2016 09:45:59 Gast88379
NotSolved
07.01.2016 07:44:18 Gast20435
NotSolved
07.01.2016 12:49:10 Gast87302
NotSolved
08.01.2016 08:07:41 Gast33608
NotSolved

Ansicht des Beitrags:
Von:
Gast37818		 Datum:
05.01.2016 13:54:31		 Views:
826		 Rating:
     
Antwort:
  Ja
Thema:
Speichern mit Zellbezug 
Sub Speichern()

MsgBox "Datei unter folgendem Pfad gespeichert: M:\Ver", vbOKOnly, "Erfolgreich"

Dim alteMappe As String
Dim neueMappe As String
 
alteMappe = ThisWorkbook.Name
 
Workbooks.Add
ActiveWorkbook.SaveAs Filename:="M:\Ver\" & Range("B4") & Range("A2") & Format(Date$, "mm.dd.yy") & ".xlsx" 'hier dein Pfad mt dateiname aber als xlsx
 
neueMappe = ActiveWorkbook.Name
 
Workbooks(alteMappe).Worksheets(1).Range("A1:D25").Copy
Workbooks(neueMappe).Worksheets(1).Range("A1:D25").PasteSpecial Paste:=xlPasteAll
 
Application.CutCopyMode = False
 
Workbooks(alteMappe).Close savechanges:=False
 
 
End Sub

 

So brauche jetzt nur noch ne Lösung für das Speichern des Dateinamens

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
05.01.2016 09:05:01 Andreas
NotSolved
05.01.2016 11:29:38 Gast1062
*****
NotSolved
05.01.2016 11:30:31 Gast91168
NotSolved
05.01.2016 11:32:57 Gast53011
NotSolved
05.01.2016 11:46:49 Gast67201
NotSolved
05.01.2016 12:39:11 Gast13304
NotSolved
Rot Speichern mit Zellbezug
05.01.2016 13:54:31 Gast37818
NotSolved
06.01.2016 09:45:59 Gast88379
NotSolved
07.01.2016 07:44:18 Gast20435
NotSolved
07.01.2016 12:49:10 Gast87302
NotSolved
08.01.2016 08:07:41 Gast33608
NotSolved