Suchbegriff "kürzen"
rene
ich möchte folgendes mit VBA machen:
Suche festen Text in Tabelle1 und kpiere die Zeile nach Tabelle2. Ich habe im Archiv auch einen code gefunden der auch funktioniert. Bis auf meinen Suchbegriff.
Ich suche den Text "FAQ/BA" - allerdings gibt es in meiner Spalte C auch Texte/Zellen mit "FAQ/BAS" oder "FAQ/BAQC". Wenn ich folgenden code laufen lasse, nimmt er mir alle Suchbegriffe, die FAQ/BA enthalten, also auch die mit nachstehenden Buchstaben. Ich brauche aber nur die mit FAQ/BA => ohne FAQ/BAQC, etc..
Was muss ich ändern?
Sub test()
Dim strFindFirst As String
Dim strDestAddr As String
Dim intLoopCount As Integer
Dim varFind As Variant
With sheets("Tabelle1").Columns(3)
Set varFind = .Find(What:="FAQ/BA", After:=Range("C1"), _
LookIn:=xlFormulas, LookAt:=xlPart, SearchOrder:=xlByColumns, _
SearchDirection:=xlNext, MatchCase:=True)
If Not varFind Is Nothing Then
strFindFirst = varFind.Address
Do
intLoopCount = intLoopCount + 1
strDestAddr = Worksheets("Tabelle2").Range("A65536") _
.End(xlUp).Offset(1, 0).Address
Range("A" & varFind.Row & ":O" & varFind.Row).Copy _
Destination:=Worksheets("Tabelle2").Range(strDestAddr)
Set varFind = .FindNext(varFind)
Loop While Not varFind Is Nothing And varFind.Address strFindFirst
End If
End With
End Sub