Live-Forum - Die aktuellen Beiträge
Datum
Titel
28.03.2024 21:12:36
28.03.2024 18:31:49
Anzeige
Archiv - Navigation
412to416
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
412to416
412to416
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Inhaltsverzeichnis

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

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
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?
Anzeige
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)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige