Such - Makro
16.06.2009 08:58:06
Karsten
Sepp hat mir dankenswerterweise folgenden Makro geschrieben:
Option Explicit
Public rng As Range
Public rngBereich As Range
Sub finde_Inhalt_in_B()
Dim varRes
With ActiveSheet
If rng Is Nothing Then
varRes = Application.Match(CLng(Date), .Range("A:A"), 0)
If IsNumeric(varRes) Then
Set rngBereich = .Range(Cells(varRes, 2), .Cells(Rows.Count, 2))
Set rng = rngBereich.Find(What:=.Cells(1, 2), LookIn:=xlValues, LookAt:=xlPart, After:= _
rngBereich.Cells(rngBereich.Rows.Count, 1))
If Not rng Is Nothing Then Application.Goto rng
End If
Else
Set rng = rngBereich.FindNext(rng)
If Not rng Is Nothing Then Application.Goto rng
End If
End With
End Sub
Jetzt ist mir eingefallen, dass ich diesen Befehl, ohne das heutige Datum zu berücksichtigen, brauche.
Also einfach nur als Suche der kompletten Spalte B. Ich bekomme das nicht hin. Kann mir jemand helfen?
Gruß
Karsten