Live-Forum - Die aktuellen Beiträge
Datum
Titel
14.10.2025 19:08:54
Verbindung von Excel mit maps
14.10.2025 15:55:14
wenn zwei Werte aus Liste übereinstimmen, dann wahr
14.10.2025 14:57:29
Wenn Datum in Ferienzeit dann Name angeben
14.10.2025 09:39:44
VBA - Excel speichern und schließen (Laufzeitfehler 91)
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
412to416
412to416
Aktuelles Verzeichnis
Verzeichnis Übersicht
Verzeichnis Übersicht
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Makro autom. starten

Forumthread: Makro autom. starten

Makro autom. starten
13.04.2004 08:15:09
Jens Steichert
Hallo,
gibt es eine Möglichkeit, ein Makro automatisch beim Öffnen der entsprechenden Exceldatei starten zu lassen?
Danke für Eure Hilfe
Anzeige

5
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
Workbook_Open
13.04.2004 08:19:03
ChrisL
Hi Jens
Alt + F11, links Doppelklick auf DieseArbeitsmappe, neues Fenster öffnet sich, links oben Dropdown auf Workbook, rechts oben auf Change, Code einfügen.

Private Sub Workbook_Open()
Call Makro
End Sub

Gruss
Chris
AW: Makro autom. starten
13.04.2004 08:21:39
marco
hi jens,
unter "diese arbeitsmappe" fügst du folgenden befehl ein:

Private Sub Workbook_Open()
Call NeuEinlesen
End Sub


wobei "neueinlesen" der name des makros sein sollte.
gruß marco
Anzeige
Hat super geklappt. Danke
13.04.2004 08:42:57
Jens Steichert
AW: Makro autom. starten
13.04.2004 10:29:28
Memster
Dieses Thema interessiert mich auch.
Allerdings weiss ich nicht, wo ich Euren Text genau einfügen muss?!
Viell. kann dies einer nochmal genauer erklären?
AW: Makro autom. starten
13.04.2004 10:31:32
Memster 

Sub Makro1()
' Makro1 Makro
' Makro am 13.04.2004 von Oltmann aufgezeichnet
' Tastenkombination: Strg+a
ActiveWindow.SmallScroll Down:=180
Range("A1:K200").Select
Range("A200").Activate
Selection.ClearContents
ActiveWindow.SmallScroll Down:=-48
ActiveWindow.ScrollRow = 1
Range("A1").Select
With Selection.QueryTable
.Connection = "TEXT;D:\Oltmann\Mohme, Praktikant\Neuer Ordner\text.txt"
.TextFilePlatform = xlWindows
.TextFileStartRow = 1
.TextFileParseType = xlDelimited
.TextFileTextQualifier = xlTextQualifierDoubleQuote
.TextFileConsecutiveDelimiter = False
.TextFileTabDelimiter = True
.TextFileSemicolonDelimiter = False
.TextFileCommaDelimiter = False
.TextFileSpaceDelimiter = False
.TextFileColumnDataTypes = Array(1, 1)
.Refresh BackgroundQuery:=False
End With
ActiveWindow.SmallScroll Down:=-6
End Sub

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