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
Die erweiterte Suchfunktion hilft dir, gezielt die besten Antworten zu finden
Suche nach den besten AntwortenEntdecke unsere meistgeklickten Beiträge in der Google Suche
Top 100 Threads jetzt ansehen