Gefundene Zelle in bestimmter Zeile des Arbeitsblatts anzeigen

[Wanderfalke]

Hallo,

wenn per VBA eine Zelle gefunden und per GOTO 'fokussiert' wurde, kann es passieren, dass sich die Zeile dieser Zelle am unteren Rand des Arbeitsblatts befindet / angezeigt wird.

Wie kann die Anzeige (evtl. per VBA?) dahingehend definiert werden, dass der Inhalt des Arbeitsblattes so verschoben/'gescrollt' wird, dass sich die Zeile der gefundenen Zelle im Arbeitsblatt an bspw. einer oberen Position befindet, bspw. die zweite Zeile?
Sprich, nicht die Zeilennummer der gefundenen Zelle soll geändert werden, sondern nur die Position/Lage der Zeile nach oben.
Ich hoffe, dass ich es halbwegs verständlich 'rüberbringen' konnte. Wenn nicht, bitte nachfragen.

Danke und mfG!

[marose67]

Hallo,

wir kennen deine Datei nicht. Ich habe es mal so, suche nach Datum, erledigt:

Application.Goto Reference:=Cells(monat + x, tag + 2), Scroll:=True

Gruß
Marcus

[Kuwer]

Hallo,

Private Sub CommandButton1_Click()
  Application.Goto Sheets("Tabelle_02").Range("B1:B1000").Find(What:="Ziel_02_B5").Offset(-1, -1), True
  ActiveCell.Offset(1, 1).Select
End Sub

Gruß Uwe