Suchen
10.05.2004 13:18:20
Kerstin Tisot
habe heute schon einmal mein Problem eingestellt, habe auch Antwort erhalten, doch leider ist dies nicht die Lösunge gewesen. Also hier das Problem:
Ich habe für ein Tabellenblatt eine Suchmaschine (wie unten) erstellt.
1. Problem:
Er wechselt vom Ausgangsblatt, auf dem sich der Befehlsbutton befindet nicht auf das entsprechende Blatt auf dem er suchen soll.
2. Problem:
Er liefert mir zwar in der MsgBox die gesuchte Zelle, er soll aber auch mit dem aktiven Cursor dort hin gehen und das "Bild" also die Daten nach oben schieben, sodass sie auf dem Bildschirm zu sehen sind.
Mein bereits erhaltener Lösungsvorschlag war: objFind.Activate hatte ich auch schon versucht, dann wird zwar die gefundene Zelle aktiviert aber die Daten werden nicht nach oben geschoben um sie in dem begrenzten Bildschirmbereich direkt zu sehen.
Wer weiss Rat??
Gruss und Vielen Dank.
Kerstin
Dim strInput As String
Dim i As Byte
Dim objFind As Object
Dim strAdr As String
Dim ws As Worksheet
Application.ScreenUpdating = False
Worksheets("Alle").Select
'Suchbegriff abfragen
strInput = Application.InputBox _
("Bitte den gewünschten Suchbegriff eingeben", _
Default:="Prettl")
i = 1
'Suche starten
Sprungmarke:
Set objFind = ActiveSheet.Columns("B:B").Find(What:=strInput, _
After:=ActiveCell)
If objFind Is Nothing Then
MsgBox "Die gewünschte Firma wurde nicht gefunden"
Exit Sub
Else: MsgBox objFind
End If