Microsoft Excel

Herbers Excel/VBA-Archiv

Suche ab Zelle A5 | Herbers Excel-Forum


Betrifft: Suche ab Zelle A5 von: Karsten
Geschrieben am: 20.12.2009 11:28:24

Hallo,

in u.st. Code möchte ich, dass die Suche erst in Zelle A5 beginnt bis zum Schluß der A Spalte. Mit Range("A5:A65536") haut es nicht hin. Weiß jemand, wie es richtig stehen muß?

Gruß
Karsten

Dim varResult As Variant
varResult = Application.Match(CDbl(Date), Range("A:A"), 0)
If IsNumeric(varResult) Then Application.Goto Cells(varResult, ActiveCell.Column)
ActiveWindow.ScrollRow = ActiveWindow.ActiveCell.Row

https://www.herber.de/bbs/user/66713.xls

  

Betrifft: AW: Suche ab Zelle A5 von: Josef Ehrensberger
Geschrieben am: 20.12.2009 11:37:11

Hallo Karsten,

Dim varResult As Variant
varResult = Application.Match(CDbl(Date), Range("A5:A65536"), 0)
If IsNumeric(varResult) Then Application.Goto Cells(varResult + 4 , ActiveCell.Column), True

Gruß Sepp



  

Betrifft: AW: Suche ab Zelle A5 von: Karsten
Geschrieben am: 20.12.2009 12:37:33

Hallo Sepp,

besten Dank.

Gruß
Karsten