VBA Hyperlinks

[Gast 123]

Hallo snb

schön dich im Thread zu sehen.  Siehst du eine einfache Lösung für seine Sache???
Mein Programmierstil ist wie du weist eher altmodisch ....

mfg  Gast 123

[snb]

Ist ziemlich einfach, aber nich für Neulinge.
Auftragsprogrammierung würde ich sagen.

Eben eine Beispieldatei fehlt.
Und ich verstehe gar nicht den Sinn so etwas zu schaffen.

[Gast 123]

Hallo snb

okay, dann klinke ich mich aus diesem Thread aus, denn mein Wissen ist begrenzt.  Schönen Abend noch aus Ankara ....

mfg  Gast 123

[schauan]

Hallöchen,

man könnte das im Prinzip so realisieren. Einfach mal in A2 und Folgezeilen ein paar Textdateien angeben und in B2 und ff ein paar Uhrzeiten dazu.
Das Makro prüft nicht, ob die Zeiten passen oder die Dateien vorhanden sind usw.

Option Explicit

Sub start()
'Starten der Zeitsteuerung anhand Uhrzeit in B2 
'Datei aus A2 wird geoeffnet 
Application.OnTime Cells(2, 2), "'test1 2'"
End Sub
Sub test1(ByVal iCnt%, Optional ByVal vPID1 As Long = 0)
'Wenn eine Prozess-ID uebergeben wurde, dann Prozess killen 
If vPID1 <> 0 Then Call Shell("TaskKill /F /PID " & CStr(vPID1), vbHide)
'Notepad mit Textdatei aus uebergener Zeile (Spalte A) starten und Prozess-ID abrufen 
vPID1 = Shell("notepad.exe " & Cells(iCnt, 1) & "", vbNormalFocus)
'Hochzaehlen der Zeilennummer 
iCnt = iCnt + 1
'Wenn in der Zeile nix steht, dann Makro verlassen 
If Cells(iCnt, 1) = "" Then Exit Sub
'Aufruf der Zeitsteuerung mit den naechsten Eintraegen und 
'der Prozess-ID der gerade gestarteten Anwendung 
Application.OnTime Cells(iCnt, 2), "'test1 " & iCnt & ", " & vPID1 & "'"
End Sub

VBA/HTML-CodeConverter, AddIn für Office 2002-2016 - in VBA geschrieben von Lukas Mosimann. Projektbetreuung:RMH Software & Media
Code erstellt und getestet in Office 16 - mit VBAHTML 12.6.0