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