Projektanfrage

Projektanfrage über Web Formular   per Online-Formular 
Projektanfrage über E-Mail  Diese E-Mail-Adresse ist vor Spambots geschützt! Zur Anzeige muss JavaScript eingeschaltet sein!
Projektanfrage per Telefon  +49 (0)151 / 164 55 914
Projektanfrage weitere Informationen  weitere Informationen 

Sie benötigen Hilfe oder Unter-stützung? Nutzen Sie für Ihre Anfrage unser Online-Formular, senden Sie uns eine Diese E-Mail-Adresse ist vor Spambots geschützt! Zur Anzeige muss JavaScript eingeschaltet sein! oder rufen Sie uns einfach an.

   
      Referenzen 

 Bosch 
  T-Systems
  Hagebau
  Siemens
 Areva  VW
 Haufe-Lexware  British American Tobacco
  nagel group farbe
   
     Programmierung
Excel Auftragsprogrammierung Access Auftragsprogrammierung
Word Auftragsprogrammierung Outlook Auftragsprogrammierung
   
   

Projektanfrage

 Sie benötigen eine Auftragsprogrammierung?
 Oder suchen Unterstützung bei der Lösungs-
 findung?

  Nutzen Sie unser Auftragsformular

  Jetzt anrufen unter 0151 / 164 55 914

 Diese E-Mail-Adresse ist vor Spambots geschützt! Zur Anzeige muss JavaScript eingeschaltet sein! Projektanfrage per Diese E-Mail-Adresse ist vor Spambots geschützt! Zur Anzeige muss JavaScript eingeschaltet sein! senden

  Weitere Informationen

sitepanel question2

P
r
o
j
e
k
t
a
n
f
r
a
g
e
   

Hyperlinks per VBA auslesen

101083


Mit diesem Makro können alle Hyperlinks eines definierten Zellbereichs ausgelesen werden. Das Makro durchforstet in diesem Beispiel die Spalte A und listet die Ergebnisse, also alle ausgelesenen Hyperlinks in Spalte B auf.

Public Sub Hyperlink1()
'Auslesen der Hyperlink-Adresse
Dim hlink As Hyperlink
i = 1
For Each hlink In Sheets(1).Hyperlinks
Sheets(1).Cells(i, 2).Value = hlink.Address
i = i + 1
Next hlink
End Sub


Handelt es sich bei den Hyperlinks um Mail-Adressen, wird automatisch auch das Wort mailto: mit ausgegeben. Als Ergebnis erhalten Sie bspw. die Mailadresse des Hyperlinks wie folgt angezeigt:mailto:Diese E-Mail-Adresse ist vor Spambots geschützt! Zur Anzeige muss JavaScript eingeschaltet sein!
Das folgende Makro entfernt diesen Zusatz und gibt als Hyperlink nur noch Diese E-Mail-Adresse ist vor Spambots geschützt! Zur Anzeige muss JavaScript eingeschaltet sein! aus. Der Zusatz mailto: wird entfernt.

Public Sub Hyperlink2_Mailadresse()
Dim hlink As Hyperlink
i = 1
'Auslesen der Hyperlink-Adresse
For Each hlink In Sheets(1).Hyperlinks
mail = hlink.Address
mailneu = Right(mail, Len(mail) - 7)
Sheets(1).Cells(i, 2).Value = mailneu
i = i + 1
Next hlink
End Sub
 

Dieses Makro entfernt mit HIlfe der Funktion Right() den Zusatz "mailto:" aus der ausgelesenen Mail-Adresse.

   

Relevante Artikel

  • Zeilen abhängig von einer Bedingung ausblenden

    101081 Dieses Makro blendet Zeilen abhängig von einer Bedingung aus. In diesem Beispiel wird geprüft ob zwischen den Zeilen 1 und 100 in der Spalte A ein Wert steht oder nicht. Wenn kein Wert in...

  • Cells- zur Range-Schreibweise umwandeln

    101005   Mit dieser Funktion können Sie die die Cells-Schreibweise, z. B. Cells(1, 2) in die Range-Schreibweise z. B. Range("B1") umwandeln.   Sub umwandeln() Adresse = Cells2Range(1, 1) MsgBox Adresse End...

  • Spaltenbeschriftung auslesen

    In diesem Beispiel zeigen wir Ihnen, wie sich die Spaltenbeschriftung, also die Buchstaben der Spalten z. B. A, B, C, etc. über eine benutzerdefinierte Funktion (UDF) auslesen lässt. Mit Hilfe der in...

  • Übertragen bzw. Kopieren der Zeilenhöhe

    Sie haben eine Tabellenblatt, welches individuell formatiert ist. Wenn nun ausschließlich die Zeilenhöhen des markierten Bereichs von einem Tabellenblatt auf ein anderes Blatt oder von einem...

  • Trennen von Zellinhalten - Text in Spalten

    Dieses Beispiel zeigt, wie Zellinhalte die sich fortlaufend in einer Zelle befinden getrennt werden können. Voraussetzung ist, dass die einzelnen Elemente durch ein beliebiges Trennzeichen separiert wurden,...