definierte Zellen drucken

[Kuwer]

Hallo Clemens,

habe Deine Datei erhalten.

Darauf muss man erst mal kommen, dass alle Blätter gruppiert sind.
Teste mal damit:

Code:

Sub VerkaeuferlistenDrucken()
 Dim oWsQ As Worksheet, oWsZ As Worksheet
 ActiveSheet.Select
 Set oWsZ = Workbooks.Add(-4167).Worksheets(1)
 For Each oWsQ In ThisWorkbook.Worksheets
   If Left(oWsQ.Name, 1) = "V" And IsNumeric(Mid(oWsQ.Name, 2)) Then
     oWsQ.Range(oWsQ.Cells(9, 1), oWsQ.Cells(oWsQ.Rows.Count, 3).End(xlUp)).Copy
     With oWsZ
       .Cells(1, 1).Value = oWsQ.Name
       .Cells(3, 1).PasteSpecial xlValues
       .Columns.AutoFit
       .Range("A2:C2").AutoFilter 3, "=0"
       .PrintPreview 'zum Testen
       '.PrintOut
       .Range("A2:C2").AutoFilter
       .Cells.Delete
     End With
   End If
 Next oWsQ
 oWsZ.Parent.Close False
End Sub

Hallo André,
es handelt sich um eine xls-Datei.

Gruß Uwe

[schauan]

Hallo Uwe,

als xls hab ich die auch runtergeladen. Ich wollte nur noch mal sicher gehen. Excel hat mich nämlich angemosert, dass das Dateiformat nicht mit der Erweiterung übereinstimmt. Ich konnte die Datei entweder "trotzdem öffnen" oder zur Vermeidung der Meldung die Dateierweiterung ändern.

[Kuwer]

Hallo André,

das hatte tatsächlich keinen Wert mit dem "Speichern unter",
deshalb bat ich Clemens, mir die Datei per Email zu schicken.

Gruß Uwe

[barried]

Hallo Uwe,
habe die Datei getestet, und es funktioniert alles.
Danke schön!
Ich danke euch allen für eure Mühe und Hilfe.

Gruß Clemens