ich habe eine Tabelle in excel, die eine Gliederung beinhaltet.
Und ich brauche in VBA eine "Such"-Funktion, die die ganze(auch in Gliederung) Tabelle nach einen bestimmten Begriff durchsucht.
Danke
mimi15
Gruß Alex
Dim gZelle As Range, sBegriff$
sBegriff = InputBox("Bitte Suchbegriff eingeben:", _
Application.UserName)
If sBegriff = "" Then Exit Sub
Set gZelle = ActiveSheet.Columns("A:F").Find(sBegriff)
If gZelle Is Nothing Then
Beep
MsgBox "Suchbegriff nicht gefunden!", , Application.UserName
Exit Sub
End If
gZelle.Select
MsgBox gZelle.Address(False, False)
gZelle.Offset(1).Select
While ActiveCell.Address <> gZelle.Address
Cells.FindNext(After:=ActiveCell).Activate
If ActiveCell.Address = gZelle.Address Then Exit Sub
MsgBox ActiveCell.Address(False, False)
Wend
End Sub
Die erweiterte Suchfunktion hilft dir, gezielt die besten Antworten zu finden
Suche nach den besten AntwortenEntdecke unsere meistgeklickten Beiträge in der Google Suche
Top 100 Threads jetzt ansehen