Wortteil suchen und in nebenstehende Zelle schreib
19.02.2015 08:31:52
Roger
Ich möchte gerne via VBA in Spalte A nach einem Wortteil suchen.
z.b. nach dem Teil stadt
Da würde dann in Spalte A stehen Burgstadt, Oberstadthofen etc.
Nun soll er wenn der z.b. in A3 diesen teil finden diesen Suchbegriff stadt in B3 einfügen. Zum suchen habe ich folgenden Code er findet mir das Wort nun bräuchte ich lediglich noch den Kopierbefehl der nach If InStr(Cells(lngZeile, 1), arrWerte(bytWerte)) > 0 Then folgt.
Sub suchkop()
Dim lngZeile As Long
Dim lngZaehler As Long
Dim arrWerte()
Dim bytWerte As Byte
arrWerte = Array("Suchbegriff", "stadt")
Application.ScreenUpdating = False
For lngZeile = ActiveSheet.UsedRange.SpecialCells(xlCellTypeLastCell).Row To 1 Step -1
For bytWerte = 0 To UBound(arrWerte())
If InStr(Cells(lngZeile, 1), arrWerte(bytWerte)) > 0 Then
End If
End Sub
Roger