Live-Forum - Die aktuellen Beiträge
Datum
Titel
16.10.2025 17:40:39
16.10.2025 17:25:38
Anzeige
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Inhaltsverzeichnis

Mit doppelklick Datei öffnen

Forumthread: Mit doppelklick Datei öffnen

Mit doppelklick Datei öffnen
18.10.2002 10:13:44
Achim.Poethe
Hallo alle,

ich möchte eine Ecxeldatei über Doppelklick öffnen, der Name der Datei steht in Spalte A wenn ich nun in einer anderen beliebigen Spalte doppelklicke, soll die Datei die in der Zeile in Spalte A,in der ich geklickt habe, steht geöffnet werden.
Oder wenn es so nicht geht dann möchte ich über doppelklick in Spalte "O" die Datei (Name steht in "A") öffnen.
Danke für eure Hilfe

mfg Achim


Anzeige

8
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
Re: Mit doppelklick Datei öffnen
18.10.2002 10:23:45
TOM
Hallo Achim

meinst Du so:


Gruss TOM

Re: Mit doppelklick Datei öffnen
18.10.2002 15:30:57
Achim.Poethe
Hallo Tom,

danke für die Antwort, was ich brauche ist was variables, das wenn ich z.b. auf O17 klicke in A17 den Dateinamen holt, oder wenn ich auf C25 klicke in A25 den dateinamen holt, deine Lösung bringt mir immer nur den Namen aus A1

mfg Achim

Anzeige
Re: Mit doppelklick Datei öffnen
18.10.2002 16:06:52
PeterW
Hallo Achim,

dann ändere den Code:
Workbooks.Open Cells(1,Target.Column)

Gruß
Peter

Re: Mit doppelklick Datei öffnen
18.10.2002 17:12:15
Achim.Poethe
Hi Peter,

danke für die Antwort, der schreit dann immer nach "Objekt erforderlich (Laufzeitfehler 424)" ?? hab doch kein Plan was ich da falsch mache, muss ich für Target.Column einen wert eingeben??

mfg Achim

Anzeige
Re: Mit doppelklick Datei öffnen
18.10.2002 17:29:50
PeterW
Hallo Achim,

natürlich muss es heißen:
Workbooks.Open Cells(Target.Row, 1)

Gruß
Peter

Re: Mit doppelklick Datei öffnen
18.10.2002 18:07:39
Achim.Poethe
Hi Peter Klappt :-)))

aber leider nur in dem Tabellenblatt wo ichs reingebaut habe, in der Tabelle sind 35 blätter, muss ich das nun in jede reinkopieren. oder gibts da ne andere möglichkeit?

so mach ich es jetzt, da geht das Global, aber leider nicht mit deinem code

Sub auto_open()
Application.OnDoubleClick = "anschauen"
End Sub

Sub lwwech()
ChDrive "O"
ChDir "/TA\TGL\"

End Sub

Sub anschauen()
'Öffnet Datei über Doppelklick in der Zelle
Call lwwech
On Error GoTo Errorhandler
Workbooks.Open ActiveCell
' Workbooks.Open Cells(Target.Row, 1)

GoTo bye
Errorhandler:
msg = Application.UserName & " Keine Abweichung gespeichert!"
MsgBox msg, , "Fehlermeldung:"

bye:
End Sub



Anzeige
Re: Mit doppelklick Datei öffnen
18.10.2002 18:50:34
PeterW
Hallo Achim,

versuch es in Deinem Code mit
Workbooks.Open Cells(Selection.Row, 1)

Gruß
Peter

Re: Mit doppelklick Datei öffnen
18.10.2002 19:03:56
Achim.Poethe
Hi Peter,

jip, datt klappt so wie ichs will, danke für deine geduld und mühen

gruß achim

;
Anzeige

Infobox / Tutorial

Excel-Dateien über Doppelklick öffnen


Schritt-für-Schritt-Anleitung

