Live-Forum - Die aktuellen Beiträge
Datum
Titel
15.10.2025 16:22:17
Datum ist nicht Datum :(
15.10.2025 15:02:20
Blockpfeile mit Makro gehen nicht mehr nach freigabe
15.10.2025 13:51:13
VBA - Fortschrittsbalken unabhängig von Zellen
15.10.2025 13:31:47
WENN Formel mit zwei Bedingungen über 4 Spalten...
Keine passende Antwort im Forumarchiv gefunden?
Stelle deine Frage im Live-Forum
Anzeige
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Vorheriger Thread
Vorheriger Thread
Rückwärts Blättern
1988to1992
1988to1992
Aktuelles Verzeichnis
Verzeichnis Übersicht
Verzeichnis Übersicht
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Auto Open geht nicht

Forumthread: Auto Open geht nicht

Auto Open geht nicht
22.09.2024 12:19:21
Michael Erich Roland
Hallo zusammen, ich hab gedacht "Ich finde es schon raus..", aber leider nein.

Ich möchte gerne mittels Auto Open, dass immer wenn ich Excel starte, eine ( neue oder existierende " Excel Datei öffne,) dass Code im Auto Open automatisch ausgeführt wird. Zbs. soll jedesmal wenn man excel startet 3 Spalten zugefügt werden. Ich bekomme es nicht hin und würde mich über einen Rat sehr freuen, viele Grüße Michael
Anzeige

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

Betreff
Datum
Anwender
Anzeige
AW: Auto Open geht nicht
22.09.2024 12:43:01
RPP63
Moin!
• Auto_Open funktioniert zwar theoretisch noch (wenn man es richtig macht), aber seit ca. 30 Jahren heißt das Ding Workbook_Open und gehört in DieseArbeitsmappe.
• Man kann in Excel keine Spalten hinzufügen, die Anzahl ist seit 17 Jahren auf 2^14 → 16.384 begrenzt.
Folglich solltest Du Dein Vorhaben genauer schildern!

Gruß Ralf
Anzeige
AW: Auto Open geht nicht
22.09.2024 19:48:09
Ulf
Hi,
unten im Beispiel das Färben von A1 in Rot für alle neuen Dateien:

1) In der personal.xlsb in 'DieseArbeitsmappe': 


Option Explicit



Public cXL As clsExcel



Private Sub Workbook_Open()

    Application.AskToUpdateLinks = False

    Set cXL = New clsExcel

    'Stop

End Sub


2) in einem Klasssenmodul mit Namen clsExcel (muss mit o.a. Namen übereinstimmen) in 'personal.xlsb': 


Option Explicit



Private WithEvents m_Excel As Excel.Application



Private Sub Class_Initialize()

    Set m_Excel = Excel.Application

End Sub



Private Sub Class_Terminate()

    Set m_Excel = Nothing

End Sub



Private Sub m_Excel_NewWorkbook(ByVal Wb As Workbook)

    If TypeName(Wb) > "Nothing" Then

        If TypeName(Wb.Worksheets(1)) > "Nothing" Then

            Dim ws As Worksheet

            Set ws = Wb.Worksheets(1)

            ws.Range("A1").Interior.Color = vbRed

        End If

    End If

End Sub


als Hilfe


und

hth
Ulf
Anzeige
AW: Auto Open geht nicht
22.09.2024 20:26:47
Michael
Hallo Ulf,

erstmal vielen Dank.
Ich sehe schon dass meine Idee mit meinen bisherigen Kenntnissen nicht mal "so schnell" realisierbar ist.. Da hab ich noch viel zu Lernen. Das Forum ist sehr hilfreich und Ihr seid Spitze. Vielen Dank für alle Tipps und Hilfe, Michael
AW: Auto Open geht nicht
22.09.2024 13:03:36
snb
Nur seit 2007.
AW: Auto Open geht nicht
22.09.2024 14:15:10
Michael
Danke für die Antwort, Sorry, ja habe mich nicht klar ausgedrückt.
Mir geht es um folgendes.

Ich beschäftige mich mit VBA mehr aus privaten Gründen, weil ich es einfach lernen will, und dann im Job wenn ich es mal kapiere, einfliessen lassen möchte,
aber irgendwie dreh ich mich im Kreis.

