Vornamen und Nachnamen trennen

111014


 

Mit Hilfe des nachfolgenden Makros wird der Vorname und Nachname im markierten Bereich in zwei Zellen getrennt.

 

 


 
Sub trennen()
Dim a%, b%, i%
Dim Zelle As Object
 
'Das Makro gilt für jede Zelle in der Markierung:
For Each Zelle In Selection
With Zelle
'Die erste Leerstelle suchen
a = InStr(.Value, " ")
 
'Schleife, falls mehrere durch leer getrennte Vornamen
'vorhanden sind, z. B. Hans Otto Huber
For i = 0 To Len(.Value)
b = InStr(Right(.Value, Len(.Value) - a), " ")
a = InStr(Right(.Value, Len(.Value) - a), " ") + a
Next
On Error Resume Next 'falls leere Zellen markiert sind
 
'Aufteilen auf die 1. Zelle und die 2. Zelle
'Vorname
Cells(.Row, .Column + 1).Value = Left(.Value, a - 1)
 
'Nachname
Cells(.Row, .Column + 2).Value = Right(.Value, Len(.Value) - a)
End With
Next
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