Store bokstaver

En metode er at højreklikke på arkfanen, vælg "Vis Programkode" og indsætte denne kode

Private Sub Worksheet_Change(ByVal Target As Range)
Target = UCase(Target.Value)
End Sub

BAK - din kode konverterer også formler til værdier... hvis der skal kunne indtastes formler skal den så således ud:

Private Sub Worksheet_Change(ByVal Target As Range)
    If Not (Target.HasFormula) Then
        Target.Value = UCase(Target.Value)
    End If
End Sub

Man skal måske også taget højde for Array formler
Private Sub Worksheet_Change(ByVal Target As Range)
    With Target
        If Not (.HasArray) And Not (.HasFormula) Then
            .Value = UCase(.Value)
        End If
    End With
End Sub

Måske også hyperlinks m.m.

Rigtigt, Flemming. Jeg var så fokuseret på tekst, at jeg ikke tænkte skridtet videre..... :-(

Denne makro gør tricket meget enkelt. Du skal selvfølgelig gøre den færdig med de sidste 25 bogstaver.

Sub aTilZ()
'
' aTilZ Makro
' Makro indspillet 25-11-02 af Carsten Hansen
'

'
    Cells.Replace What:="a", Replacement:="A", LookAt:=xlPart, SearchOrder _
        :=xlByRows, MatchCase:=False
    Cells.Replace What:="b", Replacement:="B", LookAt:=xlPart, SearchOrder _
        :=xlByRows, MatchCase:=False
    Cells.Replace What:="c", Replacement:="C", LookAt:=xlPart, SearchOrder _
        :=xlByRows, MatchCase:=False
    Cells.Replace What:="d", Replacement:="D", LookAt:=xlPart, SearchOrder _
        :=xlByRows, MatchCase:=False
   
End Sub

hcars>> vi du så køre din makro, hver gang der er blevet indtast oplysninger i en celle =28 erstatningskørsler for hver celle ændring - den holder nok ikke, bliver for tung ved større regneark, specielt fordi den kører på alle celler, selvom det kun er nødvendigt at lege med den sidst ændrede celle. Prøv de ovenstående makroer og se hvor hurtige de er.

Hvis jeg skulle forkorte din makro, så ville jeg skrive den således:
Sub UcaseAllLetters()
    Dim lChar As Long
   
    For lChar = 97 To 122
        Cells.Replace What:=Chr(lChar), Replacement:=Chr(lChar - 32), _
            LookAt:=xlPart, SearchOrder:=xlByRows, MatchCase:=False
    Next lChar
   
    lChar = 229 'Å
        Cells.Replace What:=Chr(lChar), Replacement:=Chr(lChar - 32), _
            LookAt:=xlPart, SearchOrder:=xlByRows, MatchCase:=False
    lChar = 230 'Æ
        Cells.Replace What:=Chr(lChar), Replacement:=Chr(lChar - 32), _
            LookAt:=xlPart, SearchOrder:=xlByRows, MatchCase:=False
    lChar = 248 'Ø
        Cells.Replace What:=Chr(lChar), Replacement:=Chr(lChar - 32), _
            LookAt:=xlPart, SearchOrder:=xlByRows, MatchCase:=False
End Sub

eller sådan:

Sub UcaseAllLetters()
    Dim rCell As Range
   
    For Each rCell In ActiveSheet.UsedRange
        With rCell
            If Not (.HasFormula) Or Not (.HasArray) Then
                .Value = UCase(.Value)
            End If
        End With
    Next
End Sub

yeti>> har du fået det løst ?

Det viste sig at være lettere at konverterer alle bokstaver ved import af arket.