möchte erreichen, dass in Spalte A alle Zellen mit "gbr" gesucht werden;
wenn gefunden, soll in der gleichen Zeile in Spalte F (=6) der Inhalt
aus Spalte A eingetragen werden.
Mein Versuch führt nicht zum Erfolg; es wird gbr gefunden und dann ab dieser
Zeile übertragen:
Sub aaaMuster()
myWert1 = gbr
myDatei = ThisWorkbook.Name
myName1 = "T3"
neueSpalte = 6
sFind = myWert1
For i = 3 To 25 'myZeile 'LoLetzte
Set Found = Workbooks(myDatei).Sheets(myName1).Range("A2:A" & 25) _
.Find(sFind, LookAt:=xlWhole, LookIn:=xlValues)
If Found Is Nothing Then
Workbooks(myDatei).Sheets(myName1).Cells(i, neueSpalte) = ""
Else
Workbooks(myDatei).Sheets(myName1).Cells(i, neueSpalte) = _
Workbooks(myDatei).Sheets(myName1).Range(Found.Address).Cells(i, 1)
End If
Next
End Sub
Besten Dank für eine Hilfe!
mfg
Erich