ich möchte in VBA:
den Wert in Zelle (B5) im Bereiche (C2:Z2) suchen,
dann die Werte von der Spalte (_3 : _500)
in die zellen (A5:A500) einfügen.
Wer kann mir helfen?
Vielen Dank.
Dagi
Sub test()
Dim c As Range
Set c = Range("C2:Z2").Find(Range("B5"), _
LookIn:=xlValues, _
lookat:=xlWhole)
If Not c Is Nothing Then
Range(Cells(3, c.Column), Cells(500, c.Column)).Copy Range("A5")
Else
MsgBox "nix gefunden"
End If
Set c = Nothing
End Sub