Gruppen
- Top Gruppen
- Betriebsysteme
- Windows classik
- Linux
- BS-Sonstige
- Software
- Datenbanken
- Bildbearbeitung
- Audio/mp3/Video
- Security/Viren
- SW-Sonstige
- Hardware
- Mainboard/CPU
- Grafikkarten
- Peripherie
- Laptop/Notebook
- HW-Sonstiges
- Netzwerk
- Telefon,ISDN,Modem
- W-Lan
- NW-Sonstiges
- Programmierung
- PHP,ASP,Perl...
- Java,C++...
- Webseiten/HTML
- Sonstiges
- PC-Sonstiges
- Plauderecke
- SN Intern
- Test
/ Forum / Tabellenkalkulation
Tabellenkalkulation
Fragevon Tomschi vom 28.08.2019, 06:49 Options
Ausstieg Makro + allgem. Makro-Frage
Guten Morgen!
Im www habe ich einen Teil des nachstehenden Makros gefunden.
Sub Makro4()
Application.ScreenUpdating = False
Dim sPrinter As String
Dim Dialog
sPrinter = Application.ActivePrinter
Dialog = Application.Dialogs(xlDialogPrinterSetup).Show
If Dialog = vbCancel Then GoTo Ende
ActiveSheet.PrintPreview
Application.ActivePrinter = sPrinter
Application.ScreenUpdating = True
Exit Sub
Ende:
Msgbox "Makro-Lauf abgebrochen", 16, "Hinweis:"
End Sub
Wie muss ich das Makro abändern, damit bei "Abbrechen" zu "Ende" gesprungen wird?
allgem. Makro-Frage:
Im Forum habe ich erfahren, dass ein Makro auch andere Makros mit call aufrufen kann. Leider funktioniert dies nicht bei mir.
Beispiel:
Sub alle()
call Kopfzeile
End Sub
Fehlermeldung:
Fehler beim Kopilieren:
Variable oder Prozedur anstelle eines Moduls erwartet.
Was habe ich falsch gemacht?
Wenn ich den Markonamen von Kopfzeile auf z. B. Makro3 umbennen und Makro3 aufrufe, funktioniert alles.
Thanx
Tom
Im www habe ich einen Teil des nachstehenden Makros gefunden.
Sub Makro4()
Application.ScreenUpdating = False
Dim sPrinter As String
Dim Dialog
sPrinter = Application.ActivePrinter
Dialog = Application.Dialogs(xlDialogPrinterSetup).Show
If Dialog = vbCancel Then GoTo Ende
ActiveSheet.PrintPreview
Application.ActivePrinter = sPrinter
Application.ScreenUpdating = True
Exit Sub
Ende:
Msgbox "Makro-Lauf abgebrochen", 16, "Hinweis:"
End Sub
Wie muss ich das Makro abändern, damit bei "Abbrechen" zu "Ende" gesprungen wird?
allgem. Makro-Frage:
Im Forum habe ich erfahren, dass ein Makro auch andere Makros mit call aufrufen kann. Leider funktioniert dies nicht bei mir.
Beispiel:
Sub alle()
call Kopfzeile
End Sub
Fehlermeldung:
Fehler beim Kopilieren:
Variable oder Prozedur anstelle eines Moduls erwartet.
Was habe ich falsch gemacht?
Wenn ich den Markonamen von Kopfzeile auf z. B. Makro3 umbennen und Makro3 aufrufe, funktioniert alles.
Thanx
Tom
Antwort 1 von coros vom 28.08.2019, 07:59 Options
Hallo Tom,
nachfolgend das geänderte Makro, dass bei Betätigen der Abbrechen-Taste das Makro beenden sollte. Es wurde lediglich um die Auswertung
ergänzt, da der Dialog die Eigenschaft "False" annimmt, wenn man auf die Schaltfläche drückt.
Zu dem 2. Problem, Du hast nicht zufällig als Modulnamen und als Makronamen den Namen "Kopfzeile" benutzt? Das darf nämlich nicht sein. Der Modulname muss anders lauten als der Makroname. Aufgerufen werden darf dann auch nur der Makroname, nicht aber der Modulname.
MfG,
Oliver
Da hier der einzige Lohn für die Helfer eine Rückmeldung ist, wäre es nett, wenn Du
ein Feedback abgeben könntest, ob der Lösungsvorschlag Dein Problem gelöst hat.
nachfolgend das geänderte Makro, dass bei Betätigen der Abbrechen-Taste das Makro beenden sollte. Es wurde lediglich um die Auswertung
[b]Or Dialog = False [/b]ergänzt, da der Dialog die Eigenschaft "False" annimmt, wenn man auf die Schaltfläche drückt.
Option Explicit
Sub Makro4()
Application.ScreenUpdating = False
Dim sPrinter As String
Dim Dialog
sPrinter = Application.ActivePrinter
Dialog = Application.Dialogs(xlDialogPrinterSetup).Show
If Dialog = vbCancel Or Dialog = False Then GoTo Ende
ActiveSheet.PrintPreview
Application.ActivePrinter = sPrinter
Application.ScreenUpdating = True
Exit Sub
Ende:
MsgBox "Makro-Lauf abgebrochen", 16, "Hinweis:"
End SubZu dem 2. Problem, Du hast nicht zufällig als Modulnamen und als Makronamen den Namen "Kopfzeile" benutzt? Das darf nämlich nicht sein. Der Modulname muss anders lauten als der Makroname. Aufgerufen werden darf dann auch nur der Makroname, nicht aber der Modulname.
MfG,
Oliver
Da hier der einzige Lohn für die Helfer eine Rückmeldung ist, wäre es nett, wenn Du
ein Feedback abgeben könntest, ob der Lösungsvorschlag Dein Problem gelöst hat.
Ähnliche Themen
Makros - zweiten Drucker als Symbol in die Symbolleiste einfügen
Mikoop 24.11.2006 - 4090 Hits - 1 Antwort
Makro macht nur einen Schritt
je_tau 06.03.2007 - 103 Hits -
kann wegen makro nicht drucken - was machen?
srepsac 26.06.2007 - 118 Hits - 1 Antwort
Makro Ausstieg - die 2
Tomschi 29.08.2007 - 47 Hits - 6 Antworten
Hinweis
Diese Frage ist schon etwas älter, Sie können daher nicht mehr auf sie antworten. Sollte Ihre Frage noch nicht gelöst sein, stellen Sie einfach eine neue Frage im Forum..
Neue Einträge
