første bogstav med stort i tekstboks vba, resten valgfrit

Markerer du så ikke bare et bogstav og sætter størrelsen større? (Jeg tror ikke helt jeg har forstået spørgsmålet ellers)

Hvis det er en tekstboks i en UserForm, du taler om, kan du f.eks. gøre sådan:

NB Ret "TextBox1" til navnet på din tekstboks.


Private Sub TextBox1_Change()
    Dim strSel As String
    With TextBox1
        'gem placering af indsætningsmærke så det ikke hopper til enden af teksten hvis der rettes i allerede indtastet tekst
        strSel = .SelText
        'ret første tegn til stort og bevar resten uændret
        .Value = UCase(Left(.Value, 1)) & Right(.Value, Len(.Value) - 1)
        'placer indsætningmærke korrekt igen
        .SelText = strSel
    End With
End Sub

Hej Lene

Virker, men hvis man sletter hele tksten kommer flg. fejl op: "Invalid procedure call of argument", hvilket vel skyldes, at der ikke er noget tekst. Har elimineret dette ved at udvide din kode, men er det ok kodemæssigt?

Private Sub Overskrift_Change()
    If Overskrift.Text = "" Then
    Exit Sub
    Else
    Dim strSel As String
    With Overskrift
        'gem placering af indsætningsmærke, så det ikke hopper til enden af teksten hvis der rettes i allerede indtastet tekst
        strSel = .SelText
        'ret første tegn til stort og bevar resten uændret
        .Value = UCase(Left(.Value, 1)) & Right(.Value, Len(.Value) - 1)
        'placer indsætningmærke korrekt igen
        .SelText = strSel
    End With
    End If
End Sub

Der er OK, som du har lavet ændringen. Det er måske lidt pænere at gøre f.eks. sådan (If/End If indsat):

Private Sub Overskrift_Change()
    Dim strSel As String
    With Overskrift
        If .Text <> "" Then
            'gem placering af indsætningsmærke så det ikke hopper til enden af teksten hvis der rettes i allerede indtastet tekst
            strSel = .SelText
            .Value = UCase(Left(.Value, 1)) & Right(.Value, Len(.Value) - 1)
            'placer indsætningmærke korrekt
            .SelText = strSel
        End If
    End With
End Sub

Til Lene
Fint - takker for hjælpen.

Til sims10000
Tak for forsøget - håber Lenes svar letter på forståelsen på mit spørgsmål.