Mehrere Lieferanten zu einem Artikel

[snb]

@Gast 123

Lösche Zeile 1:2

Ersetze codeName 'Sheet1' von CodeName Sayfa1

PHP-Code:

Sub M_snb()
  Application.ScreenUpdating = False
  With ThisWorkbook.PivotCaches.Create(1, Sayfa1.Cells(1).CurrentRegion).CreatePivotTable(Sayfa1.Cells(1, 6), "snb")
    .PivotFields(1).Orientation = 1
    .AddDataField .PivotFields(2), " ", -4112
    .PivotFields(2).Orientation = 2

    .CompactLayoutRowHeader = .PivotFields(1).Name & " "
    .CompactLayoutColumnHeader = "  "
    .PivotFields(2).PivotItems(1).LabelRange.Resize(, .PivotFields(2).PivotItems.Count).NumberFormat = """Lieferant ""0"

    .RowGrand = False
    .ColumnGrand = False
    .DataBodyRange.NumberFormat = """x"";"
    .DataBodyRange.EntireColumn.AutoFit
  End With
End Sub 


[Gast 123]

Hallo snb

Danke für deinen Tipp, jetzt hat es geklappt. Man achte auf die Details wie "Sheet1"

mfg  Gast 123