HERBERS Excel-Forum - die Beispiele

Thema: Bei Doppelklick Textdateien in Editor öffnen

Home

Gruppe

Extern

Problem

Bei Doppelklick auf A1 sollen 3 Dateien mit der in Zelle D3 genannten Suffix aus dem in Zelle D1 genannten Verzeichnis mit der in Zelle D2 genannten Anwendung geöffnet werden.

Lösung
Geben Sie den Ereigniscode in das Klassenmodul des Arbeitsblattes ein.
ClassModule: Tabelle1

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
   Dim sFile As String, sPath As String, sTxt As String, sExe As String, sSfx As String
   If Target.Address <> "$A$1" Then Exit Sub
   Cancel = True
   sPath = Range("D1").Value
   sExe = Range("D2").Value
   sSfx = Range("D3").Value
   sFile = Range("A1").Value
   sFile = WorksheetFunction.Substitute(sFile, " ", "")
   Do While InStr(sFile, ",")
      sTxt = sPath & "\" & Left(sFile, InStr(sFile, ",") - 1) & "." & sSfx
      If Dir(sTxt) <> "" Then Shell sExe & " " & sTxt, vbNormalFocus
      sFile = Right(sFile, Len(sFile) - InStr(sFile, ","))
   Loop
   sTxt = sPath & "\" & sFile & "." & sSfx
   If Dir(sTxt) <> "" Then Shell sExe & " " & sTxt, vbNormalNoFocus
End Sub

Beiträge aus dem Excel-Forum zu den Themen Extern und NotePad

Dateiname externer Datei ändern Tabellenblatt aus externer Exceldatei kopieren
ConboBox mit externe Daten füllen Wert in externer Datei suchen
Aufruf externer Programme Externe Bezüge auslesen mit VBA
Externe Verküpfung anpassen Pivot mit Externer DB am Limit?
Externe Verknüpfungen Blätter in Externer Arbeitsmappe einblenden
externes Verzeichnis ansprechen Externe Datenquelle via VBA
Pivot mit Externer DB UNION funzt nich Nur externe Bezüge rausnehmen
*xlt-Dateien als externe Datenquelle nutzen Externes Programm öffnen
Makro: Bezug auf externes xls-File? Wert an externes Programm übergeben
Externe Excel-Verknüpfungen automatisiert ändern Verlinkung externer Arbeitsmappen
Tabelle in externer Datei löschen externe Bezüge suchen/ersetzen
neue Zeile und externe Bezüge.... Externe Verknüpfung finden
externe Bezüge Summenprodukt + Externe Bezüge
Datenbank in externer Datei Fehler beim Kopieren von externer Tabelle
anzahl Blätter externer Excel-Datei Externe Daten aus Access
Externe Daten importieren aus Access Zellwert als Parameter f. externes Script/Programm
Worksheetzugriff auf externe Datei Dropdown - externe Daten
Externe Bezüge Zeitanzeige auf USF wenn ein externes Progr. läut
Externe Daten (QueryTable) ab 1 nummerieren Schnittstelle extern mit Lampen
Zelleninhalt für externes Programm kopieren Archivieren externer Dateien in Arbeitsblatt
Externer Vergleich externe Verknüpfung per Makro einfügen
Externe Verknüpfungen Externen Text mit Makro einfügen
Abfragekriterium externe Daten verändern Daten aus externer Mappe einfügen
externes Programm ausführen externe Verknüpfungen
Externes Programm automatisch schließen Verknüpfungen externer Dateien auf geöffnete Datei