Herbers Excel-Forum - das Archiv
Begriffsuche in Zellen mit ganzen Texten
- Begriffsuche in Zellen mit ganzen Texten von Klaus K. vom 24.11.2003 19:12:48
- AW: Begriffsuche in Zellen mit ganzen Texten - von Nepumuk am 24.11.2003 19:15:31
- Super. Wenn es dieses Forum nicht gäbe... :-))) oT - von Klaus K. am 24.11.2003 19:20:40
- Super. Wenn es dieses Forum nicht gäbe... :-))) oT - von Klaus K. am 24.11.2003 19:20:40
- AW: Begriffsuche in Zellen mit ganzen Texten - von Nepumuk am 24.11.2003 19:15:31
 |
Betrifft: Begriffsuche in Zellen mit ganzen Texten
von: Klaus K.
Geschrieben am: 24.11.2003 19:12:48
Hallo Leute,
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
 |
Betrifft: AW: Begriffsuche in Zellen mit ganzen Texten
von: Nepumuk
Geschrieben am: 24.11.2003 19:15:31
Hallo Klaus,
verwende an Stelle des Parameters xlWhole einfach xlPart
Gruß
Nepumuk
|
Betrifft: Super. Wenn es dieses Forum nicht gäbe... :-))) oT
von: Klaus K.
Geschrieben am: 24.11.2003 19:20:40
.
| |