In Tabell nach oben scrollen

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

Die Tabelle Deckblatt wird aufgerufen, aber das scrollen nach oben funktioniert nicht.
Ich habe einen Button "Deckblatt" auf einer Userform. Diese wird mit dem Öffnen der Excel Datei sofort gestartet / eingeblendet. Wenn ich dann über den Button "Deckblatt" auf die Tabelle Deckblatt wechseln möchte, dann funktioniert das scrollen nach oben nicht. D.h. ich muss dann jedes mal zuerst mal nach oben scrollen um Eingaben in die Tabelle vornehmen zu können.
Wohl gemerkt - das passiert nur direkt nach dem öffnen der Excel Datei und dem erstmaligen aufrifen eines Tabellenblattes (eigentlich egal welches. Wenn ich den Vorgang wiederhole (ohne die datei vorher wieder zu schließen), dann funtkioniert das scrollen, eagl wie oft ich das wiederhole.
Beim drücken des Buttons bspw. um die Deckblatt-Tabelle zu öffnen, steht ausschließlich der folgende Code:
CentroN.Hide
Sheets("Deckblatt").Visible = True
Sheets("Deckblatt").Activate
Application.Goto ActiveSheet.Range("A1"), True
Schließe die Userform, zeige die Tabelle an und aktiviere diese und scrolle dann nach oben.
Der exakt gleiche Code in einer anderen Excel datei - die ich mir zum Spaß jetzt mal erstellt habe, funktioniert aber.
Unterschied zwischen den Dateien?
Die Original datei umfasst fasst 4,8 MB, die TestDatei mit dem gleichen Code zum Testen 400kb
Wohlgemerkt:
Der Code funktioniert nur nicht nach dem dem öffnen der Datei und wenn er quasi das erste mal ausgeführt werden soll. Über die Userform zum Deckblatt und wieder zurück auf die Userform und dem erneuten drücken auf den exakt gleichen Button - dann geht es ?

Private Sub cbDeckblatt_Click() Application.ScreenUpdating = False CentroN.Hide Sheets("Deckblatt").Visible = True Sheets("Deckblatt").Activate Sheets("Deckblatt").Range("A5").Select Application.ScreenUpdating = True End Sub

Private Sub cbDeckblatt_Click() CentroN.Hide Sheets("Deckblatt").Visible = True Sheets("Deckblatt").Activate Sheets("Deckblatt").Range("A5").Select Application.Goto ActiveSheet.Range("A1"), True End Sub

Private Sub Workbook_Open() Dim Pfad1 As String Dim AktivPfad1 As String Sheets("Start").Unprotect Password:="formatieren" If Sheets("Start").Range("A103") = 1 Then GoTo theend: Else Pfad1 = ThisWorkbook.Path Sheets("Start").Range("A102").Value = Pfad1 Sheets("Start").Range("A103").Value = 1 End If theend: Sheets("Start").Visible = True Sheets("Start").Activate Sheets("Start").Range("W19").Select CentroN.Show Sheets("Start").Protect Password:="formatieren", DrawingObjects:=True, Contents:=True, _ Scenarios:=True Sheets("Start").EnableSelection = xlUnlockedCells End Sub

Eigentlich hatte ich dir folgendes gesendet:
Application.ScreenUpdating gelöscht
Keine Änderung - gleiches Verhalten.
Hat das vielleicht irgendetwas mit der "Größe" der Userform zu tun ? Diese friert ab und zu völlig motivationslos einfach ein, wenn ich diese öffne. Wie ein Blinker beim Auto :-)
Aufruf der Userform durch:
CentroN.Show
Es wird dabei keinerlei Code beim öffnen der Userform erzeugt.
Auf der Userform sind 33 Befehlsschaltflächen sowie 42 Checkboxen (beides als ActiveX Steuerelemente).
Das ist eine reine Navigations-Userform (es werden - wie erwähnt - keinerlei Felder o.ä. gefüllt, nix erzeugt - nur aufgerufen und dann ab über den nächsten Button, auf das nächste Tabellenblatt).
Reine Verzweiflungsfrage :-)
Der Code ist ja an sich pillepalle

Private Sub cbDeckblatt_Click()
CentroN.Hide
Sheets("Deckblatt").Visible = True
Sheets("Deckblatt").Activate
Sheets("Deckblatt").Range("A5").Select
Application.Goto ActiveSheet.Range("A1"), True
End Sub

Geht halt nicht nach dem öffnen der datei. Erst wieder zurück auf die Userform und wieder auf den gleichen Button drauf, dann checkt Excel wohl den pillepalle Code.
Beim öffnen von excel, wird code generiert (hat aber eigentlich nix mit der Userform zu tun).
Folgender Code wird beim öffnen von excel ausgeführt:

Private Sub Workbook_Open()
Dim Pfad1 As String
Dim AktivPfad1 As String
Sheets("Start").Unprotect Password:="formatieren"
If Sheets("Start").Range("A103") = 1 Then
GoTo theend:
Else
Pfad1 = ThisWorkbook.Path
Sheets("Start").Range("A102").Value = Pfad1
Sheets("Start").Range("A103").Value = 1
End If
theend:
Sheets("Start").Visible = True
Sheets("Start").Activate
Sheets("Start").Range("W19").Select
CentroN.Show
Sheets("Start").Protect Password:="formatieren", DrawingObjects:=True, Contents:=True,  _
Scenarios:=True
Sheets("Start").EnableSelection = xlUnlockedCells
End Sub

Beliebteste Forumthreads (12 Monate)

11
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

32 Forumthreads zu ähnlichen Themen

Links zu Excel-Dialogen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

In Tabell nach oben scrollen

11 Beiträge zum Forumthread Beiträge zu diesem Forumthread

32 Forumthreads zu ähnlichen Themen

VBA Beispiele zu verwandten Themen

Links zu Excel-Dialogen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

11
Beiträge zum Forumthread

Beiträge zu diesem Forumthread