Alle Wörter mit einem Großbuchstaben beginnen lassen

Mit diesem Makro wird der erste Buchstabe in einer Zelle bereits bei der Eingabe in einen Großbuchstaben umgewandelt.
 
Damit dieses Makro funktioniert, muss es in den Codecontainer des betreffenden Arbeitsblattes eingefügt werden, nciht in ein Code-Modul, da die Eigenschaft Worksheet_Change verwendet wird.
 
 
 Private Sub Worksheet_Change(ByVal Target As Range)
'** den Ersten Buchstaben in einer Zelle groß schreiben

Application.EnableEvents = False

Target.Value = UCase(Mid(Target.Value, 1, 1)) & Mid(Target.Value, 2, Len(Target.Value) - 1)

Application.EnableEvents = True

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