Um eine Excel-Datei über einen Doppelklick zu öffnen, wenn du in einer beliebigen Zelle klickst, folge diesen Schritten:

  1. Öffne den VBA-Editor:

    • Drücke ALT + F11, um den Visual Basic for Applications (VBA) Editor zu öffnen.
  2. Füge ein neues Modul hinzu:

    • Klicke im Menü auf Einfügen > Modul.
  3. Gib den folgenden Code ein:

    Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
       On Error GoTo Errorhandler
       Workbooks.Open Cells(Target.Row, 1).Value
       Cancel = True
       Exit Sub
    Errorhandler:
       MsgBox "Keine gültige Datei gefunden!", vbExclamation
    End Sub
    • Dieser Code öffnet die Datei, deren Name in Spalte A der Zeile steht, in der du doppelt klickst.
  4. Schließe den VBA-Editor und kehre zu deiner Excel-Tabelle zurück.

  5. Teste den Code:

    • Doppelklicke auf eine beliebige Zelle in einer anderen Spalte und beobachte, ob die entsprechende Datei aus Spalte A geöffnet wird.

Häufige Fehler und Lösungen

  • Laufzeitfehler 424 - Objekt erforderlich:

    • Dieser Fehler tritt auf, wenn der Code versucht, auf ein nicht vorhandenes Objekt zuzugreifen. Stelle sicher, dass der Code korrekt geschrieben ist und die Zelle in Spalte A tatsächlich einen Dateinamen enthält.
  • Datei öffnet sich nicht:

    • Überprüfe, ob der Dateipfad und -name in Spalte A korrekt sind. Der Name sollte die Dateiendung (z.B. .xlsx) enthalten.

Alternative Methoden

Wenn du eine einfachere Methode ohne VBA bevorzugst, kannst du Hyperlinks verwenden:

  1. Füge einen Hyperlink hinzu:

    • Klicke mit der rechten Maustaste auf die Zelle, gehe zu Link und dann zu Link einfügen.
    • Gib den Pfad zur Datei ein, die du öffnen möchtest.
  2. Verwende die Funktion HYPERLINK:

    • In einer Zelle kannst du die Formel =HYPERLINK("C:\Pfad\zu\deiner\Datei.xlsx", "Datei öffnen") verwenden.

Praktische Beispiele

  1. Beispiel für den VBA-Code:

    Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
       If Not Intersect(Target, Me.Range("O:O")) Is Nothing Then
           Workbooks.Open Cells(Target.Row, 1).Value
           Cancel = True
       End If
    End Sub
    • Dieser Code öffnet die Datei nur, wenn du auf die Spalte O klickst.
  2. Beispiel für Hyperlink:

    • Wenn in Zelle A1 der Text "Bericht" steht, kannst du in Zelle B1 die Formel =HYPERLINK(A1, "Bericht öffnen") verwenden.

Tipps für Profis

  • Code für alle Blätter: Wenn du den Doppelklick-Code in allen Blättern verwenden möchtest, musst du ihn in jedes Arbeitsblatt-Modul kopieren oder den Code in das DieseArbeitsmappe-Modul einfügen.

  • Fehlermeldungen anpassen: Du kannst die Fehlermeldung im Errorhandler anpassen, um spezifischere Informationen zu geben, falls eine Datei nicht gefunden wird.


FAQ: Häufige Fragen

1. Muss ich Excel im Makro-fähigen Format speichern? Ja, wenn du VBA-Code verwendest, speichere die Datei im .xlsm-Format, um die Makros zu aktivieren.

2. Funktioniert dies in Excel Online? Nein, VBA-Code funktioniert nicht in Excel Online. Du musst die Desktop-Version von Excel verwenden.

3. Was, wenn ich mehrere Dateien gleichzeitig öffnen möchte? Du kannst den Code anpassen, um eine Schleife zu verwenden, die mehrere Dateinamen aus einer Liste öffnet.

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Entdecke mehr
Finde genau, was du suchst

Die erweiterte Suchfunktion hilft dir, gezielt die besten Antworten zu finden

Suche nach den besten Antworten
Unsere beliebtesten Threads

Entdecke unsere meistgeklickten Beiträge in der Google Suche

Top 100 Threads jetzt ansehen
Anzeige