Live-Forum - Die aktuellen Beiträge
Anzeige
Archiv - Navigation
224to228
Aktuelles Verzeichnis
Verzeichnis Index
Übersicht Verzeichnisse
Vorheriger Thread
Rückwärts Blättern
Nächster Thread
Vorwärts blättern
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
224to228
224to228
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Inhaltsverzeichnis

Screen folgt nicht dem Cursor

Screen folgt nicht dem Cursor
04.03.2003 12:47:15
Martin
Hallo,

wenn ich per Makro nach einem Wert in einer Tabelle suchen lasse, so findet xl diesen zwar und springt auch in die Zelle, der Bildschirm "folgt" aber nicht, scrollt also nicht hinterher.

Woran kann das liegen? ScreenUpdating ist nicht das Problem, genausowenig die Tatsache, dass ich das Fenster fixiert habe.

Gruss,
Martin

4
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
Re: Screen folgt nicht dem Cursor
04.03.2003 12:58:46
Hajo_Zi

Hallo Martin

in VBA kann auf select und ähnliche Befehle verzichtet werden.

Vielleicht solltest Du mal Deine Codezeile poste??

Gruß hajo

Re: Screen folgt nicht dem Cursor
04.03.2003 13:31:55
Martin

Hallo Hajo,


Sub Suchen()
Dim Mldg As Byte
Dim suche

suche = InputBox("bitte den Suchbegriff eingeben", "suche nach ..")

On Error GoTo Fehler

ActiveSheet.Range("A1").Select
Cells.Find(What:=suche, After:=ActiveCell, LookIn:=xlFormulas, LookAt:= _
xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext, MatchCase:=False) _
.Activate

ActiveCell.EntireRow.Select

Exit Sub

Fehler:
Mldg = MsgBox("Suchbegriff wurde in dieser Arbeitsmappe nicht gefunden", vbInformation, "Suchergebnis")
Exit Sub

End Sub

Gruss,
M.


Anzeige
Re: Screen folgt nicht dem Cursor
04.03.2003 13:46:26
Hajo_Zi

Hallo Martin

Gruß Hajo

Danke dir Hajo, es klappt (oT)
04.03.2003 13:52:31
Martin

M.

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige