Microsoft Excel

Herbers Excel/VBA-Archiv

Informationen und Beispiele zum Thema MsgBox
BildScreenshot zu MsgBox MsgBox-Seite mit Beispielarbeitsmappe aufrufen

Workbook_open

Betrifft: Workbook_open von: lisa
Geschrieben am: 11.02.2008 11:44:19

Hallo zusammen

Ich habe, in der Hoffnung das die Zelle a10 beim öffnen des Workbooks selectiert wird, folgenden COde eingefügt.

Es klappt leider nicht.
Es rührt sich nichts und es gibt auch keine Fehlermeldung.

Kann mir bitte jemand helfen?

         Private Sub Workbook_Open()
         
         
         Range("a10").Select
         End Sub



Liebe Grüsse Lisa

  

Betrifft: AW: Workbook_open von: mumpel
Geschrieben am: 11.02.2008 11:46:23

Hallo!

Wo steht der Code? Der Code muss in "DieseArbeitsmappe", nicht in ein Standardmodul.

Gruß, Rene


  

Betrifft: AW: Workbook_open von: lisa
Geschrieben am: 11.02.2008 11:48:42

Hallo Rene

Ja in der Arbeitsmappe steht der Code, in keinem Modul.

Aber irgendwie keine Reaktion. Habe ich etwas vergessen?

Gruß Lisa


  

Betrifft: AW: Workbook_open von: mumpel
Geschrieben am: 11.02.2008 11:51:50

Hast Du die Makrosicherheit geprüft? Die steht standardmäßig auf Hoch. Stelle die Sicherheit auf Mittel.


  

Betrifft: AW: Workbook_open von: lisa
Geschrieben am: 11.02.2008 11:53:55

Hallo

Die Sicherheitsstufe steht auf niedrig.

Ist der Code also Richtig so?

Lisa


  

Betrifft: AW: Workbook_open von: Matthias G
Geschrieben am: 11.02.2008 12:04:25

Hallo Lisa,

Der Code ist eigentlich richtig.
Stell doch mal einen MsgBox-Befehl mit rein, um zu sehen, ob der ausgeführt wird:

 
 Private Sub Workbook_Open()
 
 MsgBox Me.Name
 Range("a10").Select
 End Sub
 


Gruß Matthias


  

Betrifft: AW: Workbook_open von: lisa
Geschrieben am: 11.02.2008 12:16:31

Ich danke Euch für eure Hilfe

Ich habe es mit der MSG Box ausprobiert, anschließend die Msg Box wieder rausgelöscht, und nur meinen Code über nommen.

Nun auf einmal funktioniert es.

Merkwürdig aber wieder ok.

Danke und liebe Grüße Lisa


  

Betrifft: AW: Workbook_open von: c0bRa
Geschrieben am: 11.02.2008 12:54:56

Hio...

Du sprichst kein Tabellenblatt an. Probiers so:

VBA-Code aus Microsoft Excel Objekt DieseArbeitsmappe:
Option Explicit

Private Sub Workbook_Open()
    Sheets(1).Range("A10").Select
End Sub

Rückmeldung nicht vergessen...
c0bRa
Komplexe Probleme haben einfache, leichtverständliche aber falsche Lösungen.


 

Beiträge aus den Excel-Beispielen zum Thema "Workbook_open"