Excel VBA Suchfunktion/Aktivieren/Drucken

Hallo,

dann wurde "Test" auf einem ausgeblendeten Blatt gefunden. Das muss dann vor dem Druck eingeblendet werden. Probiere es dann so:

Sub Druck()

Dim i As Integer

Dim c As Range
For i = 1 To Sheets.Count

    With Sheets(i)

        Set c = .UsedRange.Find("Test")

        If Not c Is Nothing Then

            .Visible = xlSheetVisible

            .PrintOut

        End If

    End With

Next

End Sub

Claus

Hallo Claus

Danke Vielmals für deine Antwort. Leider funktioniert dieser Code nicht ganz. Es gibt mir einen Laufzeitfehler '1004' an. das heiss die PrintOut-Methode des Worksheet-Objektes konnte nicht ausgeführt werden.

Was könnte ich dagegen machen?

Hallo,

wenn es vollkommen egal ist wo das Wort "Test" im Blatt steht, kannst du mal folgenden Code probieren;

Sub Druck()
Dim i As Integer
Dim c As Range

For i = 1 To Sheets.Count
With Sheets(i)
Set c = .UsedRange.Find("Test")
If Not c Is Nothing Then .PrintOut
End With
Next
End Sub

Falls "Test" an einer ganz bestimmten Stelle gesucht werden sollte, muss der Code angepasst werden.

Claus

Hallo Claus

Danke vielmals für deine Antwort. Hat super Funktioniert

LG

Konstrukteurhoch3

Hallo,

mir ist das aktuelle Procedere nicht klar. Es geht lediglich darum, eine Vielzahl von Kopien desselben dreiseitigen Dokuments zu drucken - also nicht um Seriendruck?

Vermutlich hätte ich je Klasse einen neuen Druckauftrag erteilt und dem Drucker mit auf den Weg gegeben, jedem neuen Druckauftrag ein Deckblatt (Trennblatt) voranzustellen. Dabei handelt es sich allerdings nicht um einen Word-Befehl, sondern um Einstellungen,
die am Drucker selbst oder in den Druckoptionen zu aktivieren sind.

Wenn ich recht verstehe, möchtest du einen einzigen Druckauftrag aus Word (oder evtl. Excel) heraus erteilen, der abhängig von den in einer Excel-Tabelle hinterlegten Schülerzahlen je Klasse die Kopien stapelweise auswirft. Das geht - wenn überhaupt - nur
per VBA.

Viele Grüße

Lisa