|
die interesanten Teile deines Scriptes hast du wohl vergessen?
Diese Schleife ist unnötig wenn du nur einen Wert (Spaltennamen) suchst.
For Each strHeader In Array("Target")
Set rngCol = sh.UsedRange.Find(strHeader, LookIn:=xlValues, LookAt:=xlWhole)
If Not rngCol Is Nothing Then Exit For
Next
Und dieses Konstrukt wird nur verwendet wenn du mehre Zeilen mit dem Projektnamen erwartest.
Set c = .Find(strFind, LookIn:=xlValues, LookAt:=xlWhole)
If Not c Is Nothing Then
firstAddress = c.Address
Auch hier reicht ein Find auf rngcol und eine Prüfung auf Nothing. Dann
wsTarget.Range("A2).end(xldown).offset(1).resize(1, columns("A:X").count).value = c.resize(1, Columns("A:X").count).value
|