Excel 2003: Makro farve på ark

http://www.eksperten.dk/spm/560097

Ja, så kan man jo lære at "søge" ordenligt. Fanefarve/Arkfarve... same shit :)

Men jeg kan skitte få det til at fungere. Må lige rode lidt mere med makroen.

/plys

Nu har jeg bakset en makro sammen som håndterer de 4 farver jeg gerne vil kunne skifte imellem, men jeg kan kun få den til fast at skifte på "Ark1".

Er der nogen der kan hjælpe mig med at få sat en eller anden form for "Selected Sheets" formulering ind?

Pft.

Makroen ser sådan ud pt:
Sub ChangeColor()

If ActiveWorkbook.Sheets("Ark1").Tab.ColorIndex > 4 Then
ActiveWorkbook.Sheets("Ark1").Tab.ColorIndex = 1
Else: GoTo 1:
End If

1:
If ActiveWorkbook.Sheets("Ark1").Tab.ColorIndex = -4142 Then
ActiveWorkbook.Sheets("Ark1").Tab.ColorIndex = 1
Else: GoTo 2:
End If
GoTo 5:

2:
If ActiveWorkbook.Sheets("Ark1").Tab.ColorIndex = 1 Then
ActiveWorkbook.Sheets("Ark1").Tab.ColorIndex = 3
Else: GoTo 3:
End If
GoTo 5:

3:
If ActiveWorkbook.Sheets("Ark1").Tab.ColorIndex = 3 Then
ActiveWorkbook.Sheets("Ark1").Tab.ColorIndex = 4
Else: GoTo 4:
End If
GoTo 5:

4:
If ActiveWorkbook.Sheets("Ark1").Tab.ColorIndex = 4 Then
ActiveWorkbook.Sheets("Ark1").Tab.ColorIndex = -4142
Else: GoTo 5:
End If

5:
End Sub

Sub ChangeColor()

    If ActiveWorkbook.ActiveSheet.Tab.ColorIndex > 4 Then
        ActiveWorkbook.ActiveSheet.Tab.ColorIndex = 1
    Else: GoTo 1:
    End If

1:
    If ActiveWorkbook.ActiveSheet.Tab.ColorIndex = -4142 Then
        ActiveWorkbook.ActiveSheet.Tab.ColorIndex = 1
    Else: GoTo 2:
    End If
    GoTo 5:

2:
    If ActiveWorkbook.ActiveSheet.Tab.ColorIndex = 1 Then
        ActiveWorkbook.ActiveSheet.Tab.ColorIndex = 3
    Else: GoTo 3:
    End If
    GoTo 5:

3:
    If ActiveWorkbook.ActiveSheet.Tab.ColorIndex = 3 Then
        ActiveWorkbook.ActiveSheet.Tab.ColorIndex = 4
    Else: GoTo 4:
    End If
    GoTo 5:

4:
    If ActiveWorkbook.ActiveSheet.Tab.ColorIndex = 4 Then
        ActiveWorkbook.ActiveSheet.Tab.ColorIndex = -4142
    Else: GoTo 5:
    End If

5:
End Sub

Trylle Trylle kabbak... det er lige som det skal være.

Det fede ved makroer er at man bliver klogere for hver gang man roder med det. Skal lige have luret lidt om makroen behøver være så omfangsrig/fyldt med if-formler, men det må blive en anden gang :)

Hvis du smider et svar vil jeg være glad :)

et svar ;-))

tak for point