Clever-Excel-Forum › Office-Anwendungen › Excel v
URL Adressen schrumpfen per VBA

Thema geschlossen 
Baumstrukturmodus
URL Adressen schrumpfen per VBA
VBATartar Offline
pausiert
Registriert seit: 14.02.2016
Version(en): 2010-2016
#1
14.02.2016, 13:28 (Dieser Beitrag wurde zuletzt bearbeitet: 14.02.2016, 13:28 von VBATartar.)
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.
Suchen
Top
RPP63 Offline
Mitten im Ruhrpott
Registriert seit: 12.10.2014
Version(en): 365 Insider (32 Bit)
#2
14.02.2016, 13:34
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)
Suchen
Top
Peter Offline
Lernt immer noch dazu
Registriert seit: 12.04.2014
Version(en): Office 365
#3
14.02.2016, 13:35
Hallo,

suchst du sowas?

http://www.excel-inside.de/software/exce...n-tiny-url
Gruß
Peter
Suchen
Top
RPP63 Offline
Mitten im Ruhrpott
Registriert seit: 12.10.2014
Version(en): 365 Insider (32 Bit)
#4
14.02.2016, 13:40
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)
Suchen
Top
RPP63 Offline
Mitten im Ruhrpott
Registriert seit: 12.10.2014
Version(en): 365 Insider (32 Bit)
#5
14.02.2016, 13:52
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)
Suchen
Top
VBATartar Offline
pausiert
ThreadStarter
Registriert seit: 14.02.2016
Version(en): 2010-2016
#6
14.02.2016, 21:18
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!!
Suchen
Top
WillWissen Offline
CEF-Moderator
Registriert seit: 10.04.2014
Version(en): Microsoft 365, mtl. Kanal
#7
14.02.2016, 21:43
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)
Suchen
Top
Thema geschlossen 


Gehe zu:


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