Drucken wenn ein bestimmtes Feld wahr ist

[marggele]

Hallo,

brauche dringend eure Hilfe.

In einer Übersichtsseite ist in Spalte F angegeben ob ein Arbeiter krank war. In Der Spalte A Steht der Nachnamein in Splate B der Vorname 

Für jeden Arbeiter gibt es ein Tabellenblatt. Es ist benennt nach Vorname Nachname.

Jetzt brauch ich ein Makro, dass alle Tabellen druckt, von denen die nicht krank sind.

Vielen Dank für eure Hilfe

[Kuwer]

Hallo,

z.B. in der Art:

Sub AusdruckMitarbeiter()

  Dim rngA As Range

  On Error Resume Next

  With Worksheets("Übersicht")

    For Each rngA In .Range("A2:A10").Rows

      If rngA.Cells(1, 6).Value = "" Then

        Worksheets(rngA.Cells(1, 2).Value & " " & rngA.Cells(1, 1).Value).PrintOut '.PrintPreview

      End If

    Next rngA

  End With

  On Error GoTo 0

End Sub

Gruß Uwe