Hallo Cracks,
ich habe eine riesige Excel-Datei und aus dieser auf einem neuen Tabellenblatt eine Pivot-Tabelle per VBA erstellt. Darin erstelle ich dann (wieder über Makro) Formeln in der 4. Zeile. Nun filtere ich die Pivot nach einer bestimmten Spalte und möchte die Formeln der 1. Zeile (Range F-K) in die darunterliegenden Zeilen übertragen, aber eben nur in die sichtbaren und nicht in die ausgefilterten. Manuell funktioniert das wunderbar, aber wenn ich es per Makro mache, stehen die Formeln auch in den ausgefilterten Zeilen.
Mein Code hierfür sieht momentan so aus:
Range("F4:K4").Select
Dim MArow As Long
MArow = Cells(Rows.Count, 1).End(xlUp).Row
Selection.AutoFill Destination:=Range("F4:K" & MArow)
Range("F4:K" & MArow).Select
Ich denke, ich muss hier irgendwie "SpecialCells und/oder visible=true" einbauen, aber es gelingt mir nicht.
Ich wäre sehr dankbar für Eure Hilfe.
Gruß
MA