CommandButton -> PDF - kleiner nerviger Fehler

Informationen und Beispiele zu den hier genannten Dialog-Elementen:
Bild

Betrifft: CommandButton -> PDF - kleiner nerviger Fehler
von: Annett
Geschrieben am: 19.11.2015 14:33:15

Hallo ihr lieben VBA-Meister :-)
Habe in meiner Tabelle einen Button welcher das Dokument als
PDF-Datei abspeichert.
Den Dateinamen, der sich je Bearbeitung ändert, holt er sich aus
einer Zelle. Soweit klappt alles . . .
Zu 96% fehlt immer der erste Buchstabe. Als kleine Abhilfe habe
ich bevor der richtige Dateiname ausgelesen wird den Buchstaben "x"
gesetzt ;-)
Jedoch kommt es nervig oft vor, das auch mal der zweite und dritte Buchstabe
wie von Geisterhand verschwindet :-o
Hier mal der Code


Private Sub CommandButton01_Click()
If Not SaveAsUI Then
Cancel = True
Application.SendKeys Range("B55:C55").Value
   Dim FileSaveName As String
   FileSaveName = Application.GetSaveAsFilename( _
     fileFilter:="PDF Files (*.pdf), *.pdf")
   If FileSaveName <> "Falsch" Then
   ActiveSheet.ExportAsFixedFormat _
       Type:=xlTypePDF, _
       Filename:=FileSaveName, _
       quality:=xlQualityStandard
   End If
End If
End Sub

Bild

Betrifft: AW: CommandButton -> PDF - kleiner nerviger Fehler
von: Rudi Maintaire
Geschrieben am: 19.11.2015 14:40:31
Hallo,
was soll das bewirken?

Application.SendKeys Range("B55:C55").Value
Gruß
Rudi

Bild

Betrifft: AW: CommandButton -> PDF - kleiner nerviger Fehler
von: Annett
Geschrieben am: 19.11.2015 14:56:55
Hallo Rudi,
diese Zeile bewirkt, aus welchen Zellen der Dateiname ausgelesen werden soll.

Bild

Betrifft: AW: CommandButton -> PDF - kleiner nerviger Fehler
von: Rudi Maintaire
Geschrieben am: 19.11.2015 15:18:39
Hallo,
mach mal so:

     FileSaveName = Application.GetSaveAsFilename( _
       fileFilter:="PDF Files (*.pdf), *.pdf", _
       InitialFileName:=Range("B55") & Range("C55"))
Gruß
Rudi

Bild

Betrifft: AW: CommandButton -> PDF - kleiner nerviger Fehler
von: Annett
Geschrieben am: 19.11.2015 15:37:24
@ Rudi
Hab vielen vielen lieben Dank :-))
Klappt Super :-)

 Bild

Beiträge aus den Excel-Beispielen zum Thema "CommandButton -> PDF - kleiner nerviger Fehler"