Dieses Forum nutzt Cookies
Dieses Forum verwendet Cookies, um deine Login-Informationen zu speichern, wenn du registriert bist, und deinen letzten Besuch, wenn du es nicht bist. Cookies sind kleine Textdokumente, die auf deinem Computer gespeichert werden. Die von diesem Forum gesetzten Cookies werden nur auf dieser Website verwendet und stellen kein Sicherheitsrisiko dar. Cookies aus diesem Forum speichern auch die spezifischen Themen, die du gelesen hast und wann du zum letzten Mal gelesen hast. Bitte bestätige, ob du diese Cookies akzeptierst oder ablehnst.

Ein Cookie wird in deinem Browser unabhängig von der Wahl gespeichert, um zu verhindern, dass dir diese Frage erneut gestellt wird. Du kannst deine Cookie-Einstellungen jederzeit über den Link in der Fußzeile ändern.

URL Adressen schrumpfen per VBA
#1
Hallo und einen schönen Sonntag allerseits,

ich bin neu im Forum und habe schon eine harte Nuss für euch. Mit dem Internet und der ganzen Informationsgesellschaft ist das ja so eine Sache. Die Informationsflut führt zwangsläufig dazu,
dass sich immer mehr URL-Adressen ansammeln. Da ist es einerseits schön Excel zu haben, wo man all diese Links auf die interessanten Seiten im Internet speichern kann. Leider sind die Adressen
häufig ellenlang und so gibt es findige Anbieter
Dateiupload bitte im Forum! So geht es: Klick mich!
/ die diese mordslangen Zeichenketten schrumpfen. So weit so gut. Leider ist der Mensch faul. So wie ich zum Beispiel.
Deshalb frage ich mich ob es mittels VBA Code möglich ist, diese langen URL Monster über Exel automatisiert bei
Dateiupload bitte im Forum! So geht es: Klick mich!
einzulesen. Ich stelle mir das Ganze, dann ungefähr so vor:
Links in einer Spalte die ganzen langen Adressen, dann einen Knopfdruck auf ein Excel Makro und schwupps in no time stehen in der rechten Spalte dann die von
Dateiupload bitte im Forum! So geht es: Klick mich!
  geschrumpften
Url Adressen.

Es wäre schön wenn jemand von euch so etwas programmieren könnte (und würde!). Nicht nur für mich faulen Hund, ich glaube wirklich viele Leute hätten etwas davon.
Antworten Top
#2
Moin!
Dafür gibt es eine Funktion, Spalte A kannst Du ja ausblenden.

AB
1http://www.clever-excel-forum.de/Thread-URL-Adressen-schrumpfen-per-VBAMein Lieblingsthread
Formeln der Tabelle
ZelleFormel
B1=HYPERLINK(A1;"Mein Lieblingsthread")

Excel Tabellen im Web darstellen >> Excel Jeanie HTML 4.8

Gruß Ralf
Gib einem Mann einen Fisch und du ernährst ihn für einen Tag. 
Lehre einen Mann zu fischen und du ernährst ihn für sein Leben. (Konfuzius)
Antworten Top
#3
Hallo,

suchst du sowas?

http://www.excel-inside.de/software/exce...n-tiny-url
Gruß
Peter
Antworten Top
#4
Hi!
Sehr interessanter Link, Peter!  Idea
Wobei ich persönlich mit 2vd9mf wenig anfangen kann, ein "freundlicher Name" alias Alias :21: hilft mir mehr.

Gruß Ralf
Gib einem Mann einen Fisch und du ernährst ihn für einen Tag. 
Lehre einen Mann zu fischen und du ernährst ihn für sein Leben. (Konfuzius)
Antworten Top
#5
Hi!
Habe es getestet, funktioniert nur wenn man die html-Tags aus dem Code entfernt:

Function  	
Dateiupload bitte im Forum! So geht es: Klick mich!
As String) As String '** Dimensionierung der Variablen Dim Tiny As Object Set Tiny = CreateObject("MSXML2.XMLHTTP") '** Prüfen, ob URL mit "http://" beginnt - dies ist notwendig If LCase(Left(url, 7)) <> LCase("http://") Then   url = "http://" & url End If '** Abfragen der Tiny-URL Tiny.Open "POST", Dateiupload bitte im Forum! So geht es: Klick mich!
> & url, False Tiny.Send '** Übergabe der erzeugten URL an die Funktion Dateiupload bitte im Forum! So geht es: Klick mich!
= Tiny.responsetext End Function

ABC
1http://www.clever-excel-forum.de/Thread-URL-Adressen-schrumpfen-per-VBAMein Lieblingsthread
Dateiupload bitte im Forum! So geht es: Klick mich!
/>
Formeln der Tabelle
ZelleFormel
B1=HYPERLINK(A1;"Mein Lieblingsthread")
C1=
Dateiupload bitte im Forum! So geht es: Klick mich!
>

Excel Tabellen im Web darstellen >> Excel Jeanie HTML 4.8

Gruß Ralf
Gib einem Mann einen Fisch und du ernährst ihn für einen Tag. 
Lehre einen Mann zu fischen und du ernährst ihn für sein Leben. (Konfuzius)
Antworten Top
#6
Hallo ihr Genies,

ihr seid ja schneller als Google. Vielen Dank. Ich werde den Code mal bei mir austesten und mich dann wieder vertrauensvoll an euch wenden.
Ihr habt ein Super-Forum!!
Antworten Top
#7
Hi,

Ralfs Idee aus Beitrag #2 aufgegriffen:

Tabelle1

AB
15http://waskochich.com/rezepte/ceasar-saladCeasar Salad
16http://waskochich.com/rezepte/champignon-ciabattaChampignon Ciabatta
17http://waskochich.com/rezepte/chicken-teriyakiChicken Teriyaki
Formeln der Tabelle
ZelleFormel
B15=WENN(A15="";"";WECHSELN(GROSS2(TEIL(A15;VERWEIS(256;FINDEN("/";A15;ZEILE($3:$485)))+1;99));"-";" "))

Excel Tabellen im Web darstellen >> Excel Jeanie HTML 4.8

Spalte A ausblenden und den Text in Spalte B durch Rechtsklick==> Link wieder verlinken.

[
Bild bitte so als Datei hochladen: Klick mich!
]
Gruß Günter
Jeder Fehler erscheint unglaublich dumm, wenn andere ihn begehen.
angebl. von Georg Christoph Lichtenberg (1742-1799)
Antworten Top


Gehe zu:


Benutzer, die gerade dieses Thema anschauen: 1 Gast/Gäste