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
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
Es soll über ein Monitor verschiedene PDF Dateien nach und nach angezeigt werden. Wüsste da jemand eine Lösung zu
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
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
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
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
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
Hallo
Zitat: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
Für ein VBA Neuling ist das viel zu kompliziert.