Hjælp til at ændre 2 makroer

i makro 1
.Color = 15773696 '(blå)

i makro 2
.ColorIndex = xlAutomatic '(std farve)

Mange tak men jeg er ikke nogen hej til disse koder.
Hvor i koden skal det sættes ind.??
/petert

efter din font selection

Hej panebb
mener du sådan? i makro 1

Sub GennemstregMarkerede()
    Selection.Color = 15773696 '(blå).Font.Strikethrough = True
End Sub

/petert

der sker dette at denne del af koden bliver grøn.
" '(blå).Font.Strikethrough = True "
Petert

Sub GennemstregMarkerede()
  Selection.Font.Strikethrough = True
  .Color = 15773696 '(blå)
End Sub

Det kan være du skal bruge en anden farvekode, ovenstående var den min excel kom ud med. Optag en makro og aflæs koden.

Jeg får følgende fejl meddelse.
et lille vindue kommer op (visual basic) med teksten
Compile error
Invalid or inqualified refference
/petert

Sub Makro1()
' Makro1 Makro
    With Selection.Font
        .Name = "Arial"
        .FontStyle = "Normal"
        .Size = 10
        .Strikethrough = True
        .Superscript = False
        .Subscript = False
        .OutlineFont = False
        .Shadow = False
        .Underline = xlUnderlineStyleNone
        .Color = 15773696
        .TintAndShade = 0
        .ThemeFont = xlThemeFontNone
    End With
  End Sub
-----

Sub Makro2()
' Makro2 Makro
    With Selection.Font
        .Name = "Arial"
        .FontStyle = "Normal"
        .Size = 10
        .Strikethrough = False
        .Superscript = False
        .Subscript = False
        .OutlineFont = False
        .Shadow = False
        .Underline = xlUnderlineStyleNone
        .ThemeColor = xlThemeColorLight1
        .TintAndShade = 0
        .ThemeFont = xlThemeFontNone
    End With
End Sub

Hej penebb igen tak for din udholdenhed. den fejler stadig. men med en ny error. nen den overstreger og faverblå som den skal, men slutter af med en fejl og låser.
de to makroer skal helst beholde sine makronavne fordi nevnet passer i nogle knapper.
Hvordan skal koden så være med navnene GennemstregMarkerede() og FjernGennemstregMarkerede() og ikke makro 1 og makro 2



Sub GennemstregMarkerede()
    Selection.Font.Strikethrough = True
End Sub
og
Sub FjernGennemstregMarkerede()
    Selection.Font.Strikethrough = False
End Sub
/petert

hvilken fejl?

navnet på makroerne kan du da selv ændre

Hej
hvis jeg laver koden eks som nedenunder

Sub GennemstregMarkerede()
With Selection.Font
        .Name = "Arial"
        .FontStyle = "Normal"
        .Size = 10
        .Strikethrough = True
        .Superscript = False
        .Subscript = False
        .OutlineFont = False
        .Shadow = False
        .Underline = xlUnderlineStyleNone
        .Color = 15773696
        .TintAndShade = 0
        .ThemeFont = xlThemeFontNone
    End With
  End Sub

Kommer fejlen
RUN-TIME ERROR '438'
object doesn't support this property og method

men hvis jeg trykker end til denne fejl meddelse kan jeg se at cellen er blå og overstreget

Petert

du bruger sikkert en anden version end jeg (2007).
prøv at optage din egen makro, så skal det nok virke.

Fjern linjen med .ThemeFont - det er en 2007-egenskab.

jeg prøvede at slette linjen. cellen bliver overstreget og farvet blå som den skal, men jeg får også fejlmeddelsen

RUN-TIME ERROR '438'
object doesn't support this property og method
Mvh
petert

Og når du nu får denne fejl, hvilken linje er fejlen så i? Tjekkes ved at klikke på debug, når du får fejlen - linjen vil være markeret med gult - eller ved at åbne kodevinduet, klikke på Debug - Compile (uden at koden kører).

Jeg får den i sidste linje.
" .TintAndShade = 0 "
Hvad gør man så??
/petert

Fjern linjen. Det er vist også en 2007-"ting".

Jeg tror den er lige ved at være der. Den første makro køre fint (GennemstregMarkerede()) men den anden laver fejl. jeg indsætter her koden som laver fejl og efter den linje der er fejl i kan du se en fejl i den??


Sub FjernGennemstregMarkerede()
  With Selection.Font
        .Name = "Arial"
        .FontStyle = "Normal"
        .Size = 10
        .Strikethrough = False
        .Superscript = False
        .Subscript = False
        .OutlineFont = False
        .Shadow = False
        .Underline = xlUnderlineStyleNone
        .ThemeColor = xlThemeColorLight1
    End With
End Sub

.ThemeColor = xlThemeColorLight1


/petert

Lige en ting til hvor finder man farve nummeret eks ( .Color = 15773696 ) hvis man vil have en blå der er lidt mere mørkeblå??
Mvh
/petert

panebb har på et tidspunkt anbefalet dig selv at indspille en makro - det vil jeg også gøre nu. For det første får du ikke alle de yderligere egenskaber osv. med, som eksisterer i 2007 (og som du nu kæmper med at få fjernet), for det andet kan du få farvekoden på lige præcis den blå, som du specificerer.

Jeg kan se at du stadig har 2007-"ting" i koden. Alt med Theme skal du i hvertfald fjerne. Hvis du ikke indspiller din egen makro, bør du "debugge" din kode (se min kommentar af 22/11-2007 20:34:40), indtil du ikke får fejl.

Jeg gjorde som du sagde og nu kører den.Tusind tak for hjælpen. læg et svar og vi kan lukke dette spm.
Mvh
Petert

Velbekomme. Svaret bør nok komme fra panebb, som har taget den "store rumle".

Med fælles indsats kan vi nå langt, så hop bare med word-haj :-)

Takker, panebb.