ich suche eine Lösung, nach der in Spalte "X" ein Wert gesucht wird
und wenn gefunden dieser Wert in Spalte "Y" übertragen wird. Ich habe einen
Code (von Klaus-Dieter), der funktioniert - aber nicht flexibel ist.
Mein Ziel ist, beide Spalten mit Variablen zu belegen.
Bei meiner Variante habe ich das Problem, dass die Einträge aufhören
wenn der Suchbegriff in der Suchspalte in einer "Leerzeile" nicht
gefunden wird - dann wird der Code beendet (ohne Fehlermeldung):
Sub aaaMuster()
Dim zeil As Integer
Dim adresse As String
Dim c As Object
myWert1 = "gbr"
myDatei = ThisWorkbook.Name
myName1 = "T3"
letzteSpalte = 2
neueSpalte = 7
With Workbooks(myDatei).Sheets(myName1).Range(letzteSpalte & "1:" & letzteSpalte & "500") ' Test Erich
'With Workbooks(myDatei).Sheets(myName1).Range("b1:b500") ' Original Klaus-Dieter
Set c = .Find(myWert1, LookIn:=xlValues)
If Not c Is Nothing Then
adresse = c.Address
Do
zeil = c.Row
Workbooks(myDatei).Sheets(myName1).Cells(zeil, neueSpalte) = _
Workbooks(myDatei).Sheets(myName1).Cells(zeil, letzteSpalte)
Set c = .FindNext(c)
Loop While Not c Is Nothing And c.Address <> adresse
End If
End With
End Sub
Besten Dank für eine Hilfe!
mfg
Erich