Hallo Nacholino,
versuche mal nachfolgendes Makro, das bei mir schon des Öfteren zum Einsatz gekommen ist.
Kopiere das Makro in ein StandardModul und starte es z.B. über eine Befehlsschaltfläche
Teste das Makro aber bitte in einer Testdatei und nicht gleich in Deiner Originaldatei.
Option Explicit
Sub Suchen()
Dim strSuche As String
Dim strFind() As String
Dim strFirstAddress As String
Dim strText As String
Dim rngBereich As Range
Dim lngIndex1 As Integer
Dim lngIndex2 As Integer
Dim schalter As Integer
strSuche = InputBox("Suchbegriff eingeben", "Suchenfunktion")
If strSuche = "" Or Len(strSuche) = 0 Then Exit Sub
Set rngBereich = Cells.Find(what:=strSuche, lookat:=xlPart, LookIn:=xlValues, MatchCase:=False)
If rngBereich Is Nothing Then
Beep
MsgBox "Der Suchbegriff wurde nicht gefunden! Es ist aber nicht 100% sicher, dass der gesuchte " _
& "Begriff sich nicht in der Tabelle befindet. Überprüfen Sie daher bitte nochmal die " _
& "Schreibweise und geben den Suchbegriff erneut ein, oder suchen Sie den Begriff manuell " _
& "in der Tabelle.", vbInformation, "Nichts gefunden..."
Else
strFirstAddress = rngBereich.Address
Do
lngIndex1 = lngIndex1 + 1
ReDim Preserve strFind(1 To lngIndex1)
strFind(lngIndex1) = rngBereich.Address
Set rngBereich = Cells.FindNext(rngBereich)
Loop While Not rngBereich Is Nothing And rngBereich.Address <> strFirstAddress
Do
lngIndex2 = lngIndex2 + 1
If lngIndex2 = lngIndex1 Then
strText = ""
schalter = 0
End If
Range(strFind(lngIndex2)).Select
ActiveWindow.ScrollRow = Selection.Row
If lngIndex1 > 1 Then
If MsgBox(CStr(lngIndex2) & ". von " & CStr(lngIndex1) & " gefunden Übereinstimmungen des Suchbegriffes." _
& vbNewLine & "Die nächste Übereinstimmung anzeigen?", vbQuestion + vbYesNo, "gefundener Begriff...") = 7 Then _
Exit Do
Else
MsgBox "Eine Übereinstimmung des Suchbegriffes gefunden." _
, vbInformation, "Begriffe gefunden..."
End If
If lngIndex2 = lngIndex1 Then Exit Do
Loop
End If
Set rngBereich = Nothing
End Sub Solltest Du nicht wissen, wie Du den Code in Deine Datei bekommst, dann schau mal auf
meiner HP in der
Rubrik Anleitungen und dort dann in der
Anleitungsnummer 3 nach. Dort stelle ich dazu eine bebilderte Anleitung zur Verfügung, die Dir sicherlich helfen wird.
Bei Fragen melde Dich.
MfG,
Oliver
[sub]Da hier der einzige Lohn für die Helfer eine Rückmeldung ist, wäre es nett, wenn Du[/sub]
[sup] ein Feedback abgeben könntest, ob der Lösungsvorschlag Dein Problem gelöst hat.[/sup]
