Microsoft Excel

Herbers Excel/VBA-Archiv

Informationen und Beispiele zum Thema MsgBox
BildScreenshot zu MsgBox MsgBox-Seite mit Beispielarbeitsmappe aufrufen

VBA Suchfunktion

Betrifft: VBA Suchfunktion von: th0mas
Geschrieben am: 12.08.2004 10:12:28

Hi!

Ich suche eine VBA-Funktion welche ein Tabellenblatt nach einem bestimmten Eintrag durchsucht und mir dann Spalte und/oder Zeile des gefundenen Eintrags bestimmt. Ich denke mal, dass sowas doch sicher oft benötigt wird, oder gibts da andere Lösungswege?

lg Thomas

  


Betrifft: AW: VBA Suchfunktion von: ChrisL
Geschrieben am: 12.08.2004 10:59:36

Hi Thomas

Ich mach es immer über die Tabellenfunktion VERGLEICHEN resp. MATCH.


z.B.

Dim Suchkriterium As String
Dim Suchmatrix As Range

Suchkriterium = "b"
Set Suchmatrix = Range("A1:A3")

MsgBox WorksheetFunction.Match(Suchkriterium, Suchmatrix, 0)


Gruss
Chris


  


Betrifft: AW: VBA Suchfunktion von: WernerB.
Geschrieben am: 12.08.2004 11:12:43

Hallo Thomas,

hilft Dir das weiter?
Sub Thomas()
Dim SuBe As Range
Dim s As String   'bei Datum: As Date
    Application.ScreenUpdating = False
    s = "Thomas"
    Set SuBe = Sheets("Tabelle1").Cells.Find(s, lookat:=xlWhole)
    If Not SuBe Is Nothing Then
      MsgBox "Suchbegriff in Spalte " & SuBe.Column & vbCr & _
        "und Zeile  " & SuBe.Row & " gefunden !", vbInformation, _
        "Dezenter Hinweis für " & Application.UserName & ":"
    Else
      MsgBox "Nichts gefunden !", vbInformation, _
        "Dezenter Hinweis für " & Application.UserName & ":"
    End If
    Set SuBe = Nothing
    Application.ScreenUpdating = True
End Sub

Viel Erfolg wünscht
WernerB.

P.S.: Dieses Forum lebt auch von den Rückmeldungen der Fragesteller an die Antworter !


  


Betrifft: AW: VBA Suchfunktion von: th0mas
Geschrieben am: 12.08.2004 11:38:58

Hi! Natürlich gebe ich immer Feedback wenn mir jemand helfen kann - bin für jeden Versuch dankbar.

@Werner: Dein code war genau das was ich gesucht habe. Danke!