Makro zum Umdrehen von Vorname und Name

Moderator: ModerationP

Makro zum Umdrehen von Vorname und Name

Beitragvon Carlala » 08. Nov 2019, 23:11

Hallo zusammen!
Kann mir jemand helfen?
Ich muß immer mal wieder Namen umdrehen, also aus
Karl Müller
einen
Müller, Karl
machen.
Hat jemand zufällig ein Makro dafür?
Danke für Eure Hilfe und liebe Grüße
Carla
Carlala
 

Re: Makro zum Umdrehen von Vorname und Name

Beitragvon hddiesel » 09. Nov 2019, 09:59

Hallo Carla,

wenn du die beiden Wörter markierst, dann so:
Code: Alles auswählen
'
'Zwei_markierte Wörter, Leerzeichen getrennt tauschen
'
Sub Zwei_markierte_Wörter_tauschen()
    Dim Wahl        As String
    Dim Wahl_New    As String
    Wahl = Selection
    If Right(Selection, 1) = Chr(13) Then Wahl = Left(Selection, Len(Selection) - 1)
    If Len(Wahl) >= 3 And InStr(Wahl, " ") > 0 Then _
        Wahl_New = Mid(Wahl, InStr(Wahl, " ") + 1, Len(Wahl) - InStr(Wahl, " ")) & ", " & Left(Wahl, InStr(Wahl, " ") - 1)
    If Right(Wahl_New, 1) = "," Then Wahl_New = Left(Wahl_New, Len(Wahl_New) - 1)
    Selection = Wahl_New
End Sub
Mit freundlichen Grüssen
Karl


BS: Windows 10_64-Bit, MS Office Professional Plus 2016_32-Bit, incl. Microsoft Visual Basic for Applications 7.1
Benutzeravatar
hddiesel
Im Profil kannst Du frei den Rang ändern
 
Beiträge: 4029
Registriert: 17. Feb 2006, 11:40
Wohnort: Deutschland

Re: Makro zum Umdrehen von Vorname und Name

Beitragvon halweg » 09. Nov 2019, 12:56

Eigentlich geht das auch mit Suchen/Ersetzen. Die Frage wäre, woran ein Makro oder ein Suchen/Ersetzen die Namen erkennen soll, denn es geht sicher um viele.
Office 2002, 2010; Windows 7, 10
Benutzeravatar
halweg
Im Profil kannst Du frei den Rang ändern
 
Beiträge: 587
Registriert: 21. Okt 2010, 08:04
Wohnort: Dresden


Zurück zu Word Forum (provisorisch)

Wer ist online?

Mitglieder in diesem Forum: 0 Mitglieder und 14 Gäste