Mit Makro Dateiname aus dem Wert einer Zelle erstellen

Hallo Andreas

Hat funktioniert, vielen Dank!

lg hausi

Bitte probiere den Code unten.

Andreas.

Sub Datei_speichern2()
ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:= _
"\\Speicherpfad\Unterordner\" & Range("J4") & ".pdf", _
Quality:=xlQualityStandard, IncludeDocProperties:=True, IgnorePrintAreas _
:=False, OpenAfterPublish:=True
End Sub

Hallo

Wenn Sie das aktuelle Datum mithilfe von VBA in die angegebenen Spalten (A, N, V) und Zeilen (4-999) einfügen möchten, können Sie ein Makro erstellen, um dies zu erreichen. Hier ist ein Beispiel für einen VBA-Code, den Sie verwenden können:
Sub InsertCurrentDate()

Abblenden von WS als Arbeitsblatt
Dim rngA As Range, rngN As Range, rngV As Range, Zelle As Range

Set ws = ActiveSheet
Setzen Sie rngA = ws. Bereich("A4:A999")
Setzen Sie rngN = ws. Bereich("N4:N999")
Setzen Sie rngV = ws. Bereich("V4:V999")

Für jede Zelle in rngA
Zelle. Wert = Datum
Nächste Zelle

Für jede Zelle in rngN
Zelle. Wert = Datum
Nächste Zelle

Für jede Zelle in rngV
Zelle. Wert = Datum
Nächste Zelle

Ende Sub

Wenn Sie das aktuelle Datum mithilfe von VBA in die angegebenen Spalten (A, N, V) und Zeilen (4-999) einfügen möchten, können Sie ein Makro erstellen, um dies zu erreichen. Hier ist ein Beispiel für VBA-Code, den Sie verwenden können:

Sub InsertCurrentDate()

Abblenden von WS als Arbeitsblatt
Dim rngA As Range, rngN As Range, rngV As Range, Zelle As Range

Set ws = ActiveSheet
Setzen Sie rngA = ws. Bereich("A4:A999")
Setzen Sie rngN = ws. Bereich("N4:N999")
Setzen Sie rngV = ws. Bereich("V4:V999")

Für jede Zelle in rngA
Zelle. Wert = Datum
Nächste Zelle

Für jede Zelle in rngN
Zelle. Wert = Datum
Nächste Zelle

Für jede Zelle in rngV
Zelle. Wert = Datum
Nächste Zelle

Ende Sub

Gehen Sie folgendermaßen vor, um diesen VBA-Code in Ihrer Excel-Arbeitsmappe zu verwenden:

Drücken Sie ALT+F11, um den VBA-Editor (Visual Basic für Applikationen) zu öffnen.

Gehen Sie auf "Einfügen" > "Modul", um ein neues Modul einzufügen.

Kopieren Sie den oben bereitgestellten VBA-Code und fügen Sie ihn in das Modul ein.

Drücken Sie STRG+S, um die Arbeitsmappe zu speichern.

Schließen Sie den VBA-Editor.

Jetzt können Sie das Makro ausführen, indem Sie ALT + F8 drücken, das Makro mit dem Namen InsertCurrentDate auswählen und auf "Ausführen" klicken. Dadurch wird das aktuelle Datum in die angegebenen Zellen eingefügt.

Wenn Sie das Makro speziell durch Doppelklicken auf eine Zelle ausführen möchten, können Sie dies mithilfe des BeforeDoubleClick-Ereignisses des Arbeitsblatts tun. Diese Methode erfordert jedoch komplexeren VBA-Code und eine komplexere Anpassung. Lassen Sie es mich wissen, wenn Sie dabei Hilfe benötigen, und ich kann Ihnen weitere Anleitungen geben.

Alles Gute
Segunfunmi

Diese Antwort ist automatisch übersetzt worden. Daher kann sie grammatikalische Fehler oder fremde Ausdrücke enthalten.

Hallo Josef,

du hast leider immer noch nicht geschrieben wie die Dateinamen in der Mappe vorliegen. Wenn sie in der Zelle stehen komplett mit der Dateiendung, könntest du folgendes Makro in deine PERSONAL.xlsb speichern, damit es in allen Mappen zur Verfügung steht,
dem Makro einen Shortcut zuweisen, den Bereich auswählen und dann den Shortcut drücken. Damit werden dir auf einen Rutsch alle Dateinamen zu Hyperlinks gewandelt:

Sub Hyp()

Dim rngC As RangeConst Pfad = "E:\Alles\Archiv und Sc\"
If Selection.Cells.Count = 1 Then

    MsgBox "Keinen Bereich ausgewählt"

    Exit Sub

End If
For Each rngC In Selection

    ActiveSheet.Hyperlinks.Add _

        anchor:=rngC, _

        Address:=Pfad & rngC.Value, _

        TextToDisplay:=rngC.Value

Next

        

End Sub

Falls der Dateinamen in der Zelle keine Dateiendung hat, aber die Dateiendung bei alle Dateien im Bereich gleich ist, könntest du die Endung bei der Zuweisung der Adresse in den Code einfügen. Das Makro wird beendet, wenn nur eine einzelne Zelle angewählt
ist.

Claus

Hallo Ernst,

folgendes Beispiel:

Sub DateiSpeichern()

ActiveWorkbook.SaveAs Filename:="Datensicherung vom " & Format(Date, "yyyymmdd")

End Sub

Bliebe noch zu klären, mit welchem Namen die Datensicherung durchzuführen ist, falls an einem Tag mehrmals Arbeitsmappen gespeichert werden sollen.



Mit freundlichem Gruß aus der Rattenfängerstadt Hameln



(www.at-exceltraining.de)


Ist deine Frage mit diesem Beitrag beantwortet, markiere sie für alle Mitleser als Antwort
. (Du kannst auch mehrere Beiträge als Antwort markieren)