Zum Inhalt springen
View in the app

A better way to browse. Learn more.

Fachinformatiker.de

A full-screen app on your home screen with push notifications, badges and more.

To install this app on iOS and iPadOS
  1. Tap the Share icon in Safari
  2. Scroll the menu and tap Add to Home Screen.
  3. Tap Add in the top-right corner.
To install this app on Android
  1. Tap the 3-dot menu (⋮) in the top-right corner of the browser.
  2. Tap Add to Home screen or Install app.
  3. Confirm by tapping Install.

VBA - Ecxel Makro automatsich starten

Empfohlene Antworten

Veröffentlicht

Unter Word gabs ja die Möglichkeit, Makros bei öffnen des Dokumentes autom. zu starten. Gibs das auch bei Excel?

Hier mal der Code für Word:


Sub AutoOpen()


  msgok = MsgBox("Durch AutoOpen wird dieses Makro autom. gestartet.", vbOKCancel + vbInformation + vbDefaultButton2, "Fenstertitel")


  If msgok = vbOK Then

    Application.Run MacroName:="MakroTest"

  Else

    MsgBox "Dann eben nicht!", vbCritical + vbDefaultButton2, ";-("

  End If

End Sub


Sub MakroTest()

  NormalTemplate.AutoTextEntries("Seite X von Y").Insert Where:=Selection. _

          Range, RichText:=True

End Sub

Ein Automakro such ich nun für Excel.

Gruß

Einfach ein _ zwischen Auto und Open

Privat Sub Auto_Open()

Msgbox "blabla"

End Sub

Einfach ein _ zwischen Auto und Open

Privat Sub Auto_Open()

Msgbox "blabla"

End Sub

hast Du es probiert ? :floet:

@UBAI

WorkBook_Open ist hier dein Freund, aber bei mir funktioniert dieser aufruf nicht:Application.Run MacroName:="MakroTest"

Er kennt MacroName nicht. Ich hab es mal so umgeschrieben:

Private Sub Workbook_Open()

msgok = MsgBox("Durch AutoOpen wird dieses Makro autom. gestartet.", vbOKCancel + vbInformation + vbDefaultButton2, "Fenstertitel")

If msgok = vbOK Then

MsgBox "Alles klar!", vbExclamation + vbDefaultButton2, ";-)"

Else

MsgBox "Dann eben nicht!", vbCritical + vbDefaultButton2, ";-("

End If

End Sub

Gruss

Thoralf

Ein "_", tss!?

Warum macht *** das einem so und einem so? Muss ich nicht verstehen.

Danke

Ja habe ich, Excel 2003 deutsch SP1 und liegt auf meinem Desktop.

Liegt im Modulteil und führt msgbox aus. wieso?

Danke. Es funktioniert beides.

Gruß

Ja habe ich, Excel 2003 deutsch SP1 und liegt auf meinem Desktop.

Liegt im Modulteil und führt msgbox aus. wieso?

sorry, war nicht bös gemeint, ich hab dazu eben nichtmal in der Excel-VBA-Hilfe was gefunden und im Tabellenteil funktioniert es auch nicht, daher dachte ich, das geht nicht so. Es muss im Modulteil sitzen, habs grad selbst nochmal nachvollzogen.

@UBAI

nein, Du musst das nicht verstehen. ;) Ich musste gestern auch nicht verstehen, warum in einem MUI-Office mit deutscher ( oder französischer etc.) Oberfläche Funktionen aus Add-Ins, wie z.B. DEC2BIN, nur in englisch vorhanden sind ( siehe KB317983 ), die deutsche Hilfe des MUI-Office aber weiterhin brav die deutsche Schreibweise der Funktionen lehrt ( DEZINBIN )

Auf diese Verwirrungstaktik wirst Du noch öfter stossen, nicht allzu genau darüber nachdenken. ;););)

Gruss

Thoralf

Archiv

Dieses Thema wurde archiviert und kann nicht mehr beantwortet werden.

Configure browser push notifications

Chrome (Android)
  1. Tap the lock icon next to the address bar.
  2. Tap Permissions → Notifications.
  3. Adjust your preference.
Chrome (Desktop)
  1. Click the padlock icon in the address bar.
  2. Select Site settings.
  3. Find Notifications and adjust your preference.