Anzeige
Archiv - Navigation
552to556
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
552to556
552to556
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Inhaltsverzeichnis

Doppelklick auf Zelle Notiz (.txt) öffnen

Doppelklick auf Zelle Notiz (.txt) öffnen
23.01.2005 12:27:17
Martin
Hi,
Kann mir bitte einer bei folgender Problematik helfen.
Bei Doppelklick auf A1, A2 usw. wird eine txt-Datei mit
dem Name A1.txt, A2.txt usw. erzeugt.
Ich habe einen Code ergänzt, welche beim Doppelklick
zusätzlich ein Windings-Symbol einfügt.
Welchen Code brauche ich, damit statt dem Windings-symbol ein Hyperlink eingefügt wird.
Würde ich bei der ersten Variante eine Zeile löschen, würden die
txt-Dateien nicht mehr zur entsprechenden Zeile passen.
Mit der Hyperlink-Funktion wäre immer ein fixer Bezug zwischen
der Zeile und der txt.Datei gegeben.
Der Hyperlink sollte entweder unter dem Namen "Notiz" in der
Zelle hinterlegt werden oder das Windings-Symbol (siehe Beispiel-Tabelle)
anzeigen.
https://www.herber.de/bbs/user/16647.xls
Vielen Dank
Gruß Martin

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

Betreff
Datum
Anwender
Anzeige
AW: Doppelklick auf Zelle Notiz (.txt) öffnen
Ramses
Hallo
probier mal das aus

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
Dim strFile As String
Dim dummy
If Not Intersect(Target, [A1:A500]) Is Nothing Then
Cancel = True
strFile = ThisWorkbook.Path & "\" & Target.Address(0, 0) & ".txt"
Close #1
Open strFile For Append As #1 'erstellt die txt-Datei wenn nicht vorhanden
Close #1
With Target
.Hyperlinks.Add Anchor:=Target, Address:=ThisWorkbook.Path & "\" & Target.Address(0, 0) & ".txt" _
, TextToDisplay:="* " & strFile
With .Characters(Start:=1, Length:=1).Font
.Name = "Wingdings"
End With
End With
dummy = Shell("NOTEPAD " & strFile, vbNormalFocus)
End If
End Sub

Gruss Rainer
Anzeige
AW: Doppelklick auf Zelle Notiz (.txt) öffnen
23.01.2005 13:00:51
Martin
Hallo Rainer,
danke funktioniert tadellos.
Gruß Martin

306 Forumthreads zu ähnlichen Themen

Anzeige
Anzeige
Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige