Command Buttun - Applikation run
16.09.2005 15:37:29
gunter
ich habe eine Vorlage _Auftrag_KD_.xls für das erfassen von Aufträgen erstellt. Darin habe ich unter anderem einen Button erstellt, der ein Makro zum drucken ansteuert. Das ganze funktioniert auch, solange die Datei noch _Auftrag_KD_.xls heisst. Nenne ich diese um, dann funktionert das nicht mehr, weil die Applikation den Dateinamen _Auftrag_KD_.xls verlangt. Anbei die beiden Makros.
Wer hat einen Tipp für mich, damit der Druckmakro auch dann läuft, wenn die Datei Liesschen_Müller.xls heisst?
Private Sub CommandButton4_Click()
Application.Run "_Auftrag_KD_.xls!Modul5.Druck1"
End Sub
Sub Druck1()
'
' Druck1 Makro
' Makro am 16.06.2005 von Gunter Blumhagen aufgezeichnet
'
Range( _
"X64:AA65,AD64:AG65,AJ64:AM65,AP64:AS65,AH66:AL67,AP66:AS67,AU58:AY67"). _
Select
Range("AU58").Activate
Selection.Interior.ColorIndex = 2
Dim z As Range
Cancel = True
For Each z In ActiveSheet.UsedRange
If z.Font.ColorIndex = 3 Then z.Font.ColorIndex = 2
Next z
Application.EnableEvents = False
Sheets("Seite 1 KD").Select
Range("A1:CT74").Select
ActiveSheet.PageSetup.PrintArea = "$A$1:$CT$74"
With ActiveSheet.PageSetup
.CenterHorizontally = True
.CenterVertically = True
.PaperSize = xlPaperA4
.FitToPagesWide = 1
.FitToPagesTall = 1
.PrintErrors = xlPrintErrorsDisplayed
End With
ActiveWindow.SelectedSheets.PrintPreview
Application.EnableEvents = True
For Each z In ActiveSheet.UsedRange
If z.Font.ColorIndex = 2 Then z.Font.ColorIndex = 3
Next z
Range( _
"X64:AA65,AD64:AG65,AJ64:AM65,AP64:AS65,AH66:AL67,AP66:AS67,AU58:AY67"). _
Select
Range("AU58").Activate
Selection.Interior.ColorIndex = 34
End Sub
Gruß Gunter