Bestimmte Zellen kopieren
08.02.2021 10:54:40
Marco
Ich möchte aus einer Datenbank gewisse Daten in ein neues Tabellenblatt kopieren. Ich habe folgenden Code, jedoch kopiert dieser die ganze Zeile und ich möchte nur die Werte aus entsprechenden Zellen/ Spalten haben.
Ich möchte die Werte aus A und D nur in der neuen Tabelle einfügen. Wie kann ich das anpassen? Ich stehe mir glaube ich gerade selbst im Weg. Hat jemand eine Lösung wie ich dies entsprechend im Code anpassen kann?
Gruss Marco
Sub ArtikelLinie()
Dim Zeile As Long
Dim ZeileMax As Long
Dim n As Long
With TStammdaten 'Quellentabelle
ZeileMax = .UsedRange.Rows.Count
n = 4 'ab welcher Zeile eingeführt wird
For Zeile = 2 To ZeileMax
If .Cells(Zeile, 23).Value = "LINIE 01" Then 'Cells(Zeile, die Spalte mir den zu suchenden _
einträgen.
.Rows(Zeile).Copy Destination:=Tabelle2.Rows(n)
n = n + 1
End If
Next Zeile
End With
End Sub
Anzeige