Live-Forum - Die aktuellen Beiträge
Anzeige
Archiv - Navigation
296to300
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
296to300
296to300
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Inhaltsverzeichnis

Makro aufruf von Vorlage

Makro aufruf von Vorlage
19.08.2003 10:49:00
Pius
Hallo
Wie kann ich den diesen Befehl auf einer Vorlage (XLT) verwenden. Das Problem ist ja wenn die Vorlage über Datei Neu geöffnet wird gibt es einen anderen Dateinamen
With Application
.Run "ProjektHiweise.XLT!user"
End With
Gruss Pius

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

Betreff
Datum
Anwender
Anzeige
AW: Makro aufruf von Vorlage
19.08.2003 10:53:55
sergiesam
Hi,
zwar nicht getestet, aber es müsste so gehen.

Sub Makrostart()
Dim neueMappe As Workbook
Set neueMappe = Workbooks.Add("C:\ProjektHinweise.xlt")
With Application
.Run neueMappe.Name & "!user"
End With
End Sub

Sam

AW: Makro aufruf von Vorlage
19.08.2003 11:16:39
Pius
Hallo Sam
erstmal Danke
es geht noch nicht
ich habe die Vorlage unter O:\POOL\VORLAGEN\Entwürfe gespeichert
muss ich da evtl. den pfad noch anpassen
Pius

AW: Makro aufruf von Vorlage
19.08.2003 11:24:16
sergiesam
Hi,
normalerweise nicht, da neueMappe.Name nur den Dateinamen und nicht den Pfad angibt. Bei mir funktiernierts einwandfrei. Vielleicht zeigst du uns dieses Codefragment genauer.
Sam

Anzeige
AW: Makro aufruf von Vorlage
19.08.2003 11:31:34
Pius
Hallo Sam
Ich kann das File leider uploaden
da das Script
Option Explicit
Dim datname As String
Dim neueMappe As Workbook

Private Sub Workbook_Open()
'ChDrive "O:"
'ChDir "O:\POOL\VORLAGEN\Entwürfe"
Set neueMappe = Workbooks.Add("ProjektHinweise.xlt")
With Application
.TransitionMenuKey = "/"
.TransitionNavigKeys = False
.DefaultSaveFormat = xlNormal
.Run neueMappe.Name & "!user"
End With
If Range("c1").Value = "" Then
UserForm_Kopf1.Show
End If
End Sub


Private Sub Workbook_BeforeClose(Cancel As Boolean)
ChDrive "H:"
ChDir "H:"
Dim variable As Variant
variable = Application.GetSaveAsFilename(fileFilter:="Namen der Dateien(*.xls),*.xls")
If variable = False Then Exit Sub
ActiveWorkbook.SaveAs Filename:=variable, FileFormat:=xlNormal _
, Password:="", WriteResPassword:="", ReadOnlyRecommended:=False, _
CreateBackup:=False
With ThisWorkbook.VBProject.VBComponents("DieseArbeitsmappe").CodeModule 'löscht VBA einträge beim beneden der Datei
.DeleteLines 1, .CountOfLines
End With
End Sub


Anzeige
AW: Makro aufruf von Vorlage
19.08.2003 11:40:26
sergiesam
Hi,
ich kann leider hier auch keinen Fehler entdecken. Bist du schon mit F8 einzeln die Schritte durchgegangen, um zu sehen, ob er in die neue Mappe springt - Vielleicht ist dann in der neuen Mappe ein Fehler...Sonst weiß ich leider auch nicht weiter und gebe an die anderen ab....
Sam

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige