Clever-Excel-Forum

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.

Moin!
Dafür gibt es eine Funktion, Spalte A kannst Du ja ausblenden.

	A	B
1	http://www.clever-excel-forum.de/Thread-URL-Adressen-schrumpfen-per-VBA	Mein Lieblingsthread

Formeln der Tabelle

Zelle	Formel
B1	=HYPERLINK(A1;"Mein Lieblingsthread")

Excel Tabellen im Web darstellen >> Excel Jeanie HTML 4.8

Gruß Ralf

Hallo,

suchst du sowas?

http://www.excel-inside.de/software/exce...n-tiny-url

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

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

http://www.clever-excel-forum.de/Thread-URL-Adressen-schrumpfen-per-VBA

Mein Lieblingsthread

Dateiupload bitte im Forum! So geht es: Klick mich!
/>

Formeln der Tabelle

Zelle

Formel

=HYPERLINK(A1;"Mein Lieblingsthread")

=
Dateiupload bitte im Forum! So geht es: Klick mich!
>

Excel Tabellen im Web darstellen >> Excel Jeanie HTML 4.8

Gruß Ralf

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!!

Hi,

Ralfs Idee aus Beitrag #2 aufgegriffen:

Tabelle1

	A	B
15	http://waskochich.com/rezepte/ceasar-salad	Ceasar Salad
16	http://waskochich.com/rezepte/champignon-ciabatta	Champignon Ciabatta
17	http://waskochich.com/rezepte/chicken-teriyaki	Chicken Teriyaki

Formeln der Tabelle

Zelle	Formel
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!
]

VBATartar

RPP63

Peter

RPP63

RPP63

VBATartar

WillWissen