Clever-Excel-Forum

Seiten: 1 2 3 4

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

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.

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

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

Seiten: 1 2 3 4

Kuwer

schauan

Kuwer

barried