VBA find function
07.07.2022 10:56:43
Chris
ich habe folgenden VBA Code geschrieben. Er hat auch gut funktioniert. Allerdings bekomme ich auf einmal einen Run Time error 91.
In dem Bereich:
Set finden = Sheet3.Range("A11:z100").Find(what:=Sheet3.Range("b3").Value)
Cells(finden.Row, finden.Column).Offset(3, 0).Activate
Finden soll den Inhalt einer Zelle finden: =C3&D3
Allerdings wird der Text daraus nicht mehr gefunden. Bis gestern hat es funktioniert
Wenn ich die Zelle mit dem zu suchenden Text und die Zelle mit dem zu finden Text mit =B4=I11 bekomme ich jedoch TRUE
Warum wird dann I11 nicht gefunden?
Vielen Dank
Mein Code:
Sub Filter()
Dim finden As Range
Sheet2.Range("A2").AutoFilter
Sheet2.Range("A2").AutoFilter 1, Sheet3.Range("G3").Value
Sheet2.Columns("A").Hidden = True
Sheet2.UsedRange.Offset(1, 0).Resize(Sheet2.UsedRange.Rows.Count - 1, Sheet2.UsedRange.Columns.Count).SpecialCells(xlCellTypeVisible).Copy
Sheet3.Activate
Set finden = Sheet3.Range("A11:z100").Find(what:=Sheet3.Range("b3").Value)
Cells(finden.Row, finden.Column).Offset(3, 0).Activate
ActiveSheet.Paste
Sheet2.Columns("A").Hidden = False
End Sub