Bereich in oberste sichtbare Zeile verschieben
04.02.2003 09:57:19
Holger
vielleicht könnt Ihr mir helfen.
Ich habe Bereiche definiert. Diese steuere ich über eine ComboBox an. Der Bereichsname wird bei Auswahl in die Zelle V2 eingetragen. Mit Range("v2").Value frage ich diesen Bereichsnamen ab. Nun möchte ich, dass der markierte Bereich in der obersten sichtbaren Zeile zu sehen ist. Mit dem folgenden Code probier ich rum aber ich erhalte immer eine Fehlermeldung
Laufzeitfehler 1004
Die Methode 'Goto' für das Objekt 'Application' ist fehlgeschlagen
Private Sub ComboBox1_Click()
Dim Bereich
Bereich = Range("v2").Value
Application.Goto Reference:=Range(Bereich).EntireRow, _
Scroll:=True
End Sub
Vielen Dank
Holger