Hyperlinks anpassen

[Icepic]

Hallo Zusammen,

ich brauche mal wieder eure Hilfe.

in einer Anwendung kopiere ich eine Spalte die in Ihrer ersten Zelle
einen Hyperlink enthält der auf ein Tabellenblatt zeigt.

Dieser Eintrag muss nun auf ein Anderes Tabellenblatt verändert werden.

Meine bisherige Lösung führt jedoch dazu, dass beide Einträge verändert
werden.

With Range("B4").Offset(0, iMax)
        'Firmennummer eintragen
        Range("B4:B26").Copy .Cells(1)
        .Value = iMax + 1
        .Hyperlinks(1).SubAddress = Replace(.Hyperlinks(1).SubAddress, "Firma 1", "Firma " & iMax + 1) 

Ein anderer Ansatz

With Range("B4").Offset(0, iMax)
        'Firmennummer eintragen
        Range("B4:B26").Copy .Cells(1)
        .Value = iMax + 1
        .Hyperlinks.Add Anchor:=.Cells(1), Address:="", SubAddress:="Firma " & iMax + 1

verändert auch beide Hyperlinks.

Wer kann helfen?

Gruß Michael

[schauan]

Hallöchen,

kann ich nicht nachvollziehen. In der Beispieldatei geht die Verlinkung 1 und 2 beides nach Firma 2. Mit Deinem zweiten Codebeispiel werden Daten für die Firma 3 angelegt und ein Hyperlink auf Blatt 3 erzeugt. Da der komplette Code nicht durchläuft, hab ich das mal mit einem kurzen Makro getestet und das Blatt Firma 3 zuvor angelegt.

Code:

Sub test()
iMax = 2
With Range("B4").Offset(0, iMax)
'Firmennummer eintragen
Range("B4:B26").Copy .Cells(1)
.Value = iMax + 1
.Hyperlinks.Add Anchor:=.Cells(1), Address:="", SubAddress:="Firma " & iMax + 1
End With
End Sub

[Icepic]

Hallo Andre,

habe das Problem nun lösen können. Dummer Fehler meinerseits. Habe die Hyperlinkadresse nicht richtig definiert.

Vielen Dank für deine Mühe.

Gruß aus Hamburg

Michael