VBA bestimmte Spalten kopieren
03.09.2014 09:27:38
Andrea
folgendes Problem:
Ich habe eine Tabellenblatt mit einem Export aus einem anderen System. Der Export hat immer die gleichen Spalten und Spaltenüberschriften, nur unterschiedlich viele Zeilen und Inhalte.
Aus diesen "Rohdaten" suche ich nach bestimmten Werten in den Spalten pro Zeile. Wenn 3 meiner Bedingungen zutreffen, dann soll die Zeile in ein neues Tabellenblatt kopiert werden. So soll das ganze Dokument durchsucht werden und entsprechend die matchenden Zeilen kopiert werden. Jedoch soll nicht die gesamte Zeile kopieet werden sondern nur ausgewählte Spalten.
Dazu habe ich folgendes Makro geschrieben:
Sub Makro10()
Dim i As Integer
Dim ws1 As Worksheet: Set ws1 = ThisWorkbook.Sheets("Raw Data")
Dim ws2 As Worksheet: Set ws2 = ThisWorkbook.Sheets("Ergebnisliste")
For i = 2 To ws1.Range("B6553").End(xlUp).Row
If ws1.Cells(i, 7) = "Waggon" And ws1.Cells(i, 2) = "Lech" And ws1.Cells(i, 6) = "Sorte 8" _
_
Then ws1.Rows(i).Copy ws2.Rows(ws2.Cells(ws2.Rows.Count, 2).End(xlUp).Row + 1)
Next i
End Sub
Hier soll er auf dem Blatt Raw Data in der Spalte 7,2 und 6 nach den Werten Waggon, Lech und Sorte 8 suchen. Diese kopiert er dann auf das Blatt Ergebnisliste. Das Problem ist er kopiert jetzt die ganze Zeile, wie kann ich es machen dss er dann z.B. nur Spalte 1 und Spalte 5 dieser Zeile kopiert?
Die Datei habe ich mal mitangehangen.
Danke für die Hilfe