Print side | Luk vindue

Tving store bogstaver

Udskrevet fra: Dansk Regneark Forum
Kategori: Hjælp til regneark.
Forum navn: Makro og VBA
Forum beskrivelse: Hjælp til Makroer og VBA-programmering
Web-adresse: https://forum.excel-regneark.dk/forum_posts.asp?TID=3743
Udskrevet den: 23.Nov.2024 kl. 08:08


Emne: Tving store bogstaver
Besked fra: Thomas1979
Emne: Tving store bogstaver
Posteringsdato: 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...

https://drive.google.com/file/d/1sfblwpPuo9nsFEJE_4j1AYt55WVVVU9a/view" rel="nofollow - https://drive.google.com/file/d/1sfblwpPuo9nsFEJE_4j1AYt55WVVVU9a/view

Er der nogen der kan hjælpe mig her?

Med de venligste hilsner, Thomas.



Svar:
Besked fra: maxzpad
Posteringsdato: 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



Print side | Luk vindue