Bereich filtern in andere Tabelle kopier
15.09.2020 14:08:40
Klara
ich habe folgendes Problem: In meiner Arbeitsmappe habe ich zwei Tabellen. In Tabelle 2 sind Daten aus einer anderen Datei verknüpft. In Tabelle 1 soll nun eine Auswertung der Daten erfolgen, deswegen will ich sie mir über VBA kopieren lassen.
Mein Problem ist nun dass in Spalte FW nach einer 1 gefiltert werden muss. Wenn eine 1 enthalten ist, sollen die Daten aus Spalte A und Spalten FP bis FV in Tabellenblatt 1 kopiert werden.
Ich habe bereits folgenden code:
Sub DatenKopieren()
Dim i As Long, j As Long
j = 4
For i = 4 To Sheets("Tabelle2").Cells(Rows.Count, 179).End(xlUp).Row
If Sheets("Tabelle2").Cells(i, 179) = "1" Then
Range(Cells(i, 172), Cells(i, 178)).Copy _
Destination:=Sheets("Tabelle1").Range("A11" & j)
j = j + 1
End If
Next
End Sub
Leider funktioniert mein filter nicht und es werden einfach alle Zeilen kopiert ob eine 1 enthalten ist oder nicht. Außerdem will ich nur die Werte und nicht die Verknüpfung kopieren.
Ich habe es auch schon über Makro aufnehmen versucht, das ganze funktioniert zwar, aber es _ springt dann von Tabelle zu Tabelle, ich fände es schöner wenn das nicht der Fall wäre.
Sub Daten_Kopieren()
Sheets("Tabelle2").Select
ActiveSheet.Range("$A$2:$QP$481").AutoFilter Field:=242, Criteria1:="1"
Range ("C4:C500" & ActiveSheet.UsedRange.Rows.Count)
SpecialCells(xlCellTypeVisible).Copy
Sheets("Tabelle1").Select
Range("A11").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Sheets("Tabelle2").Select
ActiveSheet.Range("$A$2:$QP$481").AutoFilter Field:=242, Criteria1:="1"
Range("IA5:IG270").Select
Selection.Copy
Sheets("Tabelle1").Select
Range("A11").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
End Sub
Vielleicht lassen sich die beiden Codes irgendwie kombinieren?
Ich wäre euch für eure Hilfe sehr dankbar!
Liebe Grüße
Klara