Autocorrect på bestemte celler?

Det tror jeg ikke kan lade sig gøre, men du kan lave en makro der gør det for dig.
Her er et llle eksempel, der indsættes i arkets eget kodemodul (højreklik på arkfanen vælg "Vis programkoder")

Private Sub Worksheet_Change(ByVal Target As Range)
Dim x As Range
Set x = Union(Range("a1"), Range("b2"), Range("C3"))
If Not Intersect(Target, x) Is Nothing Then
    Select Case Target.Value
        Case 0: Target.Value = "test"
        Case 1: Target.Value = "test2"
        Case 3: Target.Value = "Sluttest"
        Case Else
    End Select
End If
End Sub

Hej bak

Det fungere fint, men det er rimelig mange celler jeg skal lave det i fra f6 til f500. Findes der en kommando istedet for union der kan tage dette område?

Hej bak

Har fundet ud af det, tak for hjælpen

Hej bak

Det er lang tid siden jeg har brugt eksperten, jeg syntes ikke jeg har mulighed for at tildele dig pointene? Er der kommet en ny procedure?

Nej, jeg skal bare lige smide et svar :-)


Private Sub Worksheet_Change(ByVal Target As Range)
If Not Intersect(Target, Range("F3:F600")) Is Nothing Then
    Select Case Target.Value
        Case 0: Target.Value = "test"
        Case 1: Target.Value = "test2"
        Case 3: Target.Value = "Sluttest"
        Case Else
    End Select
End If
End Sub

Jeg var måske lidt for hurtig, det fungere som sagt ok hvis jeg ændre celles værdi i case 0: bliver det "test" osv. Problemmet er bare at jeg kopiere en blok ind på F6:F500 med værdierne 0-5 det opfatter Excel altså ikke som en Worksheet_Change og ændre derfor ikke værdierne - er der en løsning til dette?

læg denne makro i et modul og kør den

Public Sub ret()
Range("F3:F600").Select
For Each C In Selection
If C = "" Then GoTo Videre
Select Case C.Value
        Case 0: C.Value = "test"
        Case 1: C.Value = "test2"
        Case 3: C.Value = "Sluttest"
        Case Else
        C.Value = C.Value
    End Select
Videre:
Next
End Sub

Jeg har kunne bruge noget af det, kabbak og bak er du den sammme jeg vil gerne accepter dit/jeres svar!

nej, vi er to forskellige