Anzeige
Archiv - Navigation
236to240
Aktuelles Verzeichnis
Verzeichnis Index
Übersicht Verzeichnisse
Vorheriger Thread
Rückwärts Blättern
Nächster Thread
Vorwärts blättern
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
236to240
236to240
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Inhaltsverzeichnis

Function anstoßen

Function anstoßen
27.03.2003 14:45:39
Frederik Fuhrmann
Hallo!

Kann mir jemand sagen warum ich bei der Zeile "Diagrammdruck (Zähler)" einen Laufzeitfehler habe?
Schmiede, Riwa... sind Funktionen die ich damit anstoßen will!



Private Sub Blatt2_Drucken_Click()
Dim Diagrammdruck As Variant, Zähler
Dim wks As Worksheet

Diagrammdruck = Array("Schmiede", "Riwa", "FSH", "Werk_Bockenau")


For Zähler = 0 To 3
    Diagrammdruck (Zähler)
        With ActiveSheet.PageSetup
            .FitToPagesWide = 1
            .FitToPagesTall = 1
        End With
        For Each wks In ActiveWorkbook
            ActiveSheet.PrintOut
        Next wks
Next Zähler

End Sub
 


Danke im Vorraus & Gruß
Frederik


2
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
Re: Function anstoßen
27.03.2003 15:14:10
Marcus Schmitt

Problem:

Deine Array-Variable nennt sich "Diagrammdruck".
Du versuchst eine Sub aufzurufen mit dem gleichen Namen.

So sieht's besser aus:

Private Sub Blatt2_Drucken_Click()
Dim DiagrammDruck As Variant, Zähler
Dim wks As Worksheet
DiagrammDruck = Array("Schmiede", "Riwa", "FSH", "Werk_Bockenau")
For Zähler = 0 To 3
Call DiagrammDrucker(Zähler)
With ActiveSheet.PageSetup
.FitToPagesWide = 1
.FitToPagesTall = 1
End With
For Each wks In ActiveWorkbook
ActiveSheet.PrintOut
Next wks
Next Zähler

End Sub


Sub DiagrammDrucker(DiagrammName)
'...
End Sub



Anzeige
Re: Function anstoßen
28.03.2003 07:34:53
Frederik Fuhrmann

Hallo Marcus!

So geht`s aber auch nicht!

Es kommt die Fehlermeldung Property, Sub oder Function erwartet!



Private Sub Blatt2_Drucken_Click()
Dim Diagrammdruck As Variant, Zähler
Dim wks As Worksheet

Diagrammdruck = Array("Schmiede", "Riwa", "FSH", "Werk_Bockenau")


For Zähler = 0 To 3
    Call Diagrammdruck(Zähler)
        With ActiveSheet.PageSetup
            .FitToPagesWide = 1
            .FitToPagesTall = 1
        End With
        For Each wks In ActiveWorkbook
            ActiveSheet.PrintOut
        Next wks
Next Zähler

End Sub
 

Sub Diagrammdruck(Schmiede)
Run "dir_Diagramme_Produktivitaetskennzahlen"
Workbooks.Open ("Produktivitätskennzahlen Tagesansicht Schmiede.xls")
Schließen
End Sub
 


Gruß
Frederik

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige