ich habe ein nicht ganz einfaches (Excel, VB, Pivot) Problem:
Das Tabellenblatt "AAA" enthält eine Pivot-Tabelle. Ich möchte am Ende dieser Pivottabelle eine neue Spalte "Budget" per Makro einfügen. Da sich die Breite und Tiefe der Pivot-Tabelle regelmäßig ändert und ich dieses Makro für verschiedene Pivots nutzen möchte, habe ich hier leider ein paar Probleme.
Darüber Hinaus soll die neue Spalte "Budget" mit einem SVERWEIS auf ein anderes Tabellenblatt "KERNDATEN" verweisen.
Die Zellenformel funktioniert bereits, jedoch habe ich Schwierigkeiten diese in VB zu "übersetzen".
Die Zellenformel lautet:
IF((ISNA(VLOOKUP(A5;KERNDATEN!H:J;3;FALSE)=TRUE));"";(VLOOKUP(A5;KERNDATEN!H:J;3;FALSE)))
Momentan sieht mein Makro zum Einfügen der neuen Spalte wie folgt aus:
Range("A4").Select 'Da Überschrift immer in der Zeile 4 steht
Selection.End(xlToRight).Select
Selection.Next.Select
ActiveCell.FormulaR1C1 = "Budget"
'nun möchte ich gerne den obigen SVERWEIS in die Spalte "Budget" einfügen. Um die maximale Zeilenanzahl rauszufinden, habe ich folgende Funktion genutzt:
Dim maxRows As Long
maxRows = Cells(Rows.Count, 1).End(xlUp).Row
'Ferner könnte ich mit folgenden Werten die aktuelle Position bestimmen:
Dim colcc, rowrr As Integer
colcc = Selection.Column
rowrr = Selection.Row
'Leider komme ich hier nicht weiter, denn mit
ActiveCell.FormulaR1C1 = "IF((ISNA(VLOOKUP(A5;KERNDATEN!H:J;3;FALSE)=TRUE));"";(VLOOKUP(A5;KERNDATEN!H:J;3;FALSE)))"
gibt es wie erwartet nen Haufen Fehlermeldungen. Ferner soll ja für die gesamte neue Spalte die Formel ausgefüllt werden.
Ich hoffe jemand versteht, was ich meine. Vielen Dank schon mal fürs Lesen.
Ich bin über jeden Tipp / Hinweis sehr dankbar.
Gruss,
Phil