Herbers Excel-Forum - das Archiv

Schleife - nach Wert X suchen ...

Bild

Betrifft: Schleife - nach Wert X suchen ...
von: udo

Geschrieben am: 21.02.2005 11:04:29
Hallo zusammen,
hab da ein kleines Problemchen, wo ích in VBA hängen bleibe...
In einer Spalte ( J ) steht ab Reihe 31 bis 10000 in irgendeiner Reihe
ein " X " drinne.
( Die Zelle in der das X zu sehen ist , wird durch eine Formel angezeigt, die wiederum den Bezugswert aus einem anderen Tabellenblatt errechnet ).
Über das Ereigniss " Worksheet_Activate " , soll nun die Tabelle automatisch also gleich in die Höhe der Reihe gescrollt werden , in der in Spalte J das X zu sehen ist.
Könnt ihr mir bitte kurz beim entsprechenden Befehl helfen ... komm da grad nicht weiter ...
Als Beispiel hab ich mir aus der recherche mal folgenden Befehl heraus genommen
ActiveWindow.ScrollRow = ActiveWindow.ActiveCell.Row
mit dem man schon mal auf die Reihe scrollen lassen kann, die aktiviert ist ...

Nur die Bedingung also... da bräuchte ich eure Unterstützung ...
Lieben dank einstweilen
udo
Bild

Betrifft: AW: Schleife - nach Wert X suchen ...
von: Marcl

Geschrieben am: 21.02.2005 11:09:38
Moin udo,
Range("J31:J10000").Find(What:="X", After:=ActiveCell, LookIn:=xlFormulas, LookAt _
:=xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext, MatchCase:= _
False, SearchFormat:=False).Activate

so vielleicht?
Gruß
Marcl
Bild

Betrifft: noch nicht ganz ... fehlt noch was ....
von: udo

Geschrieben am: 21.02.2005 11:34:47
Hallo Marcel , zunächst mal lieben Dank , aber leider klappts noch nicht ganz ...
Wenn ich deine Anweisung einbringe, dann geht der Makrodebugger auf , und die Anweisung ist kompl. gelb ...
Also da ist irgendetwas .... ???
Ich habs mal folgender Maßen schon ganz gut hinbekommen
Dim zelle As Object
With ActiveSheet.Range("J:J")
Set zelle = .Find("X")
End With

Cells(ActiveCell.Row, 2).Activate

... nur leider reagiert die Anweisung so nur auf den Wert " X " , wenn du ihn direkt
in die Zelle tippst , wenn er durch eine Formel dann angezeigt wird , reagiert das Makro nicht mehr , hättest du mir da ne Idee , wäre nett ...
Danke nochmals

udo
 Bild
Excel-Beispiele zum Thema "Schleife - nach Wert X suchen ..."
In einer Schleife auf Elemente einer UserForm zugreifen CheckBoxes in UserForms in eine Schleife einbinden
Gruppe von UserForm-ListBoxes über eine Schleife ansprechen UserForm-Optionsfelder über eine Schleife zurücksetzen
Zellinhalt suchen und Zelle auswählen Suchbegriff über mehrere Tabellenblätter suchen.
Suchen und weitersuchen Zahl +/- 1 suchen
Ein Zeichen in einer Formel suchen Datum suchen und Wert eintragen