Wie kann ich in Excel per Funktion teile aus Arbeitsblättern kopieren

...durch Probieren habe ich den Button integriert. Danke, danke. Gruß Dieter

Hallo Claus,

die Zeilenfrage ist gelöst. Danke.

Das Beispiel mit dem Button ist genau nach meinem Wunsch.

Leider habe ich den Code für den Button nicht gefunden.

Gruß Dieter

Hallo Dieter,

ohne dein Tabellenlayout zu sehen, kann ich dazu schlecht was sagen. Ist die Überschrift in dem Monatsblatt in Zeile 4? Welche Überschriften sind in Zeile 2?

Claus

Hallo Dieter,

der Filterbereich muss in der ersten Zeile die Überschriften haben. Eventuell sind deine Tabellen anders aufgebaut als im Code. Passe dann den Code oder das Tabellenlayout an. Dann sollten nur die gefilterten Daten mit Überschrift übernommen werden. Wenn
du die Überschrift nicht mit kopieren willst, musst du den Kopierbereich im Code ändern.

Damit die vorhandenen Daten vor dem Einkopieren entfernt werden, probiere folgendes Makro. Dem Makro könntest du einen ShortCut zuweisen und dann das Makro über diesen aufrufen. Oder du machst dir ins Monatsblatt einen ActiveX-Button und schreibst in das
Klick-Ereignis den Namen des Makros, z.B.:

Private Sub CommandButton1_Click()

Uebertrag

End Sub

Ab hier das neue Makro:

Sub Uebertrag()

Dim LRow As Long

Dim Col As Range

Dim i As Integer, n As Integer

Dim varKonto As Variant

varKonto = Array("Konto1", "Konto2")

For i = LBound(varKonto) To UBound(varKonto)

   'Alle Anweisungen beziehen sich auf das Blatt "Januar"

   With Sheets("Januar")

      'Die letzte benutzte Zeile in Spalte A wird ermittelt

      LRow = .Cells(.Rows.Count, "A").End(xlUp).Row

      'Im Bereich A1:G & letzte Zeile wird die Spalte C nach "A" gefiltert

      .Range("A2:G" & LRow).AutoFilter field:=5, Criteria1:=varKonto(i)

      'Kontoblatt l?schen

      Sheets(varKonto(i)).Range("A3:G100").ClearContents

      'Der gefilterte Bereich wird nach A3 von "Tabelle2" kopiert

      .Range("A2:G" & LRow).Copy Sheets(varKonto(i)).Range("A3")

      'Der Filter wird entfernt

      .AutoFilterMode = False

   End With

   With Sheets(varKonto(i))

      'Die letzte belegte Zelle in Spalte A ermitteln

      LRow = .Cells(.Rows.Count, "A").End(xlUp).Row

      'F?r Spalte  B + C im belegten Bereich

      For n = 2 To 3

         'Summe bilden

         .Cells(LRow + 1, n) = Application.Sum(.Range(.Cells(3, n), .Cells(LRow, n)))

      Next

      .Cells(LRow + 1, 1) = "Summe"

      .Cells(LRow + 2, 1) = "Ergebnis"

      .Cells(LRow + 2, 2) = .Cells(LRow + 1, 2) - .Cells(LRow + 1, 3)

      With .Range(.Cells(LRow + 1, 1), .Cells(LRow + 2, 3))

         .Font.Bold = True

         .NumberFormat = "#,##0.00 $"

      End With

   End With

Next

End Sub

Claus

Hallo Dieter,

in der Mappe hast du ja den Code und kannst ihn ändern oder kopieren und in deine Mappe einfügen.

Ich habe die beiden Blätter extra leer gelassen. Du musst das Makro aufrufen, um die Blätter zu befüllen.

Claus