@thowe:

Wenn schon VBA7, dann sollte man für ein hWnd immer den Datentyp longptr nehmen, also

[font=Courier New]Declare PtrSafe Function ShellExecute Lib "shell32.dll" Alias "ShellExecuteA" ( _
[highlight=yellow]ByVal hwnd As LongPtr[/highlight], _
ByVal lpOperation As String, _
ByVal lpFile As String, _
ByVal lpParameters As String, _
ByVal lpDirectory As String, _
ByVal nShowCmd As Long _
) As LongPtr
[/font]

Gruß
Knobbi38

Gerne doch :lol:

Man nehme ...
[list]das Periodensystem der Elemente[/list]
und besichtige die
[list]Ordnungszahlen für Germanium und na- das andere eben[/list]

[glow=red]breites Grinsen[/glow]

Jetzt hilf mir mal bitte auf die Sprünge d' r Bastler...!

-> gut Germaniumist ein neu entdecktes chemisches Element,
-> aber wie darf ich Gadolinium verstehen...?

lg thowe

Moin thowe,

Danke für die Ergänzung, zu der ich hier auch für nicht VBA-Geübte noch die ganz [b]einfache Einbauanleitung step-by-step[/b] anfüge. Nur Mut, die drei Minuten schafft jeder :)

Mit [b]Alt+F11[/b] den [i]VBEditor [/i]öffnen [b]->[/b] im [i]Projektexplorer [/i] [b]VBAProject(thePrintManger.Basic.xlsb)[/b] oben links mit Klick auf das [highlight=yellow]+[/highlight] vor [i]Module [/i]diese Liste öffnen [b]->[/b] per Doppelklick auf [b]mdlFunctions[/b] den Code des Moduls anzeigen.

Dort den Codeblock beginnend mit [i]Declare Function ShellExecute[/i] (vier Zeilen) markieren und mit Klick auf das unten gezeigte Symbol auskommentieren. Der Text erscheint jetzt mit führenden Hochkommata in [color=#00BF80]' grüner [/color]Schrift.

Jetzt thowes zweiten Codeblock beginnend mit [i]#If VBA7 Then [/i](elf Zeilen) oberhalb (ab Zeile 3) einfügen [b]->[/b] Datei speichern. Den VBE mit dem[b][color=#FF0040] X [/color][/b]oben rechts schließen -> fertig!
[align=center][attachment=0]Block auskommentieren.png[/attachment][/align]


@thowe: Bin mit meinem Equipment zwar OS-technisch auch schon im Gadolinium angekommen, Office-technisch aber noch im Germanium. Ich werde die Moderne künftig berücksichtigen :lol:

lg und viel Spaß allerseits!

Declare Function PtrSafe ShellExecute Lib "shell32" 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 LongPtr
                          'sollte auch mit "As Long" funktionieren....

#If VBA7 and win64 Then
	Declare Function PtrSafe ShellExecute Lib "shell32" 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 LongPtr 
                                  'sollte auch mit "As Long" funktionieren....
#Else 
	Declare Function ShellExecute Lib "shell32" 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
#End if

Hallo Heb,

ich habe an diesem 1en Rechner Windows 64bit mit Excel 64bit!

Daher bitte neben der Funktion: [color=#0040FF]Declare Function ShellExecute Lib "shell32" ...[/color] im Modul mdlFunctions noch folgende einfügen:

[code]
Declare Function PtrSafe ShellExecute Lib "shell32" 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 LongPtr
'sollte auch mit "As Long" funktionieren....
[/code]

[b]kurz&knapp:[/b]
zusätzlich die glieche Funktion ergänzt mit PtrSafe einfügen....

Wenn man will und sauberer coden möchte, dann folgender Ansatz:

[code]
#If VBA7 and win64 Then
Declare Function PtrSafe ShellExecute Lib "shell32" 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 LongPtr
'sollte auch mit "As Long" funktionieren....
#Else
Declare Function ShellExecute Lib "shell32" 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
#End if
[/code]

lg

Moin allerseits!

Schon länger in der Pipeline ist jetzt endlich ein kleines Tool namens [b][i]ThePrintManager[/i][/b].basic fertig geworden. Hier ein kurzer Einblick:

[b][align=center]ThePrintManager.basic - Einführung -[/b]
"thePrintManager.bacsic soll helfen, täglich wiederkehrende Druckaufgaben zu vereinfachen,
indem er gespeicherte Druckbereiche gezielt an bestimmte Drucker oder E-Mail-Empfänger
sendet. Als Beispiel:"
"Lager und Versand bekommen Kommisionsliste und Versandschein auf ihre jeweiligen Drucker,
Buchhaltung die Rechnungsdaten und Kunde die Auftragsbestätigung per Mail."
"Zu Definition der Druckbereiche wird der komfortablere Namensmanager genutzt.
thePrintManager übersetzt dieNamensbereiche in Druckbereiche. So sind mehrere
Druckbereiche pro Blatt möglich, auch überlappende."
"Dazu wird der gewünschte Zellbereich ausgewählt und im Namenfeld (das DropDown oberhalb
der Zelle A1) ein sinnvoller Begriff eingegeben - fertig."
"Mit F12 ruft man thePrintManager auf, importiert die Namens/Druckbereiche, ordnet sie ihrem
Ziel zu und kann sofort senden - an einen Drucker und/oder per Mail in einem Schritt."
"Wie man thePrintManager in bereits vorhandene Arbeitsmappen integriert, ist
auf der Seite Setup beschrieben und auch ohne VBA-Kenntnisse machbar."


[attachment=1]ThePrintManager.Basic.jpg[/attachment][/align]

Die Datei gibt es hier zum Download:

[attachment=0]thePrintManager.Basic.xlsb[/attachment]

Viel Spaß damit! und ich bin dankbar für kritisches Feedback :)

LG