Office: Makro starten über Aufgabenplaner

Liebe Leute!
Hab schon einiges gelesen und gesucht und gegoogelt, bin aber leider nicht fündig geworden.

Aufgabe:
Ich habe auf einem XP Rechner ein Excel Makro laufen dass über geplante Tasks alle zwei Stunden automatisch arbeitet --> funktioniert perfekt

Dass hätte ich jetzt gerne auf einem Windows 7 Rechner auch so gemacht.

Aufgabenplaner hab ich eingerichtet, wenn ich Excel alleine starte klappt es. Mit Argument das Makro mitgeben (mit oder ohne Pfad) klappt nicht. Makro alleine aufrufen so wie auf XP klappt leider nicht mehr.

Ich bin nicht lokaler Admin auf dem Rechner, war ich bei XP aber auch nicht.

Ich bin mir sicher da bin ich nicht der einzige mit diesem Problem und sicher gibt es schon genügend Lösungen. Eine simple würde schon reichen.

lg Andreas

:)

 

Hmm offenbar war oder ist mein Problem ein zu triviales ...

 

nur wenige sehen Deinen Code. Ich vermute Du hast den Code nicht im Open Ereignis. Die Datei wird ja über Aufgabenplaner gestartet. Die Datei ist in einem Vertrauenswürdigen Ordner.

 

Ja richtig, ich habe keinen Code angegeben weil der ja jetzt funktioniert. Es ist ja auch kein Code Problem sondern ein Aufgabenplanerproblem mit Excel.

Ich habe jetzt durch viel herumprobieren zumindest mal das hochfahren des Makros geschafft. Leider läuft es nicht automatisch los wie bisher. Da fehlt sicher ein Parameter zum Starten.

Lösung war jetzt
"Pfad/Excel.exe" "Pfad/Makro.xlsm"

 

Du möchtest meine Hinweise also nicht umsetzen. Ich bin dann raus.

 

Wieso bist du raus, ich hab leider nicht verstanden was du mir vorgeschlagen hast. Wo soll der Code denn hin?

 

So mittlerweile startet er auch das Makro aber es läuft nicht los

So sieht der auto_open Code aus der bisher ja funktioniert hat auf XP:

Sub Autpen()

Dim Pfad1, Ton1, Excelusername As String
Dim i As Long

For i = 1 To 100
If Sheets("Einstellungen").Cells(i, 1) = "Excelusername:" And Sheets("Einstellungen").Cells(i, 2) "" Then
Excelusername = Sheets("Einstellungen").Cells(i, 2)
Exit For
End If
Next i

If Application.UserName = Excelusername Then
If Format(Date, "DDDD") = "Samstag" Then GoTo Wochenende
If Format(Date, "DDDD") = "Sonntag" Then GoTo Wochenende

'Screenlook off
Sheets("logreport").Activate
Cells(2, 1).Select
SendKeys "1234567", True
SendKeys "{ENTER}", True
Application.Wait (Now + 0.00001) 'Sekunden

'Tonausgabe Start
Pfad1 = ActiveWorkbook.Path & "\Töne\"
'Ton1 = "COMMUNICATOR_ringtone5.wav"
Ton1 = "COMMUNICATOR_joinedconference.wav"
sndPlaySound Pfad1 & Ton1, 1
Application.Wait (Now + 0.00001) 'Sekunden
sndPlaySound Pfad1 & Ton1, 1
Application.Wait (Now + 0.00009) 'Sekunden
Application.Run "A_Start" 'Nur vom Statistik-PC damit läuft es dann mit der ersten Sub los
End If

Exit Sub

Wochenende:
'Schließen ohne Speicherabfrage
If Application.UserName = "xxxyyoo" Then 'nur am Statistik PC
Application.Wait (Now + 0.00002) 'Sekunden
ActiveWorkbook.Saved = True 'gespeichert wird vorgegaukelt...
Application.Quit 'Programm Excel wird geschlossen

End If

End Sub

 

wurde zwar nicht erledigt aber es kommt ja auch nichts mehr *frown.gif*