Zum Inhalt springen

Problem bei Progammierung


Empfohlene Beiträge

Geschrieben

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(B). ( 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 :D , 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

Geschrieben

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.

Geschrieben
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 ;)

Geschrieben

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

Geschrieben
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?

Geschrieben

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.

Geschrieben

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

Geschrieben

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

Dein Kommentar

Du kannst jetzt schreiben und Dich später registrieren. Wenn Du ein Konto hast, melde Dich jetzt an, um unter Deinem Benutzernamen zu schreiben.

Gast
Auf dieses Thema antworten...

×   Du hast formatierten Text eingefügt.   Formatierung wiederherstellen

  Nur 75 Emojis sind erlaubt.

×   Dein Link wurde automatisch eingebettet.   Einbetten rückgängig machen und als Link darstellen

×   Dein vorheriger Inhalt wurde wiederhergestellt.   Editor leeren

×   Du kannst Bilder nicht direkt einfügen. Lade Bilder hoch oder lade sie von einer URL.

Fachinformatiker.de, 2024 by SE Internet Services

fidelogo_small.png

Schicke uns eine Nachricht!

Fachinformatiker.de ist die größte IT-Community
rund um Ausbildung, Job, Weiterbildung für IT-Fachkräfte.

Fachinformatiker.de App

Download on the App Store
Get it on Google Play

Kontakt

Hier werben?
Oder sende eine E-Mail an

Social media u. feeds

Jobboard für Fachinformatiker und IT-Fachkräfte

×
×
  • Neu erstellen...