Suchprobleme

Informationen und Beispiele zu den hier genannten Dialog-Elementen:


Excel-Version: 2000/XP
nach unten

Betrifft: Suchprobleme
von: Uwe
Geschrieben am: 08.05.2002 - 09:44:33

Hallo,

ich habe mir ein Makro geschrieben, mit dem ich nach bestimmten Werten suchen kann und anschliessend markiert es mir die ganze Zeile rot. 2 Probleme habe ich noch:
1. Gibt es den Wert nicht, dann kommt ein Laufzeitfehler 91
2. Gibt es den Wert nur einmal, dann befinde ich im in einer Endlosschleife.

Leider sind meine VB-Kentnisse sehr schlecht, wäre super wenn mir jemand helfen würde.
Vielen Dank!

Sub Suchen()

Dim begriff As String
Dim x As Integer
Dim z As Integer

Application.ScreenUpdating = False
Range("A1").Select
begriff = InputBox("Suchbegriff eingeben")
If begriff = "" Then Exit Sub
Cells.Find(What:=begriff, After:=ActiveCell, LookIn:=xlValues, LookAt:= _
xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext, MatchCase:=False).Activate
ActiveCell.EntireRow.Interior.ColorIndex = 3
z = ActiveCell.Row
x = z
Do
Cells.FindNext(After:=ActiveCell).Activate
ActiveCell.EntireRow.Interior.ColorIndex = 3
z = ActiveCell.Row
If x <= z Then
x = z
Else
Exit Sub
End If
Loop
Application.ScreenUpdating = True

End Sub

nach oben   nach unten

Re: Suchprobleme
von: Hans W. Herber
Geschrieben am: 08.05.2002 - 09:48:19

Hallo Uwe,

folgender Text:
https://www.herber.de/mailing/058499h.htm

hans

nach oben   nach unten

Re: Suchprobleme
von: Uwe
Geschrieben am: 08.05.2002 - 10:18:54

Danke,
den Laufzeitfehler habe ich damit abgefangen.
Aber wie kann ich es hinbringen, dass sich Excel nicht aufhängt, wenn ich den Begriff nur eimal finde??

Uwe


nach oben   nach unten

Re: Suchprobleme
von: Hans W. Herber
Geschrieben am: 08.05.2002 - 10:22:20

Hallo Uwe,

prüfe die Übernahme des Codes. Bei meiner Routine hängt sich nix auf.

hans


nach oben   nach unten

Re: Suchprobleme
von: Uwe
Geschrieben am: 08.05.2002 - 12:35:31

Danke nochmals für die Hilfe!
Klappt jetzt einwandfrei

 nach oben

Beiträge aus den Excel-Beispielen zum Thema "VBA & Verweise"