Liste mit Makro wieder Position 1

Liebes Forum
Problem:
Liste (etwa über 20 Angaben) mittels Gültigkeit erstellt. (Extra-Daten-Gültigkeit). Nun möchte ich ein Makro, das sich die Liste nach Abschluss auf Position 1 stellt. Leider funtkioniert das nicht.
Hier das Makro

Range(„G14:stuck_out_tongue:14“).Select
ActiveWindow.SmallScroll Down:=1

Es bleibt der zuletzt getätigte Eintrag.
Vielen Dank für eure Hilfe.
Gauki

Hi Gauki,

Liste (etwa über 20 Angaben) mittels Gültigkeit erstellt.
(Extra-Daten-Gültigkeit). Nun möchte ich ein Makro, das sich
die Liste nach Abschluss auf Position 1 stellt. Leider
funtkioniert das nicht.

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Target.Address(0, 0) „A1“ Then Exit Sub
Target = Worksheets(„Tabelle2“).Range(„Liste“).Cells(1, 1)
End Sub

Hier das Makro
Range(„G14:stuck_out_tongue:14“).Select
ActiveWindow.SmallScroll Down:=1

Was hat der Codeschnipsel mit der Anfrage zu tun ? Wenn doch was, habe ich nicht verstanden was du möchtest.

Gruß
Reinhard

Hallo Reinhard
Danke für deine Hilfe, leider erscheint dabei immer folgender Fehler, wenn ich mittels F5-Taste teste:
Bei
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Target.Address(0, 0) „A1“ Then Exit Sub
Target = Worksheets(„Tabelle2“).Range(„Liste“).Cells(1, 1)
End Sub
wird man aufgeforder
Sub

End Sub
zu setzen und einen Namen zu vergeben, Beispiel
sub setzeliste()
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Target.Address(0, 0) „A1“ Then Exit Sub
Target = Worksheets(„Tabelle2“).Range(„Liste“).Cells(1, 1)
End Sub
End Sub
Dabei erscheint „Fehler beim Kompilieren Mehrdeutiger Name: Worksheet_SelectionChange“
Wahrschein hängt das mit der Schreibweise zusammen.
Danke für deine Hilfe
Herzliche Grüße
Gauki.

Hallo Gauki,

Danke für deine Hilfe, leider erscheint dabei immer folgender
Fehler, wenn ich mittels F5-Taste teste:
Bei Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Target.Address(0, 0) „A1“ Then Exit Sub
Target = Worksheets(„Tabelle2“).Range(„Liste“).Cells(1, 1)
End Sub

„Worksheet_SelectionChange“ hat Parameter, Prozeduren mit Parametern kann man nicht mit F5 starten/testen.

Wenn du F5 drückst während du in einer Funktion oder einer Prozedur mit Parametern stehst kommt eine Fensterchen wo die Prozeduren (makros) aufgelistet sind, die du starten kannst/darfst.

wird man aufgefordert
zu setzen und einen Namen zu vergeben, Beispiel

Mir unklar wer/was dich da auffordert einen Namen und vorallem für was zu vergeben.

Dabei erscheint „Fehler beim Kompilieren Mehrdeutiger Name:
Worksheet_SelectionChange“

Pro Tabellenblattmodul darf es nur einmalig eine Prozedur geben, die
„Worksheet_SelectionChange“ heißt.

Gruß
Reinhard