Live-Forum - Die aktuellen Beiträge
Datum
Titel
28.03.2024 21:12:36
28.03.2024 18:31:49
Anzeige
Archiv - Navigation
1468to1472
Aktuelles Verzeichnis
Verzeichnis Index
Übersicht Verzeichnisse
Vorheriger Thread
Rückwärts Blättern
Nächster Thread
Vorwärts blättern
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Inhaltsverzeichnis

Makro Datei speichern unter Feldname /-inhalt

Makro Datei speichern unter Feldname /-inhalt
15.01.2016 14:50:12
Frank
Hallo,
ich möchte eine Exceldatei (diese wird nach Bearbeitung wieder in Ursprungszustand zurückversetzt) speichern unter einem Dateinamen, der sich in dem Feld I14 mit dem Formel-Inhalt ( =VERKETTEN(E14;H14;C14;H14;D14;H14;G14))ergibt.
Das Feld I14 enthält durch Semikolon getrennt alphanumeriche Daten einschließlich dem führenden Ergebnis aus der Formel =jetzt().
Das Zielverzeichnis lautet C:\
Beispiel für eine Datei, sichtbar im Explorer wäre somit:
C:\42384,6149859954;Gaertner;HB;Josef.xls
Ein Tip wäre super

2
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Makro Datei speichern unter Feldname /-inhalt
15.01.2016 15:28:10
fcs
Hallo Frank,
nachfolgend ein entsprechendes Makro.
Zur besseren Lesbarkeit würde ich an deiner Stelle im Dateinamen den Wert von E14 formatiert einfügen.
Formel in I114: =VERKETTEN(TEXT(E14;"JJJJMMTT_hhmmss");H14;C14;H14;D14;H14;G14)
Gruß
Franz
Sub Save_Copy_As()
Dim Pfad As String
Dim Datei As String
'  Pfad = "D:\Test\" 'Testzeile
Pfad = "C:\"
Datei = ActiveSheet.Range("I114").Text
Select Case ActiveWorkbook.FileFormat
Case Is  "" Then
ActiveWorkbook.SaveCopyAs Filename:=Pfad & Datei
End If
End Sub

AW: Makro Datei speichern unter Feldname /-inhalt
18.01.2016 13:03:56
Frank
Herzlichen Dank
funktioniert mit
Datei = ActiveSheet.Range("I14").Text
Viele Grüße
Frank
Anzeige

322 Forumthreads zu ähnlichen Themen

Anzeige
Anzeige
Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige