Text in Kleinbuchstaben umwandeln

101069

 


 

Das folgende Makro wandelt den Text im markierten Bereich in Kleinbuchstaben um.
Sie müssen dazu einfach den Bereich markieren, den Sie umwandeln möchten. Anschließend
werden alle Texte im markierten Bereich in Kleinbuchstaben umgewandelt.


Public Sub klein_schreiben()

Dim zelle As Range

For Each zelle In Selection
    If zelle.Value <> "" Then
        zelle = LCase(zelle.Value)
    End If
Next zelle

End
 Sub


Umgekehrt kann natürlich auch der Text in Großbuchstaben umgewandelt werden, dazu ist nur eine
kleine Anpassung notwendig.

Public Sub klein_schreiben()

Dim zelle As Range

For Each zelle In Selection
    If zelle.Value <> "" Then
        zelle = UCase(zelle.Value)
    End If
Next zelle

End
 Sub

 

   

Excel-Inside auf FacebookExcel-Live News blogExcel-Inside RSS-FeedMail an Excel-InsideTwitter Account für Excel-InsideMail an Excel-Inside

Office Programmierung

Excel Auftragsprogrammierung

Access Auftragsprogrammierung

Word Auftragsprogrammierung

Outlook Auftragsprogrammierung

 

 

 

 




   
Office Schulungen VBA, Excel, Access
E-Book Formeln und Funktionen Excel 2013
Excel-Inside Newsletter abonnieren
   

Backlink  

ERROR: PAGE_URL belons not to given domain: 573001800