Übertragen von Einträgen nach Datum sortiert
23.10.2024 18:45:43
axel_
ich stehe etwas auf dem Schlauch. Ich habe zwei Tabellen: "Einnahmen" und "Einnahmen2". Ich möchte nun über ein Userform alle Einträge aus "Einnahmen", welche sich in einem einzugebenden Kalenderjahr befinden, in "EUR" kopieren. Über den Makrorekorder komme ich nicht weiter. Bislang war die Idee das Datumskriterium über einen Autofilter zu realisieren, was auch schon klappt. Bloß wie ich die Einträge am besten kopieren kann, weiß ich noch nicht. Da die Tabelle "Einnahmen2" eine Ergebniszeile hat, kann ich nicht stumpf kopieren. Das ist mein Code bislang:
Dim Jahr As Integer
Jahr = UF_EUR.TextBox_Jahr.Value
'Einnahmen übertragen
DB_Einnahmen.ListObjects("TB_Einnahmen").Range.AutoFilter Field:=3, _
Criteria1:=">=1.1." & Jahr, Operator:=xlAnd, Criteria2:="=31.12." & Jahr
Range("TB_Einnahmen").Copy
'Hier müsste der Code zum Einfügen kommen
'Filter zurücksetzen
DB_Einnahmen.ListObjects("TB_Einnahmen").Range.AutoFilter Field:=3Viele Grüße Alex
Anzeige