Begriffsuche in Zellen mit ganzen Texten
24.11.2003 19:12:48
Klaus K.
wie kann ich diesen Code umbauen, sodass er nicht nur Werte findet
die alleine in einer Zelle stehen, sondern auch Werte die mit anderen
Angaben zusammen in einer Zelle stehen?
Ich suche z.B. "ReNr:1234" in einer Zelle mit dem Text "blablaReNr:1234blabla".
Ansonsten ist er exakt das, was ich schon lange suche.
Dieser Code stammt von http://www.excel-cd.de/mailing/133801h.htm
Sub Uebetragen()
Dim rng As Range
Dim iRowL As Integer, iRow As Integer
iRowL = Cells(Rows.Count, 1).End(xlUp).Row
For iRow = 1 To iRowL
If Not IsEmpty(Cells(iRow, 1)) Then
With Worksheets("Konto")
Set rng = .Cells.Find(Cells(iRow, 1), _
lookat:=xlWhole) ', LookIn:=xlValues)
If Not rng Is Nothing Then
Cells(iRow, 2) = .Cells(rng.Row, 2)
Cells(iRow, 3) = .Cells(rng.Row, 3)
End If
End With
End If
Next iRow
End Sub
Wär klasse, wenn mir einer helfen könnte :-)
Gruss
Klaus
Anzeige