In Spalte nach wert suchen und springen

nightcab · 2019-02-03T20:26:30+00:00

Hallo Leute! Dieses Makro suche in einer Tabelle nach dem Wert "Lesen". Werden mehrere gleiche Werte gefunden, werden diese nacheinander angesprungen. Sub findme() Cells.Find(What:="Lesen", After:=ActiveCell, LookIn:=xlValues, lookat _ :=xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext, MatchCase:= _ False, SearchFormat:=False).Activate End Sub Nun möchte ich aber, dass das Scrpt nicht in der ganzen Tabelle sucht. Der Bereich in dem das Script sucht soll eingegrenzt werden. Der Suchbereich z.B.(E100:E150) steht in Zelle "E1". Bitte um Hilfe! Gruß nightcab

Hallo,
ooops, klar, die Zelle für After muss im Suchbereich liegen. Teste mal:

Public Sub FindIt()
    Dim objCell As Range
    Application.ScreenUpdating = False
    With Range(Cells(1, 5).Value)
        If Intersect(ActiveCell, Range(Cells(1, 5).Value).Cells(1, 1).Resize( _
            Range(Cells(1, 5).Value).Rows.Count, Range(Cells(1, 5).Value).Columns.Count)) _
            Is Nothing Then .Cells(.Rows.Count, .Columns.Count).Select
        Set objCell = .Find(What:="Schwert", After:=ActiveCell, _
            LookIn:=xlValues, LookAt:=xlPart, MatchCase:=False)
        If Not objCell Is Nothing Then
            objCell.Select
            Set objCell = Nothing
        Else
            MsgBox "Nix gefunden"
        End If
    End With
    Application.ScreenUpdating = True
End Sub

Gruß
Nepumuk

Hallo Nepumuk!
Ich hab zu dem Script noch eine Frage.
Es betrifft diese Zeile


Private Sub CommandButton1_Click()
Dim objCell As Range
Application.ScreenUpdating = False
With Range(Cells(5, 3).Value)
If Intersect(ActiveCell, Range(Cells(5, 3).Value).Cells(1, 1).Resize( _
Range(Cells(5, 3).Value).Rows.Count, Range(Cells(5, 3).Value).Columns.Count)) _
Is Nothing Then .Cells(.Rows.Count, .Columns.Count).Select
Set objCell = .Find(what:="IRGENDWAS", after:=ActiveCell, _
LookIn:=xlValues, lookat:=xlPart, MatchCase:=False)
If Not objCell Is Nothing Then
objCell.Select
Set objCell = Nothing
Else
MsgBox "Nix gefunden"
End If
End With
Application.ScreenUpdating = True
End Sub

Ich würde das gerne so machen, dass der Suchbegriff "IRGENDWAS" nicht fix im Script eingetragen ist, sondern dass er aus einer Zelle, z.B. Zelle A1, ausgelesen wird. Dann würde ich in A1 ein Dropdown einrichten und hätte somit die schönste - auf meine Bedürfnisse angepasse - Suchmaschine.
Gruß nightcab

In Spalte nach wert suchen und springen

Forumthread: In Spalte nach wert suchen und springen

10
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Forumthreads zu verwandten Themen

Infobox / Tutorial