|
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:
1 2 | Worksheets("Abkürzungen").Activate
|
Dann habe ich eine Subroutine, welche beim Aktivieren des Tabellenblattes ausgefüht wird:
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 | Private Sub Worksheet_Activate()
Call Benutzeransicht
ActiveWindow.DisplayHorizontalScrollBar = True
ActiveWindow.DisplayVerticalScrollBar = True
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:
1 2 3 4 5 6 7 8 9 10 11 12 | Sub Benutzeransicht()
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:
1 2 3 4 5 6 7 8 9 | Private Sub ButtonDown1_Click()
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!
|