Office Forum
www.Office-Loesung.de
Access :: Excel :: Outlook :: PowerPoint :: Word :: Office :: -------> Neu: dotNet & Visual Studio Forum <-
Hyperlinks automatisch durch ein Wort ersetzen
zurück: Excel - Eingabemaske selber programmieren weiter: Alles löschen per Termin Unbeantwortete Beiträge anzeigen
Neues Thema eröffnen   Neue Antwort erstellen     Status: Feedback Facebook-Likes Diese Seite Freunden empfehlen
Zu Browser-Favoriten hinzufügen
Autor Nachricht
patsterflex
Im Profil kannst Du frei den Rang ändern


Verfasst am:
06. Feb 2008, 16:14
Rufname:

Hyperlinks automatisch durch ein Wort ersetzen - Hyperlinks automatisch durch ein Wort ersetzen

Nach oben
       Version: Office 2003

Hi

habe bei uns in der Firma ein Projekt gefasst und zwar muss ich eine Liste mit Links in ein Excel einfügen. Diese Links beziehen sich auf eine Website und jeder link stellt eine andere Seite in der Homepage dar.

Nun möchte ich mithilfe von VBScript erreichen, dass wenn ich die Link-Liste einfüge, es mir automatisch eine Liste erstellt, in der sich die Links in die Namen der jeweiligen Seite "verwandelt".

Beispiel:

Sobald ich den link "http://www.office-loesung.de" in excel einfüge müsste dann in einer neuen Liste oder Spalte "Office Lösung Homepage" erscheinen resp. ausgegeben werden.

Ist das überhaupt möglich mit VBA?

Wenn ja kann mir da jemand Tipps geben, wie ich dies bewerkstelligen kann?

Vielen dank im Voraus!
_anton_
Im Profil kannst Du frei den Rang ändern


Verfasst am:
06. Feb 2008, 19:16
Rufname:

AW: Hyperlinks automatisch durch ein Wort ersetzen - AW: Hyperlinks automatisch durch ein Wort ersetzen

Nach oben
       Version: Office 2003

Hallo patsterflex,

probier mal sowas:
Code:
Sub b()
  Dim IEApp, IEDocument As Object
  Set IEApp = CreateObject("InternetExplorer.Application")
  'Range("A1") soll ein Link enthalten
  adresse = Range("A1").Hyperlinks(1).Address
  IEApp.Visible = False
  IEApp.Navigate adresse
  Do: Loop Until IEApp.Busy = False
  Do: Loop Until IEApp.Busy = False
  Set IEDocument = IEApp.Document
  strText = IEDocument.Title
  Range("B1").Hyperlinks.Add anchor:=Range("B1"), Address:=adresse, TextToDisplay:=strText
  IEApp.Quit
  Set IEDocument = Nothing
  Set IEApp = Nothing
End Sub


mfg Anton
patsterflex
Im Profil kannst Du frei den Rang ändern


Verfasst am:
12. Feb 2008, 09:46
Rufname:


AW: Hyperlinks automatisch durch ein Wort ersetzen - AW: Hyperlinks automatisch durch ein Wort ersetzen

Nach oben
       Version: Office 2003

Hi Anton

vielen Dank für Deine Bemühungen, werde ich gleich mal ausprobieren und posten ob ichs hinbekommen habe.

ty
pat
Neues Thema eröffnen   Neue Antwort erstellen Alle Zeiten sind
GMT + 1 Stunde

Diese Seite Freunden empfehlen

Seite 1 von 1
Gehe zu:  
Du kannst Beiträge in dieses Forum schreiben.
Du kannst auf Beiträge in diesem Forum antworten.
Du kannst deine Beiträge in diesem Forum nicht bearbeiten.
Du kannst deine Beiträge in diesem Forum nicht löschen.
Du kannst an Umfragen in diesem Forum nicht mitmachen.
Du kannst Dateien in diesem Forum nicht posten
Du kannst Dateien in diesem Forum herunterladen

Verwandte Themen
Forum / Themen   Antworten   Autor   Aufrufe   Letzter Beitrag 
Keine neuen Beiträge Excel Formeln: Komponenten automatisch berechnen und abbuchen 3 Sven_Schweiz 1741 09. Mai 2006, 12:04
Sokrates Komponenten automatisch berechnen und abbuchen
Keine neuen Beiträge Excel Formeln: Datum automatisch einfügen lassen ? 5 Olaf 3919 26. Aug 2005, 09:25
KingPing Datum automatisch einfügen lassen ?
Keine neuen Beiträge Excel Formeln: Formaln kopieren/Absolute Zellen ersetzen DRINGEND! 2 Craig Marduk 1627 15. Aug 2005, 08:06
Craig Marduk Formaln kopieren/Absolute Zellen ersetzen DRINGEND!
Keine neuen Beiträge Excel Formeln: Formatierung einer Zeile wenn das Wort CL vorkommt 13 Kemal76 2051 22. Jul 2005, 14:55
Kemal76 Formatierung einer Zeile wenn das Wort CL vorkommt
Keine neuen Beiträge Excel Formeln: Automatisch immer die Werte aus letzter Spalte übernehmen??? 31 Provaeth 4017 19. Jul 2005, 13:29
ae Automatisch immer die Werte aus letzter Spalte übernehmen???
Keine neuen Beiträge Excel Formeln: "Ersetzen"-Funktion innerhalb von Formeln? 1 oko 534 20. Jun 2005, 17:13
Thomas Ramel "Ersetzen"-Funktion innerhalb von Formeln?
Keine neuen Beiträge Excel Formeln: bei monatswechsel daten automatisch in andere spalte 2 poison30 1329 08. Jun 2005, 22:28
poison30 bei monatswechsel daten automatisch in andere spalte
Keine neuen Beiträge Excel Formeln: Tabellenblattname automatisch in eine Zelle uebernehmen? 3 Boris 1150 23. Apr 2005, 21:05
Boris Tabellenblattname automatisch in eine Zelle uebernehmen?
Keine neuen Beiträge Excel Formeln: Beim Import von Daten automatisch zusammenzählen 8 Schoki 1136 20. Apr 2005, 09:52
Schoki Beim Import von Daten automatisch zusammenzählen
Keine neuen Beiträge Excel Formeln: Wie kann ich Dateiverweis in Formel automatisch einfügen? 1 cb3000 952 18. Jan 2005, 13:00
cb3000 Wie kann ich Dateiverweis in Formel automatisch einfügen?
Keine neuen Beiträge Excel Formeln: Werte aus Projekttabelle 1 automatisch in Tabelle 2 + 3 ? 7 DerDoktor 3764 15. Jan 2005, 14:41
DerDoktor Werte aus Projekttabelle 1 automatisch in Tabelle 2 + 3 ?
Keine neuen Beiträge Excel Formeln: Datensätze automatisch kopieren 2 Gast 2718 04. Jan 2005, 20:57
Gast Datensätze automatisch kopieren
 

----> Diese Seite Freunden empfehlen <------ Impressum - Besuchen Sie auch: JavaScript