title image


Smiley Re: Linkadresse auslesen
Hi Micha,



so gehts:





Sub LinksAuslesen()

'Liest aus allen Links einer gewählten Spalte die Zieladresse aus

'und schreibt sie in die Zelle rechts daneben

'03.06.2003 klausimausi64

Dim BR As Range, Zelle As Range

Dim n As Integer

Dim Link As String



Auswahl:

On Error Resume Next 'Fehlerbehandlung für Application.InputBox

Set BR = Application.InputBox("Wählen Sie einen einspaltigen Bereich aus!", Type:=8)

If BR.Columns.Count > 1 Then

    MsgBox "Gewählter Bereich soll nur einspaltig sein!"

    GoTo Auswahl

End If

On Error GoTo 0 'Fehlerbehandlung zurücksetzen



For Each Zelle In BR.Cells

n = Zelle.Hyperlinks.Count

If n = 1 Then 'dann steht ein Hyperlink in der Zelle

Link = Zelle.Hyperlinks(1).Address



If UCase(Left(Link, 7)) = "MAILTO:" Then 'Prüfung ob mailto: vorne dransteht

Link = Mid(Link, 8) 'mailto entfernen

End If



Zelle.Offset(0, 1).Value = Link 'schreibt in die Spalte rechts daneben

End If

Next Zelle

End Sub



 Code eingefügt mit Syntaxhighlighter 1.16



Es gibt vielleicht noch elegantere Lösungen, aber diese hier funktioniert auch!



CU Klaus

Viele Grüsse

aus dem sonnigen

Markgräflerland!!!

Wissen ist Macht, aber Nix wissen macht auch Nichts!

geschrieben von

Login

E-Mail:
  

Passwort:
  

Beitrag anfügen

Symbol:
 
 
 
 
 
 
 
 
 
 
 
 
 

Überschrift: