Gefilterte Spalten Kopieren übertragen
29.07.2018 23:23:13
Ed
ich sitze vor einer Herausforderung. Ich versuche mittels eines Makros aus zwei Tabellenblättern die Rohdaten darstelle in eine Übersicht zu kopieren. Dabei soll bei einem von beiden Rohdaten in gewissen Spalten eine Filterung unterzogen werden. Es soll hier auch nur die gefilterten kompletten Zeilen in diesen Spalten übernommen werden. Mein Code sieht derzeit wie folgt aus:
Mein neues Makro sieht wie folgt aus nur...
Sub Schaltfläche3_Klicken()
letzteA = Sheets("Übersicht").Cells(Rows.Count, "A").End(xlUp).Row
Sheets("Übersicht").Range("A2:A" & letzteA).Value = Sheets("Rohdaten1").Range("B2:B" & _
_
letzteA).Value
Sheets("Übersicht").Range("B2:B" & letzteA).Value = Sheets("Rohdaten1").Range("C2:C" & _
_
letzteA).Value
Sheets("Übersicht").Range("C2:C" & letzteA).Value = Sheets("Rohdaten1").Range("H2:H" & _
_
letzteA).Value
____ das tabellenblatt rohdaten2 unterliegt einigen Filterungen. Deswegen sollen nur die _
gesamten gefilteren Spalten ab zeile D2 etc. kopiert in die Übersicht werden.
letzteA = Sheets("Übersicht").Cells(Rows.Count, "A").End(xlUp).Row
Sheets("Übersicht").Range("D2:D" & letzteA).Value = Sheets("Rodaten2").Range("A2:A" & _
_
letzteA).Value
Sheets("Übersicht").Range("E2:E" & letzteA).Value = Sheets("Rohdaten2").Range("F2:F" & _
_
letzteA).Value
Sheets("Übersicht").Range("F2:F" & letzteA).Value = Sheets("Rohdaten2").Range("I2:I" & _
_
letzteA).Value
Sheets("Übersicht").Range("G2:G" & letzteA).Value = Sheets("Rohdaten2").Range("L2:L" & _
_
letzteA).Value
Sheets("Übersicht").Range("H2:H" & letzteA).Value = Sheets("Rohdaten2").Range("M2:M" & _
_
letzteA).Value
Sheets("Übersicht").Range("I2:I" & letzteA).Value = Sheets("Rohdaten2").Range("P2:P" & _
_
letzteA).Value
End
Sub