Collapse column

Beiträge anzeigen

Diese Sektion erlaubt es dir alle Beiträge dieses Mitglieds zu sehen. Beachte, dass du nur solche Beiträge sehen kannst, zu denen du auch Zugriffsrechte hast.


Nachrichten - pesca

Seiten: [1]
1
Excel / Antw: Excel2007 Hilfe bei Fehlersuche in Kopiermakro
« am: Dezember 06, 2011, 11:17:59 Vormittag »
Hallo Officer,

leider darf ich die Datei nicht hochladen. Ich mache momentan ein Praktikum und soll mitunter diese Datei Auswerten und wollte mit mit dem Makro das regelmäßige aktivieren von einem dutzend Filterwerten vereinfachen. Ich werde versuchen die Datei abzuwandeln damit ich sie hochladen kann, kann aber nichts versprechen, da sie sehr umfangreich ist. Vielleicht hat ja jemand schonmal einen vergleichbaren Fehler gehabt.

Mit freundlichen Grüßen
Pesca

2
Excel / Excel2007 Hilfe bei Fehlersuche in Kopiermakro
« am: Dezember 06, 2011, 09:26:50 Vormittag »
Hallo,

mein Problem ist, dass das Makro einen Wert des Filters auf "#N/V" setzt. Der Filter ist Bestandteil einer Pivottabelle. Die Einträge in der Tabelle ändern sich nicht sondern nur der Eintrag im Filter.

Funktion des Markos:
Auslesen einer Zelle in Datei B. Anschließend in Datei A einen Filter auf den ausgelesenen Wert setzt.
Dann wird im Excelsheet eine Berechnungn durchgeführt und der berechnete Wert in Datei B geschreiben. Anschließend wird der nächsten Wert wert in den Filter gesetzt usw. Bis alle Werte/Filtereinträge durchlaufen sind.


Ich hoffe, dass mir jemand helfen kann.

Mit freundlichen Grüßen
Daniel

Code: Visual Basic
  1. Sub Filterübertragen()
  2. Dim i, j, x, kw As Integer
  3. Dim line As String
  4. Dim A, B As Worksheet
  5. Dim Piv As PivotField
  6. i = 3
  7. j = 2
  8.  
  9. 'Workbooks.Open Filename:="H:\Daten\A.xlsx"
  10. 'Workbooks.Open Filename:="H:\Daten\B.xlsx"
  11. Set A = Workbooks("A.xlsx").Sheets("TabelleX")
  12. Set B = Workbooks("B.xlsx").Sheets("TabelleY")
  13. Set Piv = A.PivotTables("PivotTable2").PivotFields("c2")
  14.  
  15. B.Activate
  16. Do Until Cells(2, j) = ""
  17. j = j + 1
  18. Loop
  19.  
  20. B.Range(Cells(2, j - 1), Cells(77, j - 1)).Copy
  21. B.Cells(2, j).PasteSpecial
  22.  
  23. x = Cells(2, j - 1)
  24. kw = Mid$(x, 3)
  25. Cells(2, j) = "KW" & kw + 1
  26.  
  27.  
  28. Do Until Cells(i, 3) = ""
  29. line = B.Cells(i, 3)
  30.  
  31. If line = "a" Or line = "b" Or line = "c" Or line = "d" Or line = "e" Then
  32. B.Cells(i, j) = 0
  33. Else
  34.  
  35. Piv.CurrentPage = (line)
  36. Calculate
  37. A.Range("F17").Copy
  38. B.Cells(i, j).PasteSpecial Paste:=xlPasteValues
  39.  
  40. End If
  41.  
  42. i = i + 1
  43. Loop
  44.  
  45. B.ChartObjects("Diagramm 1").Activate
  46. ActiveChart.SetSourceData Source:=Range(Cells(2, 3), Cells(77, j))
  47. End Sub
  48.  


Seiten: [1]

Cookies erleichtern die Bereitstellung unserer Dienste. Mit der Bestätigung erklären Sie sich mit der Verwendung von Cookies einverstanden. Learn more