ich benötige aus einer Tabelle einen Ausdruck der Zeilen die in Spalte O keinen Eintrag haben und in Spalte A den Wert c1.
Folgenden Code hat Beni erstellt, besten DANK!
Private Sub CommandButton1_Click()
ActSh = ActiveSheet.Name
Sh = Sheets.Count
Sheets("AES").Copy After:=Sheets(Sh)
Sh = Sheets.Count
Sheets(Sh).Name = "Ausdruck"
Sheets("Ausdruck").UsedRange = ""
Sheets(ActSh).Select
For z = 32 To Cells(65536, 1).End(xlUp).Row
If Cells(z, 15) = "" And Cells(z, 1) = "c1" Then
lz = Sheets("Ausdruck").Cells(65536, 1).End(xlUp).Row + 1
If Sheets("Ausdruck").Cells(1, 1) = "" Then lz = 1
Range(Cells(z, 1), Cells(z, 16)).Copy Sheets("Ausdruck").Cells(lz, 1)
End If
Next z
Sheets("Ausdruck").PrintOut Copies:=1, Collate:=True
Application.DisplayAlerts = False
Sheets("Ausdruck").Delete
Application.DisplayAlerts = True
End Sub
Leider funktioniert er nicht richtig. Bitte nochmal um Hilfe.
Hier die Datei mit meiner Tabelle: https://www.herber.de/bbs/user/15818.xls
Großes Lob und dickes Dankeschön vorab!!!!
Gruß Sascha