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

Beiträge aus den Excel-Beispielen zum Thema "Schleife - nach Wert X suchen ..."