Hiiiilfeeeee, ich habe ein Problem damit etwas in eine Zelle zu schreiben.

Von meiner Startseite aus rufe ich eine Art Datenbank (einfach Tabelle) auf. Der Aufruf erfolgt über ein Symbol, welches mit folgendem Makro verknüpft ist:

' Sprung auf entsprechende Seite
Worksheets("Abkürzungen").Activate

Dann habe ich eine Subroutine, welche beim Aktivieren des Tabellenblattes ausgefüht wird:

Private Sub Worksheet_Activate()
    
    ' Konfiguration der Seitenansicht
    Call Benutzeransicht
    ActiveWindow.DisplayHorizontalScrollBar = True
    ActiveWindow.DisplayVerticalScrollBar = True
    
    ' Sprung-Button ganz unten anlegen
    Dim lastrow As Integer
    lastrow = Worksheets("Abkürzungen").cells(Rows.Count, 1).End(xlUp).Row
    
    With Worksheets("Abkürzungen").ButtonUp1

        .Top = lastrow * 16.5 - 21.5
        
    End With
    
End Sub

Die Sub Benutzeransicht sieht dabei folgendermaßen aus:

Sub Benutzeransicht()

    ' Konfiguration der Seitenansicht
    Application.ExecuteExcel4Macro "Show.Toolbar(""Ribbon"", False)"
    Application.DisplayFormulaBar = False
    Application.DisplayFullScreen = True
    
    ActiveWindow.DisplayHorizontalScrollBar = False
    ActiveWindow.DisplayVerticalScrollBar = False
    ActiveWindow.DisplayWorkbookTabs = False
    
End Sub

Beim Wechsel werden also so ziemlich alle Steuerelemente ausgeblendet.

Nun habe ich neben der "Datenbank", welche auf der aktuellen Seite angezeigt wird, einen Button erstellt, der beim Klicken folgende Sub aufruft:

Private Sub ButtonDown1_Click()
    
    ' Sprung zur letzten belegten A-Zelle wenn Down betätigt
    Dim lastrow As Integer
    lastrow = Worksheets("Abkürzungen").cells(Rows.Count, 1).End(xlUp).Row
    
    Application.Goto Reference:=Worksheets("Abkürzungen").Range("A" & lastrow), Scroll:=True

End Sub

Und jetzt komme ich zum eigentlichen Problem. Wenn ich nun nach dem Sprung in die nächste freie Zelle klicken will, dann kann ich dort nichts hineinschreiben. Ich kann alle Zellen weiterhin anwählen, aber hineinschreiben funktioniert einfach nicht. Ich habe bereits versucht den Sprung anders zu realisieren, jedoch ohne Erfolg.

Es muss jedoch mit dem Sprung zusammenhängen, denn wenn ich manuell runterscrolle, kann ich einwandfrei in die Zelle schreiben. Wenn ich die o.g. Benutzeransicht nicht ausführe, dann funktioniert es auch, dass ich etwas in die Zelle schreiben kann. Ich möchte aber auf jeden Fall weiterhin alles ausgeblendet haben.

Vielen Dank für Eure Hilfe!