VBA Hyperlinks

[zehnilpferd]

Hallo zusammen,

und zwar seht ihr unten mein Entwurf und ich muss auch sagen ich bin nicht ganz fit in VBA. Meine 1. Frage ist wie lass ich dass jetzt Automatisch über die ganze Spalte A laufen. Meine 2 Frage ist wie kann ich mit VBA einrichten, dass ich beim nächsten öffnen eines Hyperlinks das vorherige sich automatisch schließt.



Sub Makro2()

    Range("A1").Select
    Selection.Hyperlinks(1).Follow NewWindow:=False, AddHistory:=True
    Application.OnTime TimeValue("13:49:40"), "Makro2"
    ActiveWindow.Close SaveChanges:=True
End Sub

Vielen Dank

[Gast 123]

Hallo

ich bin kein Fachmann für Hyperlinks und habe den Teil nicht verstanden. Bei mir funktioniert der Codeteil auch nicht.  Unklar ist mir auch eine Zeit zu setzen die das eigene Makro startet, und dann die Anwendung zu schliessen.  Und das soll über die ganze Spalte A laufen???  

Was soll denn in Spalte A genau passieren?  Das ist mir noch nicht klar ...

mfg  Gast 123

[zehnilpferd]

Es soll über ein Monitor verschiedene PDF Dateien nach und nach angezeigt werden. Wüsste da jemand eine Lösung zu

[Gast 123]

Hallo

probier es bitte mal mit dem unteren Code aus dem Herber Archiv von Ratgeber Franz  Würde mich freuen wenn es klappt.
In die Const Anweisung must du noch deinen Pfad und deine Datei angeben. Der Dateiname kann auch aus einer Zelle in die Variable "Datei"  geladen werden, wenn er staendig wechseln soll.  Dann die Zeile Const Datei unbedingt löschen!!

mfg  Gast 123

Code:

'Makro Code stammt aus Herber Forum von Ratgeber Franz:
'Thread:  PDF Dateien mit VBA öffnen von Gerhard vom 19.06.2012 15:41:31

Const pfad = "E:\PDF Ordner\"
Const Datei = "Hier dein Dateiname.pdf"


Sub PDF_Oeffnen()
Dim pdfname As String
On Error GoTo Fehler
pdfname = pfad & Datei
If pfad <> "" Then
  pdf = Shell("C:\Program Files\Adobe\Reader 11.0\Reader\AcroRd32.exe """ & pdfname & """", 3)
  AppActivate pdf
End If
Exit Sub
Fehler:   MsgBox "Keine gültige Datei oder Pfadangabe!!"
End Sub

[Gast 123]

Nachtrag

ich sehe gerade es sollen mehrere Dateien geöffnet werden. Dann müste man über eine For Next Schleife gehen.
Da ist die Frage, sollen alle PDF zur gleichen Zeit geöffnet werden, oder willst du jede einzeln lesen?? Wie man das  realisiert, evtl. Unterbrechungen fürs Lesen einfügt, da muss ich leider passen. Vielleicht weiss das ein Kollege.

mfg  Gast 123

[snb]

Code:

Sub M_snb()
   With Application.FileDialog(3)
      .AllowMultiSelect = -1
      .InitialFileName = "G:\OF\*.pdf"
      If .Show Then
         For Each it In .SelectedItems
           ThisWorkbook.FollowHyperlink it
           Application.Wait DateAdd("s", 5, Now)
         Next
      End If
    End With
End Sub

[Gast 123]

Hallo

aller guten Dinge sind drei Tipps:   schaue dir bitte diesen alten Thread an:  Gast bietet Ratgeber meine Ordner auflisten Datei zu testen
https://www.clever-excel-forum.de/attach...p?aid=8674

Dort findest du eine Beispieldatei mit mehreren Tabellen und Lösungsvorschlaegen wie man Ordner auflistet.  In der Tabelle "MyDir" kann man alle Dateien direkt als Hyperlink auflisten.  Specke dieses Beispiel einfach auf diese eine Tabelle und das dazu gehörige Makro ab. Dann sollte es am einfachsten klappen.

Ist das ein guter Vorschlag???

mfg  Gast 123

[zehnilpferd]

Schon mal dickes Dankeschön für die Lösungsvorschläge !

Um mein Problem detaillierter auszudrücken, ich hab eine Excel Liste mit den Spalten Uhrzeit und dazugehörigen Identnummern. Zu jeder Identnummer habe ich eine PDF Datei, die ich mit einer Wenn Formel automatisch als Hyperlink in einer Zelle generiert wird. Nun sollen diese Hyperlinks sich abhängig von der Uhrzeit sich öffnen und dann wenn es Zeit für die nächste PDF Datei ist sich wieder schließen und die andere PDF Datei soll sich öffnen. Ich muss dabei auch sagen, dass ich ein Neuling bin was VBA angeht. 

Gruß

Zehnilpferd 

[Gast 123]

Hallo

für diese Aufgabenstellung bin ich auch ein VBA Neuling!

hm, habe schon verstanden worum es geht, aber mit Öffnen von Dateien über die Zeit, dazu noch als PDF Datei, und die andere Datei schliessen, habe ich gar keine Erfahrung.  Das ist auch für mich absolutes Neuland!

Vielleicht weiss es ein Kollege und geht mit in den Thread rein.  Man könnte es über Application:onTime machen, das habe ich noch nie programmiert. Ist eine schöne Aufgabe für Kollegen die sich damit auskennen. Ich schaue mal was mir dazu einfaellt, muss mal in Ruhe darüber schlafen.

mfg  Gast 123

[snb]

Für ein VBA Neuling ist das viel zu kompliziert.