VBA-Code mit Fehler

[RPP63]

Moin!
Candalfo benutzt ein Tabellenobjekt, in dem der Überlauf auftritt.
"Intelligente" Tabellen und Spill-Formeln wie FILTER() vertragen sich grundsätzlich nicht miteinander.
Deshalb hat Helmut auch eine "normale" gebänderte Liste genommen.

Gruß Ralf

[snb]

Kann einfach so:

Code:

Sub M_snb()
  With [Data_Input]
    For j = 1 To 12
      .AutoFilter 1, , 7, Array(1, j & "/1/2024")
      .Copy Choose(j, [T_Januar].Rows(1), [T_Februar].Rows(1), [T_März].Rows(1))
    Next
  End With
End Sub

[HKindler]

Deshalb hat Helmut auch eine "normale" gebänderte Liste genommen.

Um ehrlich zu sein habe ich einfach die Funktion "Tabellenentwurf" --> "Tools" --> "in Bereich konvertieren" verwendet um die optischen Eindruck beizubehalten, aber die Tabelle selbst aufzulösen.

[Candalfo]

Moin,

vielen Dank für Deinen Hinweis. Das hatte ich nicht gewusst. Mit den intelligenten Tabellen bin ich erst seit ein paar Wochen unterwegs.

Viele Grüße
Candalfo

---

Moin Helmut,

vielen Dank für Deine Lösung. Du hast Recht mit Deinen Warnungen, jedoch in diesem Fall muss ich die Daten in ein Abrechnungsblatt einfügen, welches ein bestimmtes Layout haben muss. Das war in meiner Version noch nicht vorhanden, da ich den Weg dorthin erst gelöst haben wollte.
Siehst Du noch eine Möglichkeit, die letzte Spalte nicht zu übertragen? Kann man den Filter "konfigurieren"? Die MS-Hilfe schweigt sich da aus. Wenn sich keine Möglichkeit bietet, würde ich es eventuell über den Druckbereich lösen können.

Viele Grüße
Candalfo