strDateiname aus Zellen

Bild

Betrifft: strDateiname aus Zellen
von: Hans
Geschrieben am: 09.11.2015 15:28:47

Hallo,
ich habe folgende VBA Zeile in einem Makro
strDateiname = ThisWorkbook.FullName & ActiveSheet.Range("H24") & ActiveSheet.Range("I24") & "-" & ActiveSheet.Range("G26") & ".pdf"
Ich möchte nun aber den Namen ohne den Workbook Namen. Hat jemand einen Tipp dazu.
Vielen Dank!
VG Hans

Bild

Betrifft: AW: strDateiname aus Zellen
von: Rudi Maintaire
Geschrieben am: 09.11.2015 15:31:49
Hallo,
strDateiname = ThisWorkbook.Path &"\" & ActiveSheet.Range("H24") & ActiveSheet.Range("I24") & "-" & ActiveSheet.Range("G26") & ".pdf"
Gruß
Rudi

Bild

Betrifft: AW: strDateiname aus Zellen
von: Hans
Geschrieben am: 09.11.2015 15:55:22
Hallo Rudi,
super passt genau, vielen Dank! Noch ne Frage. Wenn ich diese Datei nun automatisch speichern möchte
mit diesem Namen was muss ich denn noch erfassen als Code?
VG Hans

Bild

Betrifft: AW: strDateiname aus Zellen
von: Rudi Maintaire
Geschrieben am: 09.11.2015 16:06:52
Hallo,

Sub aaa()
  Dim strDateiName As String
  With ActiveSheet
    strDateiName = ThisWorkbook.Path & "\" & .Range("H24") & .Range("I24") & "-" & .Range("G26") _
 & ".pdf"
  End With
  ActiveWorkbook.ExportAsFixedFormat Type:=xlTypePDF, Filename:=strDateiName, openafterpublish:= _
False
End Sub

Gruß
Rudi

Bild

Betrifft: AW: strDateiname aus Zellen
von: Hans
Geschrieben am: 09.11.2015 16:27:48
Hallo Rudi,
wo wird die Datei denn gespeichert?
Kann ich einen Pfad angeben?
VG Hans

Bild

Betrifft: AW: strDateiname aus Zellen
von: Rudi Maintaire
Geschrieben am: 09.11.2015 16:43:34
wo wird die Datei denn gespeichert?
im gleichen Ordner wie die xlsm.
Kann ich einen Pfad angeben?
hier: strDateiName = ThisWorkbook.Path & "\" &.....
Gruß
Rudi

Bild

Betrifft: AW: strDateiname aus Zellen
von: Hans
Geschrieben am: 09.11.2015 17:05:03
Hallo Rudi,
vielen lieben Dank! Funktioniert alles.
VG Hans

 Bild

Beiträge aus den Excel-Beispielen zum Thema "strDateiname aus Zellen"