Live-Forum - Die aktuellen Beiträge
Datum
Titel
28.03.2024 21:12:36
28.03.2024 18:31:49
Anzeige
Archiv - Navigation
1080to1084
Aktuelles Verzeichnis
Verzeichnis Index
Übersicht Verzeichnisse
Vorheriger Thread
Rückwärts Blättern
Nächster Thread
Vorwärts blättern
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Inhaltsverzeichnis

Such - Makro

Such - Makro
16.06.2009 08:58:06
Karsten
Hallo,
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

2
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Such - Makro
16.06.2009 19:45:11
Josef
Hallo Karsten,
das geht so.
Option Explicit
Public rng As Range
Public rngBereich As Range

Sub finde_Inhalt_in_B()
  Dim varRes
  
  With ActiveSheet
    If rng Is Nothing Then
      Set rngBereich = .Range("B:B")
      Set rng = rngBereich.Find(What:=.Cells(1, 2), LookIn:=xlValues, LookAt:=xlPart, After:=.Cells(1, 2))
      If Not rng Is Nothing Then Application.Goto rng
    Else
      Set rng = rngBereich.FindNext(rng)
      If Not rng Is Nothing Then Application.Goto rng
    End If
  End With
  
End Sub

Gruß Sepp

Anzeige
AW: Such - Makro
16.06.2009 19:58:37
Karsten
Hallo Sepp,
besten Dank.
Gruß
Karsten

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige