Hallo Vossy! So würde es gehen. Gruß
Sub suchen()
Dim suche As String
Dim ergebnis As Object
Application.CutCopyMode = False
'Suchwert festlegen
suche = Worksheets("Auswahl").Cells(1, 1).Value
'Wert suchen und kopieren
Set ergebnis = Worksheets("Gesamt").Range("B3:HH3").Find(suche, LookIn:=xlValues) 'verweist auf ein Rangeobject wo suche gefunden wurde
If Not ergebnis Is Nothing Then
'gleich kopieren
Worksheets("Gesamt").Columns(ergebnis.Column).Rows("3:500").Copy Destination:=Worksheets("Auswahl").Columns(3)
Else
MsgBox "Es wurde nichts gefunden!"
End If
End Sub
|