none
Hyperlink "aktivieren" wenn Zelle aus "Verketten" kopiert. RRS feed

  • Frage

  • Hallo liebe Gemeinde,

    Ich bastle mir aus mehreren Zellen mit dem Befehl "Verketten" eine Formel zusammen in O10

    =VERKETTEN("=";$P$2;$U$7;T10;$P$3;T10;$P$4;T10;R10;$P$5)

    Daraus möchte ich dann einen Hyperlink machen in Spalte N10

    =HYPERLINK("[Risikobeurteilung_DV00015r.xlsm]3.01.Risikoanalyse!"&WECHSELN(ADRESSE(1;SPALTE('3.01.Risikoanalyse'!V:V);4);1;)&ZEILE('3.01.Risikoanalyse'!9:9);"Springe zum RA Punkt")

    Das kopieren geht ja einfach :

    Sub Springen_zu_RA_aufbereiten()
    '
    ' Springen_zu_RA_aufbereiten Makro
    ' Kopiert die Spalte "O" in die Spalte "N" und aktiviert die Zelle in Register 5.7
    '
    Columns("O:O").Select
        Selection.Copy
        Columns("N:N").Select
        Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
            :=False, Transpose:=False
    
    End Sub

    Danach muss ich jedoch in jede Zelle gehen und sie mit "ENTER" bestätigen um den Hyperling zu aktivieren.

    Da ich viele Zeilen jedoch habe möchte ich das automatisieren.

    Danke für EURE Hilfe

    Montag, 24. November 2014 07:33