Dansk Regneark Forum
  Hjælp Hjælp  Søg i forum   Arrangementer   Opret ny bruger Opret ny bruger  Log ind Log ind


Emne lukketTving store bogstaver

 Besvar Besvar
Forfatter
Thomas1979 Se dropdown
Forum Begynder
Forum Begynder
Avatar

Medlem: 08.Jan.2019
Land: Danmark
Status: Offline
Point: 1
Direkte link til dette indlæg Emne: Tving store bogstaver
    Sendt: 08.Jan.2019 kl. 11:59
Hej allesammen.

Jeg er meget grøn med VBA, men det har min store interesse, så håber at virksomheden jeg arbejder i, går med til et kursus i VBA for Excel :)

Jeg sidder og puzzler lidt med en tvungen formatering i et excel ark.

Jeg har forsøgt mig med nedestående, og det virker sådan set som det skal... Lige indtil jeg sletter indholdet i en celle, så "dør" excel og crasher... Tænker at det er fordi VBA koden ikke er "færdig" og den ikke kan forså hvorfor indholdet forsvinder (Blot en teori :) )

Jeg har lagt dette ind i "Denne projektmappe" i VBA editoren:

Private Sub Workbook_SheetChange(ByVal Sh As Object, ByVal Target As Range)

    Dim LowerCase As String
    Dim UpperCase As String

    LowerCase = Target.Value
    UpperCase = UCase(LowerCase)
    Target.Value = UpperCase


End Sub

Og som sagt, så retter den alt indtastet til store bogstaver, præcis som den skal, men sletter jeg herefter indholdet i cellen, så "slukker" lyset...


Er der nogen der kan hjælpe mig her?

Med de venligste hilsner, Thomas.
Til top



Til top
maxzpad Se dropdown
Guld bruger
Guld bruger
Avatar

Medlem: 04.Aug.2016
Land: Danmark
Status: Offline
Point: 567
Direkte link til dette indlæg Sendt: 17.Jan.2019 kl. 14:48
Hej Thomas

Denne kode virker upåklageligt hos mig:

Private Sub Workbook_SheetChange(ByVal Sh As Object, ByVal Target As Range)

    If Target.Value <> "" Then
    
        Target.Value = UCase(Target.Value)
    
    End If

End Sub


Mvh Max
Til top
 Besvar Besvar

Skift forum Forum tilladelser Se dropdown

© 2010 - 2024 Dansk Regneark Forum - en del af Excel-regneark.dk