Brauchen Sie Hilfe?
Web:     Online-Formular
E-Mail:  
Diese E-Mail-Adresse ist vor Spambots geschützt! Zur Anzeige muss JavaScript eingeschaltet sein!
Tel:       +49(0)151 / 164 55 914

Nutzen Sie für Ihre Anfrage unser Online-Formular oder senden Sie uns eine E-Mail an Diese E-Mail-Adresse ist vor Spambots geschützt! Zur Anzeige muss JavaScript eingeschaltet sein!. Gerne können Sie aber auch direkt telefonisch Kontakt aufnehmen.

   
     Referenzen
 Bosch 
  T-Systems
  Hagebau
  Siemens
 Areva  VW
 Haufe-Lexware  British American Tobacco
  nagel group farbe
   

Kurze URL erzeugen (Tiny URL)

Unter einem Kurz-URL-Dienst oder Tiny-URL-Dienst versteht man einen Dienst, der die Erstellung von Weiterleitungs-URLs auf andere URLs erlaubt, die idealerweise aus möglichst kurzen Zeichenketten bestehen. Dies dient ursprünglich dazu, für unhandliche URLs handhabbarere Aliase (besser zu merken, schneller einzugeben, ...) erzeugen zu können. Weit verbreitet ist die Nutzung von Kurz-URLs in Microblogging-Diensten wie Twitter und Status-Meldungen in sozialen Netzwerken, die beide nur eine begrenzte Anzahl von Zeichen pro Nachricht erlauben.


In diesem Beispiel zeigen wir Ihnen, wie Sie mit Excel über den Dienst http://tinyurl.com direkt in Excel eine Kurz-URL erzeugen können.


Realisiert wird dies durch die Erstellung einer Benutzerdefinierten Funktion (UDF).


Erfassen Sie dazu folgenden Code in einem Code-Modul:

 

Function TinyURL(url As StringAs 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", "http://tinyurl.com/api-create.php?url=" & url, <span style="color: #0000ff;">False
Tiny.Send

'** Übergabe der erzeugten URL an die Funktion
TinyURL = Tiny.responsetext

End Function

 

 

Damit steht die neue Funktion zur Verfügung. Um beispielsweise die in Zelle A1 stehende Lang-URL zu verkürzen, erfassen Sie in Zelle B1 folgende Formel: =tinyurl(A1), siehe Abb. 1.

 


Abb. 1

 

 

Die Beispielmappe können Sie hier downloaden. Darin enthalten ist neben der Funktion auch ein kleines Tool, über das die Kurz-URL erstellt und gleich in die Zwischenablage für die weitere Verwendung kopiert werden kann.

   

Relevante Artikel

  • xls-Translator - Live-Übersetzung direkt in Excel

    Mit dem kostenlosen xls-Translator stellen wir ein Programm zur Verfügung, mit dem Texte in 37 unterschiedliche Sprachen direkt in Excel übersetzt werden können. Und so funktioniert der...

  • Excel Flash-Uhr

    Vor Kurzem habe ich eine wirklich nette Flash-basierte Uhr entdeckt, welche ich Ihnen nicht vorenthalten möchte. Die Flash-Uhr ist in eine Excel-Tabelle eingebettet. Sobald Sie die Excel-Datei...

  • Mit Excel im Internet surfen

    Das Tool xls-Webbrowser stellt in Excel einen Webbrowser zur Verfügung, mit dem beliebige Internetseiten in Excel angezeigt werden können. Das Programm ist so aufgebaut, dass in der linken Spalte...

  • Twitter Timelines in Karte anzeigen

    Seit einigen Monaten bitet Bing.comdie Möglichkeit, Twitter Timelines für einen Suchbegriff in einer Karte anzeigen zu lassen. Die Map lässt sich ganz einfach auf einer Webseite einbinden. Einfach bei...

  • xls-Konverter zur Umrechnung von bis zu 660 Maßeinheiten

    Der xls-Konverter ist ein Excel-Programm, mit dem sehr viele Maßeinheiten ganz einfach umgerechnet werden können. Im Internet stehen zwar verschiedene Online-Tools zur Verfügung wie beispielsweise...

   

Excel-Inside auf Facebook Excel-Live News blog Excel-Inside RSS-Feed Twitter Account für Excel-Inside Mail an Excel-Inside 

Programmierung
Excel Auftragsprogrammierung Access Auftragsprogrammierung
Word Auftragsprogrammierung Outlook Auftragsprogrammierung
   
Unsere Produkte
Office Schulungen VBA, Excel, Access
E-Book Formeln und Funktionen Excel 2013