Hi,

es handelt sich um folgendes:

Da ich in einer Cover-Band spiele und so circa 100- 150 Titel zu verwalten habe, wollte ich mir in Excel ein Macro erstellen, um mir die Songstext - Suche etwas zu erleichtern.

Und zwar hab cih mir das so vorgestellt:

Ich habe alle Texte in einer Exel-Tabelle, sortiert nach

Lied (A) und Interpret(. ( A und B sind die Spalten oben rechts)

Ãnschliessend wollte ich ein macro programmieren, bei dem sich der Text des jeweiligen Liedes durch Klick öffnet. Also muss die jeweilige Zeile mit einer Textdatei verknüpft werden, die ich in einem extra hierfür hergerichteten Ordner speichere.(z.Bsp: "C:\Lieder\Lithium")

Nun bekomme ich die Verknüpfung nicht hin, so dass sich z.Bsp

A B

1 Lithium Nirvana

durch einen Klick auf das Feld A1 ( Lithium) die Textdatei "C:Lieder\Lithium" öffnet.

Wenn ihr mir hier weiterhelfen könntet, wäre echt super. Falls noch Fragen offen bleiben oder sind , dann postet einfach.

Also in Kurzfassung:

Duch Klick auf eine bestimmte Zeile, soll sich eine Text-/Word-/Exeldatei mit dem entsprechenden Text öffnen, der auf der Festplatte gespeichert ist

Danke schon mal im vorraus

eure Badewanne

das mit der texdatei sollte kein problem sein, aber warum machst du das nicht mit kommentaren? wäre dann wartungsleichter für dich, als wenn jemand ein makro baut und du damit irgendwann mal n problem hast...

Meinst du, einfach Kommentare von Excel aus? Bestimmt oder?

Meinst du, einfach Kommentare von Excel aus? Bestimmt oder?

jop, denn dann kannst du für jedes lied den songtext in den kommentar für die zeile schreiben... einfach mit der maus drüber gehn und die lyrics erscheinen...

Würde mich auch mal interessieren, wie man einen text aus einer Datei als kommentar einer Zelle einfügen kann.

Weil das wäre wirklich die geschickteste Möglichkeit. Auf jeden Fall wäre es schneller, als wenn man jedes mal eine Textdatei öffnen würde, und die wieder schließen müsste.

Würde mich auch mal interessieren, wie man einen text aus einer Datei als kommentar einer Zelle einfügen kann.

Weil das wäre wirklich die geschickteste Möglichkeit. Auf jeden Fall wäre es schneller, als wenn man jedes mal eine Textdatei öffnen würde, und die wieder schließen müsste.

mein gott, als wenn keiner die makro aufzeichnen funktion kennt...

Range("K20").Select

Range("K20").AddComment

Range("K20").Comment.Visible = False

Range("K20").Comment.Text Text:="Lyric:" & Chr(10) & "das ist ein test" & Chr(10) & ""

Range("K21").Select

muss man halt den text aus der datei einlesen, also comment text reinschieben und gut... das & Chr(10) ist denk ich nicht nötig, weil Excel selber nen umbruch macht wenn der kommentar über die größe der box geht...

also... nur noch etwas anpassungsarbeiten und das tut

Also das mit den kommentaren funzt

das macro, das du (|roTekuGeL|) hier vorgeschlagen hast, passt schon ganz gut, nur kannste mir nicht sagen, wie man eine Verknüpfung zu einer bestimmten Textdatei programmiert, bzw. weil ich ne echte Null in dieser Beziehung bin, hinschreiben.

Danke schon mal im vorraus.

Schmitti

Also das mit den kommentaren funzt

das macro, das du (|roTekuGeL|) hier vorgeschlagen hast, passt schon ganz gut, nur kannste mir nicht sagen, wie man eine Verknüpfung zu einer bestimmten Textdatei programmiert, bzw. weil ich ne echte Null in dieser Beziehung bin, hinschreiben.

Danke schon mal im vorraus.

Schmitti

meinst du jetzt die veknüpfung die die textdatei als kommentar einlesen soll oder die, die eine textdateibeim klicken auf ne zelle öffnet?

Hi

ich meine eine Verknüpfung, die bei Klick auf eine Zeile eine Textdatei öffnet.

Also so, dass in dem Macro der Pfad der Datei c:\Eigene Datein\... vorkommt.

weisste?

so, dass ehm durch Klick auf die Zeile A1 der Text "Lied 1" als Datei erscheint, z.bsp. Word/Excel/RTX/Txt. Datei.

arbeite mit dem FSO (file system object). kein klick auf die zeile/zelle, füge den namen des interpreten als in eine stringvariable ein, und lese die besagte datei ein.

'Neues Object anlegen

Set fso = CreateObject("Scripting.FileSystemObject")

'Methode OpenTextFile gibt ein Textstream-Objekt zurück

Set ts = fso.OpenTextFile("C:\MeinLyricsArchiv\" & MeineAktiveZelle.Text & ".txt")

str = ts.ReadAll 'Alles lesen

ts.Close 'Datei schliessen

MeineKommentarZelle.AddComment

MeineKommentarZelle.Comment = str

schon hast du im kommentarfeld neben dem namen des interpreten die lyrics stehen. so oder ähnlich könnte das programmatisch umgesetzt sein.

s'Amstel

Dank euch allen

ich habs rausgefunden, wies funzt. und zwar ist es manchmal einfacher als man meint. ich hab das Problem mit Hilge des Hyperlinks gelöst. Simpel oder?

Dank euch nochmal für euere Mithilfe :uli

Eure Badewann

lol jep, so gehts auch :bimei