Ich habe mal eine Frage zu diesem Makro, es Funktioniert soweit nur leider Kopiert er mir die komplette Zeile wo der Suchbegriff vorkommt.
Ich würde ganz gerne, dass er nur nur die Werte aus der Spalte F, J, K, G ,I in das Tabellenblatt 2 kopiert. Vlt kann mir ja einer von euch helfen danke schon einmal im vorraus.
Option Explicit
Sub Kopie()
Dim Anzahl As Long, A As Long
Dim SZelle As Range
Dim Suchwert As String
Suchwert = "produkt 1" 'Suchbegriff
Anzahl = Application.WorksheetFunction.CountIf(Tabelle1.Range("5:30"), Suchwert)
For A = 1 To Anzahl
If A = 1 Then
Set SZelle = Tabelle1.Range("5:30").Find(Suchwert)
Rows(SZelle.Row).Copy Tabelle2.Cells(A, 1) 'ganze Zeile Kopieren
Else
Set SZelle = Tabelle1.Range("5:30").FindNext(SZelle)
Rows(SZelle.Row).Copy Tabelle2.Cells(A, 1) 'ganze Zeile Kopieren
End If
Next A
End Sub
|