|
Thema
|
Datum
|
Von Nutzer
|
Rating
|
Antwort
|
 VBA mehrere Makros über Button starten |
15.10.2018 21:49:51 |
Josefin |
|
|
|
15.10.2018 21:56:22 |
Gast50323 |
|
|
|
15.10.2018 22:00:52 |
Gast94439 |
|
|
|
16.10.2018 15:10:56 |
Gast94369 |
|
|
Von:
Josefin |
Datum:
15.10.2018 21:49:51 |
Views:
826 |
Rating:
|
Antwort:
|
Thema:
VBA mehrere Makros über Button starten |
|
Hallo,
ich habe einige Makros erstellt die ich alle über einen Button starten möchte.
Habe bereits einige Commands versucht wie zum Beispiel:
Sub CommandButton1_Click_Druck()
Drucken
Drucken_2
Drucken_3
End Sub
Leider geht er nur auf das erste Makro und ignoriert die restlichen einfach. Leider weiß ich nicht woran das liegt und konnte keine Lösung dazu finden.
Hier eins der Makros die gestartet werden sollen, die anderen enthalten nur verschiedene Reports der Rest ist gleich:
Private Declare Function ShellExecute Lib "shell32.dll" Alias "ShellExecuteA" ( _
ByVal hwnd As Long, _
ByVal lpOperation As String, _
ByVal lpFile As String, _
ByVal lpParameters As String, _
ByVal lpDirectory As String, _
ByVal nShowCmd As Long) As Long
Sub Drucken()
Dim Product As String
Dim day As Date
Dim daystr As String
Dim I As Integer
For I = 1 To 10
day = Date - I
daystr = Right(day, 4) & Mid(day, 4, 2) & Left(day, 2)
If Dir("Folder" & daystr & report1") <> "" Then Exit For
Next I
Product = "Folder" & daystr & Report1"
Call ShellExecute(0, "Print", Product, "", "", 0)
Application.Wait Now + TimeValue("0:00:10")
Call Shell("TaskKill /F /IM acroRD32.exe", vbHide)
End Sub
Vielen Dank für die Hilfe :) |
- 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
Bitte geben Sie ein aussagekräftiges Thema an.
Bitte geben Sie eine gültige Email Adresse ein!
- 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
|
VBA mehrere Makros über Button starten |
15.10.2018 21:49:51 |
Josefin |
|
|
|
15.10.2018 21:56:22 |
Gast50323 |
|
|
|
15.10.2018 22:00:52 |
Gast94439 |
|
|
|
16.10.2018 15:10:56 |
Gast94369 |
|
|