Thema Datum  Von Nutzer Rating
Antwort
Rot Makro produziert zwei ungewollte Schaltflächen
 11.06.2014 09:25:31 VBAnfänger
Solved
11.06.2014 14:51:57 Gast69597
NotSolved
11.06.2014 16:03:16 Gast47253
NotSolved

Ansicht des Beitrags:
Von:
VBAnfänger		 Datum:
11.06.2014 09:25:31		 Views:
2325		 Rating:
     
Antwort:
 Nein
Thema:
Makro produziert zwei ungewollte Schaltflächen

Hallo,

ich habe ein Makro geschrieben, das aus einem Arbeitsbuch heraus eine ausgefüllte Rechnung als Exceldatei (xlsm) und als PDF speichern soll. Tut es auch. Es hinterläßt aber nach Scriptausführung im Arbeitsbuch auf der Rechnung zwei ineinander verschobene Schaltflächen (Schaltfläche1 und Schaltfläche2).

Was habe ich grundsätzlich falsch gemacht. Weiss jemand eine Lösung? Hier ist der Code:

 

?
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
Sub NeueRgSpeichernUndPDF()
'
' NeueRgSpeichernUndPDF Makro
'
Dim RechnungsNum As String
RechnungsNum = Range("e9")
 
Dim AuftragGeber As String
AuftragGeber = Range("e10")
 
With ActiveSheet
     
    Sheets("Rechnung").Select
    Application.CutCopyMode = False
    ActiveSheet.Buttons.Add(564, 155.25, 66, 13.5).Select
    ActiveSheet.Buttons.Add(508.5, 156.75, 66, 13.5).Select
    Sheets("Rechnung").Copy
    ActiveWorkbook.SaveAs Filename:="S:\Rechnungen_und_Optionen\Rechnungen\2014\" + RechnungsNum + "_" + AuftragGeber + ".xlsm", FileFormat _
        :=xlOpenXMLWorkbookMacroEnabled, CreateBackup:=False
    ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:= _
    "S:\Rechnungen_und_Optionen\Rechnungen\2014\RechnungsPDFs\" + RechnungsNum + "_" + AuftragGeber + ".pdf", Quality:=xlQualityStandard, _
    IncludeDocProperties:=True, IgnorePrintAreas:=False, OpenAfterPublish:= _
    True
     
    End With
     
End Sub

 

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:
WYSIWYG-Editor, ctl00_Content_editor1



  • 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
Rot Makro produziert zwei ungewollte Schaltflächen
 11.06.2014 09:25:31 VBAnfänger
Solved
11.06.2014 14:51:57 Gast69597
NotSolved
11.06.2014 16:03:16 Gast47253
NotSolved