|
Hallo Maria,
anbei ein Code. Da Du nichts über das 'wohin' gesagt hast, wird in Spalte 1 ab Zeile 1 kopiert.
Gruß der ALteDresdner
Sub Kopieren()
Const Suchspalte = "U" 'Spalte, in der gesucht werden soll
Const Copyspalte = 7 'Spalte, aus der kopiert werden soll
Dim SuchText As String, erg As Variant, Zielzeile As Long
SuchText = InputBox("zu suchender Begriff", "Suchbegriff", "") 'Eingabe Suchtext
With ThisWorkbook.Sheets("sheet1")
Set erg = .Range(Suchspalte & ":" & Suchspalte).Find(What:=SuchText, LookIn:=xlValues, LookAt:=xlWhole)
If erg Is Nothing Then
MsgBox "Suchtext " & SuchText & " nicht gefunden", vbCritical, "Begriff nicht gefunden"
Else 'Begriff gefunden
ThisWorkbook.Sheets("sheet2").Cells(1, 1).EntireColumn.ClearContents 'Zielbereich löschen
Zielzeile = 1 'erste Zeile in Zielblatt
erg = erg.Row 'Zeile des Treffers
While Not IsEmpty(.Cells(erg, Asc(Suchspalte) - 64))
ThisWorkbook.Sheets("sheet2").Cells(Zielzeile, 1) = .Cells(erg, Copyspalte) 'Kopieren nach Spalte A
erg = erg + 1
Zielzeile = Zielzeile + 1
Wend
End If
End With
End Sub
|