Ich habe wieder einmal ein Kleines Problemchen! Ich denke für euch ist das eine Kleinigkeit aber für mich ein Riesenproblem.
Ich habe eine Tabelle mit Command-Buttons Nr. 1 - 135 darauf.
Jeder Button führt ein Makro aus.
Nun sollte aber zuerst beim Drücken eines Buttons abgefragt werden ob eine Tabelle mit dem Namen "Daten.xls" schon offen ist.
Ist "Daten.xls" noch nicht offen so soll eine Meldung erscheinen "Druckmodus ist noch nicht aktiv" und bei klick auf OK soll das Makro beendet werden.
Ist "Daten.xls" jedoch offen soll mit dem abarbeiten des Makros begonnen werden.
Hier ist der Code eines Makros das abgearbeitet werden soll aber erst nach der Prüfung.
Sub Makro6001()
Windows("Daten.XLS").Activate
Range("A1:V34").Select
Sheets("01").Select
With ActiveSheet.PageSetup
.PrintTitleRows = ""
.PrintTitleColumns = ""
End With
ActiveSheet.PageSetup.PrintArea = ""
With ActiveSheet.PageSetup
.LeftHeader = ""
.CenterHeader = ""
.RightHeader = ""
.LeftFooter = ""
.CenterFooter = ""
.RightFooter = ""
.LeftMargin = Application.InchesToPoints(0.275590551181102)
.RightMargin = Application.InchesToPoints(0)
.TopMargin = Application.InchesToPoints(0.078740157480315)
.BottomMargin = Application.InchesToPoints(0)
.HeaderMargin = Application.InchesToPoints(0.078740157480315)
.FooterMargin = Application.InchesToPoints(0)
.PrintHeadings = False
.PrintGridlines = True
.PrintNotes = False
'.Druckqualität = 300
.CenterHorizontally = True
.CenterVertically = False
.Orientation = xlLandscape
.Draft = False
.PaperSize = xlPaperA5
.FirstPageNumber = xlAutomatic
.Order = xlDownThenOver
.BlackAndWhite = False
.Zoom = 80
frmDruckmenü.Show
End With
Windows("Drucken.XLS").Activate
End Sub
Vielen herzlichen Dank schon im voraus
MfG Wild Rolf