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

Per Makro externe Dateien per Hyperlink öffnen

Per Makro externe Dateien per Hyperlink öffnen
22.12.2005 16:02:31
Alexander
Hallo,
folgendes Problem:
Ich möchte per Makro prüfen, ob eine Excel-Datei existiert, und falls ja, diese öffnen, und nach F9 wieder schließen. Dabei soll der Name der zu öffnenden Datei als Hyperlink in meinem "Stamm-Sheet" stehen. Könnt Ihr mir bitte helfen, bin ein VBA-Dummy und hatte mit meiner Bastelei keinen Erfolg.

Sub open_and_calculate()
Application.DisplayAlerts = False
If Worksheets("Preps").Range("j12") <> "" Then
Workbooks.Open Filename:=[j12]
Else
MsgBox "Error Message"
End If
Calculate
Workbooks.Close Filename:=[j12].Save changes:=FALSE
End Sub

Alex

2
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Per Makro externe Dateien per Hyperlink öffnen
22.12.2005 18:47:45
Henrik
hallo Alex,
vielleicht hilft Dir das erstmal.
Erstell in deinem Stamm-Sheet einfach einen Command-Button und weis ihm folgendes makro zu (Hyperlink hab ich noch nicht gemacht :)).
Den Pfad, wo gesucht werden soll mußt du natürlich ändern. wenn ich in meinen 'Eigene Dateien' eine Exceldatei mit Namen 'Test' erstelle und diese dann per makro unten suche, wird diese gefunden und berechnet.
Was jetzt allerdings geschlossen werden soll, hab ich nicht ganz verstanden.
hab die datei test speichern lassen mit aktualisierten werten.

Sub suchenrechnen()
Dim Projektname As String
Projektname = InputBox("Bitte geben Sie den Dateinamen ein!" & Chr(10) _
, "Datei suchen und berechnen")
If Dir("c:\dokumente und Einstellungen\" & Application.UserName & _
"\eigene dateien\" & (Projektname & ".xls"), vbDirectory) <> "" Then
Workbooks.Open Filename:="c:\Dokumente und Einstellungen\" & Application.UserName & _
"\Eigene Dateien\" & (Projektname & ".xls")
Calculate
Workbooks(Projektname & ".xls").Close (True)
Else
MsgBox "Datei nicht vorhanden!"
End If
End Sub

Gruß Henrik
Anzeige
AW: Per Makro externe Dateien per Hyperlink öffnen
23.12.2005 00:54:48
Alexander
Hallo Henrik,
für Deine ausführliche Antwort. Hat mir sehr geholfen!
Viele Grüße,
Alex

300 Forumthreads zu ähnlichen Themen

Anzeige
Anzeige
Anzeige

Links zu Excel-Dialogen

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige