AW: Umgekehrt suchen
02.09.2003 13:42:57
WernerB.
Hallo Franz und/oder Thomas,
markiere den zu durchsuchenden Zellbereich (nur innerhalb einer Spalte!) und starte dann dieses Makro:
Sub Franz_Thomas()
Dim Bereich As String, lo As String, ru As String, s As String
Dim zo As Long, zu As Long, i As Long
Dim sl As Integer
Application.ScreenUpdating = False
s = InputBox("Suchbegriff eingeben:", "Suchen")
If s = "" Then
MsgBox "Keine Eingabe !" & vbCr & vbCr & "Makro-Abbruch !", 0, _
"Dezenter Hinweis für " & Application.UserName & ":"
Exit Sub
End If
Bereich = Selection.Address(False, False)
lo = Left(Bereich, InStr(Bereich, ":") - 1) 'links oben
ru = Right(Bereich, Len(Bereich) - InStr(Bereich, ":")) 'rechts unten
zo = Range(lo).Row - 1 'Zeile oben
zu = Range(ru).Row 'Zeile unten
sl = Range(lo).Column 'Spalte links
For i = zu To zo Step -1
If InStr(Cells(i, sl).Text, s) > 0 Then
MsgBox "Suchbegriff '" & s & "' wurde in Zeile " & i & " gefunden !", _
vbOKOnly + vbInformation, _
"Suchergebnis für " & Application.UserName & ":"
Application.ScreenUpdating = True
Exit Sub
End If
Next i
MsgBox "Suchbegriff '" & s & "' wurde nicht gefunden !", _
vbOKOnly + vbInformation, _
"Suchergebnis für " & Application.UserName & ":"
Application.ScreenUpdating = True
End Sub
Viel Erfolg wünscht
WernerB.
P.S.: Das Forum lebt auch von den Rückmeldungen der Fragesteller (siehe dazu Forums-FAQ)!