Makroer

Hvordan har du skrevet det? I et felt? Prøv at skriv 3-4 eksempler.

Jeg har forsøgt med;

Sub Auto_åbn()
'
' Auto_åbn Makro
' Fjerner hyperlinknavne
'
' Genvejstast:Ctrl+d

For Each MyCell In Selection
If MyCell.Value Like "Text" Then Selection.Hyperlinks(1).TextToDisplay = True
End
Next

End Sub

Den skulle gerne køre automatisk når jeg åbner workbook, men jeg erkender blankt, at jeg ikke er den skarpeste kniv i skuffen når det gælder makroer.....Godt nytår i øvrigt;-)

Den makro, du har lavet, vil ikke kunne virke ;-)

Jeg går ud fra, at der er tale om hyperlinks. Prøv nedenstående makro, som vil ændre alle hyperlinks i alle sheets i den aktive workbook, så de viser hele URL'en - se bemærkningerne i selve makroen (makroen bevarer alle hyperlinks):

-----------------------
Sub ChangeAllHyperlinks()
    Dim oWorkbook As Workbook
    Dim oSheet As Worksheet
    Dim oHL As Hyperlink
   
    Set oWorkbook = ActiveWorkbook
   
    'Gennemgå alle sheets
    For Each oSheet In oWorkbook.Worksheets
        'Gennemgå alle hyperlinks i sheet
        For Each oHL In oSheet.Hyperlinks
            'Ændr teksten, så den er lig URL'en
            oHL.TextToDisplay = oHL.Address
        Next oHL
    Next oSheet
   
    'Ryd op
    Set oWorkbook = Nothing
End Sub

-----------------------
Hvorfor vil du have makroen til at køre, hver gang du åbner filen? Når du først har fået rettet dine hyperlinks én gang, er de jo i orden.

hej

Desværre så skriver den; "'Method of TextToDisplay' of object 'hyperlink' failed", når jeg beder om at afspille den, selv om den er sat ind som "copy-paste".

Jeg har testet i både Excel 2003 og 2007, og det fungerer uden problemer her.

Er der noget særligt ved den måde, du har indsat dine hyperlinks på? Prøv evt. at lave en ny Excel-fil, hvor du bare indsætter et enkelt hyperlink - og kør så makroen i det - virker det?

Så har jeg fået det til at virke.....Det må ligge i den workbook jeg forsøger at få det til at virke i; det er excel 2003, men åbnet i excel 2007 og kører i kompatibilitetstilstand. Desværre hjalp en konvertering ikke, så løsningen er blevet, at kopiere dataene på de enkelte worksheets over i en ny workbook, og så kører det! Tusind tak for hjælpen og godt nytår ;-)

Velbekomme og godt nytår. Fint at det lykkedes. Jeg har for en ordens skyld lavet dette som et svar, som du kan acceptere, hvis du ønsker det.