|
Hallo liebes Forum,
ich habe folgendes Problem
Ich füge über eine power query Abfrage Daten in einer Tabelle zusammen.
Die Daten füllen dann Spalte A bis N im Tabellenblatt "PowerqueryTabelle"
In Spalte O will ich eine Excel-Formel einfügen, wie "Wenn Wert in Spalte A=2 Dann Spalte O=ja" (da meine Formel sehr lang ist, würde ich die am liebsten einfach durch VBA in alle Zeilen, in denen Daten erscheinen (Länge unterscheidet sich) einfügen ausführen lassen)
mein Code sieht bisher wiefolgt aus:
Sub DuplikateEntfernen()
Application.ScreenUpdating = False
Application.Calculation = xlCalculationManual
ThisWorkbook.Worksheets("PowerqueryTabelle").Select
Selection.ListObject.QueryTable.Refresh BackgroundQuery:=False
ThisWorkbook.Worksheets("PowerqueryTabelle").Range("A1").RemoveDuplicates Columns:=10, Header:=xlYes
ThisWorkbook.Worksheets("Pivot PowerqueryTabelle").Select
ActiveSheet.PivotTables("PivotTable1").PivotCache.Refresh
MsgBox ("Daten wurden aktualisiert")
Application.ScreenUpdating = True
Application.Calculation = xlCalculationAutomatic
Call Calculate
End Sub
Nach der Erstellung der Abfrage und der Berechnung der Werte in Spalte O soll auf Grundlage dessen eine Pivot Tabelle in einem anderen Tabellenblatt erstellt werden.
Die Aktualisierung der Daten und der Pivot funktioniert auch.
Nur die Formel in Spalte O fehlt.
Vielen Dank für eure Hilfe.
|