Ziel ist, dass egal welche Arbeitsmappe (neu oder bereits existierend ) ich öffne, automatisch beim Öffnen ein vordefiniertes Makro ausführt wird.
Sagen wir mal dass die Zelle A1 rot eingefärbt wird ( nur mal als Test )
Also wann immer ich eine Datei aufmache, soll A1 rot gefärbt werden.

Was ich nicht verstehe ist, dass die Datei ja um ein Makro auszuführen, eine XLSM sein muss. . .

Ich dachte die ganze Zeit dass macht man mit Auto Open, weil doch bei Worbook Open, diese Mappe ja bereits existiert muss, oder. . .?

Hab komplette Blockade, wahrscheinlich liegt die Lösung direkt vor mir, nur seh ich den Wald vor lauter ¨Bäumen" nicht mehr.

Danke an alle,

Michael



Anzeige
AW: Auto Open geht nicht
22.09.2024 14:37:20
Dieter(Drummer)
Hallo Michael,

das kannst du über eine Datei "Personal.xlsb" realisieren. In dieser Datei setzt du dein gewünschtes Makro. Diese Datei legst du im Verzeichnis "Exel/XLSTART" ab.
So wird immer beim aktivieren von Excel diese Datei im Hintergrund, muss natürlich "Ausgeblendet" aktiviert sein, geladen und das Makro ausgeführt.

Mit Gruß,
Dieter(Drummer)
Anzeige
AW: Auto Open geht nicht
22.09.2024 15:34:28
Michael
Hallo Dieter,

ich hatte das mit der Personal xlsb schon mal ausprobiert.
Ich sehe das Makro im Modul der Personal xlsb im Projektexplorer ( auch in der Mappe in "Code anzeigen" ) und kann es manuell ausführen, aber es
wird nicht automatisch beim Öffnen einer neuen Mappe ausgeführt. . .

Schöne Grüsse

Michael
Anzeige
AW: Auto Open geht nicht
22.09.2024 14:49:59
{Boris}
Hi,

jede Arbeitsmappe hat das Klassenmodul "DieseArbeitsmappe". Und darin wählst Du denn "Workbook" und "Open" aus.

Dadurch erscheint der Prozedurrahmen 

Private Sub Workbook_Open()

'hier steht der Code, der beim Öffnen der Mappe ausgeführt werden soll

End Sub


Userbild

VG, Boris
Anzeige
AW: Auto Open geht nicht
22.09.2024 15:26:24
Onur
"Ziel ist, dass egal welche Arbeitsmappe (neu oder bereits existierend ) ich öffne, automatisch beim Öffnen ein vordefiniertes Makro ausführt wird. "
Wenn du eine Datei von mir öffnest, soll ein Makro von dir starten ? Es kann nur ein Makro starten, das schon in meiner Datei existiert.

DAS geht nicht und wäre meiner Meinung nach, sowieso Blödsinn.
Anzeige
AW: Auto Open geht nicht
22.09.2024 18:10:16
Uduuh
Hallo,
Dafür brauchst du ein Addin mit einer eigenen Klasse der Application.
Workbook_open wird nur beim Öffnen der Mappe ausgeführt, die dieses enthält.

Gruß aus'm Pott
Udo
AW: Auto Open geht nicht
22.09.2024 13:11:16
RPP63
Wenn Du das Workbook_Open meinst, snb, dann irrst Du meiner Meinung nach.
Auto_Open ist ein Relikt aus Excel 4.0
Seit Einführung von VBA in Excel 7.0 (grob 1995) gibt es Workbook_Open (und DieseArbeitsmappe).

Gruß Ralf
Anzeige
;

Beliebteste Forumthreads (12 Monate)

Jetzt das Excel-Portal bewerten: Deine Stimme zählt!
Anzeige
Anzeige
Entdecke mehr
Finde genau, was du suchst

Die erweiterte Suchfunktion hilft dir, gezielt die besten Antworten zu finden

Suche nach den besten Antworten
Unsere beliebtesten Threads

Entdecke unsere meistgeklickten Beiträge in der Google Suche

Top 100 Threads jetzt ansehen
Anzeige