Hyperlinks in Masse an Zellentext anhängen - Excel 2010

Computer: Software & Programmierung Visual Basic
#1

Hallo,

kriege täglich Exceltabellen, bei denen an vorhandenen Text ein Hyperlink angefügt werden muss bzw. ein vorhandener Hyperlink abgeändert werden muss - wobei das letzere ein einfaches wahr.

Der zu verlinkende Text fängt immer mit „B00“ an und ist 10 Zeichen lang, habe schon verschiedenste Sachen ohne Erfolg ausprobiert und wenn damm muss es im jeweils aktiven Worksheet funktionieren

Nachfolgend gibt es einen Auszug aus einem meiner Makros, das Fettgedruckte sind ein paar der Versuche die ich unternahm. Ich hoffe ihr könnt helfen. hab die Schleife auch erstmal nur auf 3 bis 12 gestellt

Dim Zelle, Hyper, Wert As String
Dim x As Integer
Dim r As Range

For x = 3 To 12
    On Error Resume Next
    
    Zelle = „http://Pfad/dp/“ & Range(„I“ & x).Select
    Wert = Left(Range(„I“ & x).Select, 3)
    For Each r In Range(„I“ & x)
        If r.Hyperlinks.Count > 0 Then
           Hyper = r.Hyperlinks(1).Address
           If Zelle <> Hyper Then
                Selection.Hyperlinks(1).Address = „http://Pfad/dp/“ & Range(„I“ & x).Value
                If Not IsEmpty Range(„I“ & x).Select And r.Hyperlinks.Count = 0 Then
                If Wert = „B00“ And r.Hyperlinks.Count < 1 Then
                If r.Hyperlinks.Count = 0 Then
                If Not IsEmpty Range(„I“ & x).Value And r.Hyperlinks.Count < 1 Then
                Selection.Hyperlinks(1).Address = „http://Pfad/dp/“ & Range(„I“ & x).Value
_                     With ActiveSheet _
                        .Hyperlinks.Add Anchor:=.Range(„I“ & x), _
                        Address:=„http://Pfad/dp/“ & Range(„I“ & x).Select, _
_                         ScreenTip:="", _ _
                        TextToDisplay:=Range(„I“ & x).Value
_                     End With _
                End If
            End If
        End If
    Next
Next x

#2

Hat sich geklärt hab selbst die entsprechende Antwort gefunden.

Ich sag nur zurück zum Anfang und klein anfagen, bevor man alles aufeinmal kombiniert und nicht mehr weiter weiß ^^

kann dann zugemacht werden

#3

So bitte nicht
Moin,

kann dann zugemacht werden

kann nicht zugemacht werden, sowas machen wir hier nicht.

Das Forum lebt vom Mitmachen - also gib Dir einen Ruck und erzähl, was nun geholfen hat. So mancher hat nämlich reingeguckt und über Deiner Frage gegrübelt, auch wenn’s nichts gebracht hat.

Gruß Ralf

#4

Bezugnehmend auf den Kommentar zu meinem das kann zugemacht werden. Hier nun meine Lösung

Sub xyz123()
Dim Zelle, Hyper, Wert, Display As String
Dim x1, x2, y1, y2 As Integer
Dim r As Range
’ verschachelte Schleife mit Wenn-Dann-Sonst-Funktion zum Setzen von Hyperlinks, wenn in der entsprechenden Zelle ein bestimmter Wert steht
y1 = 13
For x1 = 2 To 11
On Error Resume Next
Zelle = „http://www.pfad.de/dp/“ & Cells(x1, y1).Select
Wert = Left(Cells(x1, y1), 3)
Display = Cells(x1, y1).Value
For Each r In Cells(x1, y1)
If r.Hyperlinks.Count > 0 Then
Hyper = r.Hyperlinks(1).Address
If Zelle Hyper Then
Selection.Hyperlinks(1).Address = „http://www.pfad.de/dp/“ & Cells(x1, y1).Value
End If
End If
If Wert = „B00“ And r.Hyperlinks.Count = 0 Then
ActiveSheet.Hyperlinks.Add Anchor:=Selection, Address:= _
„http://www.pfad.de/dp/“ & Cells(x1, y1).Value, TextToDisplay:=Display
End If
Next
Next x1
’ verschachelte Schleife mit Wenn-Dann-Sonst-Funktion zum Setzen von Hyperlinks, wenn in der entsprechenden Zelle ein bestimmter Wert steht
For x2 = 2 To 11
On Error Resume Next
For y2 = 7 To 11
Zelle = „http://www.pfad.de/dp/“ & Cells(x2, y2).Select
Wert = Left(Cells(x2, y2), 3)
Display = Cells(x2, y2).Value
For Each r In Cells(x2, y2)

If r.Hyperlinks.Count > 0 Then
Hyper = r.Hyperlinks(1).Address
If Zelle Hyper Then
Selection.Hyperlinks(1).Address = „http://www.pfad.de/dp/“ & Cells(x2, y2).Value
End If
End If

If Wert = „B00“ And r.Hyperlinks.Count = 0 Then
ActiveSheet.Hyperlinks.Add Anchor:=Selection, Address:= _
„http://www.pfad.de/dp/“ & Cells(x2, y2).Value, TextToDisplay:=Display
End If
Next
Next y2
Next x2
End Sub

Wie man man sieht ist das erste „FOR“ für einen Bereich innerhalb einer Spalte, es wird der Inhalt der jeweiligen Zelle kontrolliert stimmt das mit der Vorgabe überein und sollte noch kein Hyperlink vorhanden sein, oder aber von der Vorgabe abweichen, wird entweder ein Link erstellt oder der vorhandene abgeändert
das zweite For bietet die selbe Lösung nur für einen Bereich von ein paar Spalten und ein paar Zellen