Herbers Excel/VBA-Archiv

Suchen | Herbers Excel-Forum

• Suchen von fritz vom 30.01.2010 20:11:46
• AW: Suchen - von Beate Schmitz am 30.01.2010 21:00:42
  • AW: Suchen - von fritz am 30.01.2010 21:09:58

Betrifft: Suchen von: fritz
Geschrieben am: 30.01.2010 20:11:46

Schönen Abend zusammen,

kann mir jemand einen vba code nennen mit dem ich in der tabelle 1 die spalte a durchsuchen kann.
als Suchkriterium soll der Wert der aktiven Zelle (befindet sich in der Tabelle 2) herangezogen werden.

danke
fri

Betrifft: AW: Suchen von: Beate Schmitz
Geschrieben am: 30.01.2010 21:00:42

Hallo Fritz,

Sub Suchen1()
    Dim i As String
    If ActiveSheet.Name <> "Tabelle2" Then Exit Sub
    i = activeCell.Value
    Worksheets("Tabelle1").Select
    Columns("A:A").Find(what:=i, After:=activeCell, LookIn:=xlFormulas, _
        LookAt:=xlWhole, SearchOrder:=xlByRows, SearchDirection:=xlNext, _
        MatchCase:=False, SearchFormat:=False).Activate
    Application.CutCopyMode = False
End Sub



Gruß,
Beate

Betrifft: AW: Suchen von: fritz
Geschrieben am: 30.01.2010 21:09:58

Danke Beate!
funktioniert super.
schönen abend noch

Beiträge aus den Excel-Beispielen zum Thema "Suchen"