Cells.Find klappt nicht, wo ist der Fehler?
Holger
ich möchte in einem bestimmten Range nach einem String suchen.
Leider kann ich das nur für eine fixe Zelle z.B A1 aber nicht innerhalb eines Ranges.
Da der String in der Tabelle oft vorkommen kann, darf die Suche nur innerhalb des Ranges erscheinen.
Hier mein Code bislang, wäre über Hilfe sehr dankbar.
Sub GetCurrentDeliveries()
Dim rngTable As Range
Dim lngCurPer, lngFrq As long
Dim strcurPeriod, strFrq As String
Set rngTable = Range("A6:Q18") -> nur hier will ich nach 2010-06 suchen!
strcurPeriod = Worksheets("Shipments").Range("B4").Value
strFrq = "12x"
Set rngCurPer = Cells.Find(What:="2010-06", lookat:=xlWhole) -> KLAPPT nutzt aber so NIX
lngCurPer = Cells.Find(What:="2010-06", After:=rngTable, _ -> Hier ist der Range angegeben! _
SearchOrder:=xlByRows, SearchDirection:=xlPrevious).Row
End Sub