Office: Tabellen nach Datum selektieren und Werte übernehmen

Hallo zusammen,

ich habe folgendes Problem:

Ich habe mehrere Tabellen mit 9 Spalten (Die Tabellen sind gleich aufgebaut). In der Spalte D befindet sich das Datum. In der Zeile 8 befinden sich die Spaltenüberschriften. Ich möchte die Tabellen nach bestimmtes Datum oder ein Datumsbereich selektieren und die ganzen Werte aus den 9 Spalten in ein Tabellenblatt einfügen ohne die Spaltenüberschriften.
Wenn möglich, möchte noch nach dem Einfügen einen Mittelwert von der Spalte F bilden.

Ich bekomme leider keinen sinnvollen Code auf die Reihe.
Ich bedanke mich schon im Voraus.

Liebe Grüße
Kilic

:)

 

Hola,

verlinkst du bitte deine Fragen in den verschiedenen Foren gegenseitig?
Danke.

Gruß,
steve1da

 

Hi,

Du könntest ne Beispielmappe mit Deinem Code hochladen, dann schauen wir da mal rein ...

 

Hallo,

vielen dank für die schnelle Antwort.
Der Code den ich zusammengebastelt hab mit kopieren und Einfügen passt. Aber ich hab ein kleines Problem: Beim Ausführen des Codes zeigt der mir eine Fehlermeldung: "kopieren bei verbundenen Zellen nicht möglich"

Der Code:

Sub KST281()

Dim i As Integer
With Sheets("KST281")
.Range("A2", .UsedRange.SpecialCells(xlCellTypeLastCell)).ClearContents
End With
With Sheets("346")
.Range("A2", .UsedRange.SpecialCells(xlCellTypeLastCell)).Copy _
Sheets("KST281").Range("A" & Rows.Count).End(xlUp).Offset(1)
End With
With Sheets("349")
.Range("A2", .UsedRange.SpecialCells(xlCellTypeLastCell)).Copy _
Sheets("KST281").Range("A" & Rows.Count).End(xlUp).Offset(1)
End With
With Sheets("596")
.Range("A2", .UsedRange.SpecialCells(xlCellTypeLastCell)).Copy _
Sheets("KST281").Range("A" & Rows.Count).End(xlUp).Offset(1)
End With

End Sub