Live-Forum - Die aktuellen Beiträge
Datum
Titel
19.04.2024 15:39:42
Exceltabelle daten per combobox zu word Datei
19.04.2024 14:04:05
PDF per VBA ausgeben - Seitenskalierung
19.04.2024 13:58:02
Set Worksheet geht im O365 aber im Excel 2016 nicht
19.04.2024 13:49:38
Per Kopfdruck als pdf speichern und Mail erstellen
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
1136to1140
Aktuelles Verzeichnis
Verzeichnis Index
Übersicht Verzeichnisse
Vorheriger Thread
Rückwärts Blättern
Nächster Thread
Vorwärts blättern
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Vorheriger Thread
Vorheriger Thread
Rückwärts Blättern
1136to1140
1136to1140
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

bestimmtes blatt bei WB-Open öffnen

bestimmtes blatt bei WB-Open öffnen
robert
Hi, und guten moergen
warum ist laut diesem workbook_open
nicht das blatt spielerdaten aktiv ?
es öffnet immer mit dem zuletz aktiven blatt :-(
was ist falsch, bzw.wie geht es ?
gruß
robert
Private Sub Workbook_Open()
ThisWorkbook.Worksheets("Spielerdaten").Activate
Symbolleiste_ein
ActiveWindow.ScrollColumn = 1
End Sub

7
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Benutzer
Anzeige
AW: bestimmtes blatt bei WB-Open öffnen
21.02.2010 09:33:40
Reinhard
Hallo Robert,
was steht denn in
Symbolleiste_ein
?
Gruß
Reinhard
AW: bestimmtes blatt bei WB-Open öffnen
21.02.2010 09:38:02
robert
hallo Reinhard,
hier das makro
gruß
robert
'Menü erzeugen 
Sub Symbolleiste_ein()
On Error Resume Next
'Variablen deklarieren
Dim oBtn1 As CommandBarButton
Dim oBtn2 As CommandBarButton
'Symbolleiste benennen
Set oBar = CommandBars.Add("Leiste")
' Symbolleistenposition festlegen
oBar.Position = msoBarTop
Set oBtn2 = oBar.Controls.Add
With oBtn2
.Caption = "Spieler anlegen"
.OnAction = "Neue"
.Style = msoButtonIconAndCaption
.FaceId = 361
.BeginGroup = True
End With
Set oBtn3 = oBar.Controls.Add
With oBtn3
.Caption = "Neues Spiel beginnen"
.OnAction = "neuesspiel"
.Style = msoButtonIconAndCaption
.FaceId = 1100
.BeginGroup = True
End With
Set oBtn4 = oBar.Controls.Add
With oBtn4
.Caption = "Daten eingeben  "
.OnAction = "Dateneingabe"
.Style = msoButtonIconAndCaption
.FaceId = 1100
.BeginGroup = True
End With
Set oBtn5 = oBar.Controls.Add
With oBtn5
.Caption = "Daten eintragen  "
.OnAction = "Eintragen"
.Style = msoButtonIconAndCaption
.FaceId = 1100
.BeginGroup = True
End With
Set oBtn6 = oBar.Controls.Add
With oBtn6
.Caption = "Blatt erzeugen  "
.OnAction = "Blatt_kopieren"
.Style = msoButtonIconAndCaption
.FaceId = 1100
.BeginGroup = True
End With
'Symbolleist einblenden
oBar.Visible = True
End Sub

Anzeige
Frage noch offen o.w.T.
21.02.2010 09:47:06
Reinhard

AW: bestimmtes blatt bei WB-Open öffnen
21.02.2010 09:57:34
Hajo_Zi
Hallo Robert,
die Tabelle gibt es?
Schreibe die Activate Zeile als letzte.
Vielleicht ohne ThisWorkbook.
Vielleicht .select

noch ein problem...
21.02.2010 10:16:58
robert
hi Hajo,
ich habe eine kopie der datei erstellt.
im original geht es, in der kopie nicht !
die original datei hat 315 kb, die kopie 498 kb ( excel 2003 )
und unter excel 2007 hat die gleiche datei 166 kb
rätsel......
gruß
robert
AW: noch ein problem...
21.02.2010 10:37:39
Hajo_Zi
Hallo robert,
hat Deine Originaldatei vielleicht eine Fehler? Das soll doch ab und zu vorkommen. Mache eine kopie. Lösche das Original und gebe der Kopie den Nmaen vom Original.
Gruß Hajo
Anzeige
..hab ich soeben gemacht...
21.02.2010 10:44:17
robert
hi, Hajo
eben habe ich die datei mit 315 kb kopiert, neue datei bleibt bei 315 kb....
wie die kopie mit 498 kb entstanden ist ? keine ahnung,
jedenfalls funktioniert jetzt wieder alles so wie es soll ;.)
muss wirklich ein defekt in der datei gewesen sein.
danke und gruß
robert

Beliebteste Forumthreads (12 Monate)

Anzeige
Jetzt das Excel-Portal bewerten: Deine Stimme zählt!

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige