AW: Pivot+VBA
28.10.2008 18:46:00
Ryu
Hallo zusammen,
nun ist es mir selbst gelungen das Problem zu lösen. Die Antwort will ich nicht vorenthalten.
Sub Import_finish()
Dim strMonat As String
Dim strJahr As String
Dim letzteZelle As Range
Dim zähler As Integer
Dim wks As Worksheet
Dim wks2 As Worksheet
Dim Zieldatei As String
Dim BoOffen As Boolean
Dim x
Dim Datum As String
Dim pt As PivotTable
Dim ptf As PivotField
Dim pi As PivotItem
Dim AnzahlPivotElements As Integer
Dim arPivotElements() As String
strMonat = DatePart("m", Date, vbMonday, vbFirstFourDays)
strJahr = DatePart("yyyy", Date, vbMonday, vbFirstFourDays)
Zieldatei = "Lagerbestand_gesamt_Finish.xls"
BoOffen = False
For Each x In Workbooks
If x.Name = Zieldatei Then
BoOffen = True
Exit For
End If
Next
If BoOffen = False Then _
Workbooks.Open Filename:="c:\" & Zieldatei
Set wks2 = Workbooks(Zieldatei).Sheets("Lagerbestand_Finish")
Set wks = Workbooks("Auswertung 08").Worksheets("Finished")
wks.Activate
Set letzteZelle = wks.Range("A5").End(xlDown)
Set pt = wks2.PivotTables("PivotTable1")
Set ptf = pt.PivotFields("Lens_Typ")
AnzahlPivotElements = ptf.PivotItems.Count
' Daten von aktueller Monat - 6 eintragen
ReDim arPivotElements(0 To 1, 0 To AnzahlPivotElements - 1) As String
For Each pi In ptf.PivotItems
For zähler = 5 To letzteZelle.Row
If strMonat - 6